帮我解释一下以下代码(VB)谢谢!!越详细越好1

来源：百度知道 编辑：UC知道 时间：2024/06/24 06:07:35
Option Explicit
Dim T
Dim iTemp As String
Dim sTemp As String
Dim i As Integer
Dim bFlag As Boolean

Private Sub cmdDel_Click()
bFlag = False
If List1.ListCount = 0 Then
Else
If List1.ListIndex < 0 And bFlag = True Then
MsgBox "Please Select!"
Else
iTemp = Val(Left(List1.List(List1.ListIndex), 1))
T = RegDelVal(HKEY_CURRENT_USER, sTemp, iTemp)
End If
End If
ListRefresh
End Sub

Private Sub ListRefresh()
Dim SubKeyName() As String, ValueName() As String, ValueType() As ValueType, i As Long
sTemp = "Software\Microsoft\Visual Basic\6.0\RecentFiles"
GetKeyInfo HKEY_CURRENT_USER, sTemp, SubKeyName(), ValueName(), ValueType()
List1.Clear
If UBound(ValueName) = 0 Then
Else
For i =

Private Sub Form_Load()
ListRefresh -----------刷新list
cmdDel.Caption = "&DeleteVbRecord"
－－按钮上显示“DeleteVbRecord"”
End Sub

Private Sub cmdDelAll_Click()
bFlag = True
For i = 1 To List1.ListCount
cmdDel_Click
－－施行删除方法
Next i
End Sub

Private Sub cmdDel_Click()
bFlag = False
If List1.ListCount = 0 Then
Else
If List1.ListIndex < 0 And bFlag = True Then
MsgBox "Please Select!"
Else
iTemp = Val(Left(List1.List(List1.ListIndex), 1))
T = RegDelVal(HKEY_CURRENT_USER, sTemp, iTemp)
End If
End If
ListRefresh
End Sub

－－以上是删除有关注册表信息

Private Sub ListRefresh()
Dim SubKeyName() As String, ValueName() As String, ValueType() As ValueType, i As Long
sTemp = "Software\Microsoft\Visual Basic\6.0\RecentFiles"
GetKeyInfo HKEY_CURRENT_USER, sTemp, SubKeyName(), V