如题谢谢
解决方案 »
- 【2011】倒计时~~~~~~~~~~~~
- CheckBox标题中的字为何在不装VB6的机上不能全显示?
- 如何设置打印机参数并生效
- [求助]如何用vb控制excel中文字,区域的颜色??
- DataGrid1控件如何加载数据库的数据????
- 如果我用adodc做数据库的连接…………
- 问一个很简单的问题,怎么在datareport中来把一个直线来加粗?
- 关天 DataReport ?
- 1.如何让commandbutton象toolbar中的button一样不接受焦点
- 在VB中如何把text中可选的datafield添加到combo控件中
- 菜鸟问题:学习ADO技术中遇到的问题。高手来看看
- 程序中用了treeview控件,程序运行老显示“元素未找到”,谢谢!
Private Sub Form_Load()
Me.AutoRedraw = True
Select Case GetDriveType("C:\")
Case 2
Me.Print "Removable"
Case 3
Me.Print "Drive Fixed"
Case Is = 4
Me.Print "Remote"
Case Is = 5
Me.Print "Cd-Rom"
Case Is = 6
Me.Print "Ram disk"
Case Else
Me.Print "Unrecognized"
End Select
End Sub