VB学习笔记

我的vb学习笔记

-93:删除多余的打开方式--注册表修改
在注册表HKEY_CLASSES_ROOT\\Applications里可以删除“打开方式－选择程序－其他程序”中的无用的程序的。


1.打开注册表。开始运行输入regedit回车

2.像找文件夹一样打开路径：

HEKY_CURRENT_USER＼Software＼Microsoft＼Windows＼CurrentVersion＼Explorer＼FileExts

3.该路径下会出现所有的文件后缀文件夹，这里我找到.mp3

4.打开该路径下的OpenWithList

5.这时就会看到右边列出了许多打开的程序了，在不需要的项上面右键删除。

6.关闭注册表即可。





-92：用文件系统对象来判断磁盘驱动器类型
Private Sub Form_Load()
Dim fso As New FileSystemObject, dr As drive
For Each dr In fso.Drives
Print dr.DriveType
Next
Set dr = fso.GetDrive("I:\")
Print dr.DriveType
End Sub
‘返回
2
2
2
2
4
1
1



-91：vb最近打开的文件注册表路径
HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\RecentFiles




-90：Preview控件
Preview1.Show ("E:\视觉盛宴\花前月下\唯美\唯美 (28).jpg")






-89:MaskEdBox1控件捕错事件
Private Sub MaskEdBox1_ValidationError(InvalidText As String, StartPosition As Integer)
MsgBox "只能输入数字", vbExclamation, "IP"
End Sub







-88：确定谁引发Lostfocus

我们常会在Control项的LostFocus中去Check其输入的正确性，但如
果我们按 "取消" 的CommandBox又希望不要去Check，直接结束就好
，即，如何是是按了该CommandBox而产生的LostFocus呢？

在LostFocus中Check Screen.ActiveControl便可得知下一个Control
是谁，便可解决这问题

Private Sub Text1_LostFocus()
If Screen.ActiveControl Is Me.Command1 Then
Debug.Print "按到Command1"
Else
Debug.Print "进行LostFoucs的程式"
End If
End Sub







-87:在VB中使用枚举变量
VB5 引入枚举变量，使用它，我们可以显著地改变应用程序的易读性：
Public Enum TimeOfDay
Morning = 0
Afternoon = 1
Evening = 2
End Enum
Sub Main()
Dim RightNow As TimeOfDay
If Time >= #12:00:00 AM# And Time <#12:00:00 PM# Then
RightNow = Morning
ElseIf Time >= #12:00:00 PM# And Time <#6:00:00 PM# Then
RightNow = Afternoon
ElseIf Time >= #6:00:00 PM# Then
RightNow = Evening
End If
End Sub









-86:格式化输入。
在数据输入过程中，有些数据要求一定的格式，比如限制输入的只能为数字或英文字符，这可用VB的格式输入文本框来实现。它与文本框（TEXT BOX）功能基本相似，但多了一个MASK属性，MASK属性常用的设定如下：
＃—限定仅能输入数字0～9；
A— 限定输入为英文字符及数字；
？—限定仅能输入英文字符；
．—限定小数点位置；
：—限定时间分隔号；
／—限定日期分隔号
不需编写