用VB6.0自制压缩与解压缩程序(一)

Else

Err.Raise Err.Number, , Err.Description

End If

Screen.MousePointer = 1

Exit Sub

End Sub

Private Sub lblAbout_Click()

lblAbout.BorderStyle = 1

frmAbout.Show 1, Me

End Sub

Private Sub lstInfo_ItemClick(ByVal Item As MSComctlLib.ListItem)

If Not (Item Is Nothing) Then

lstInfo.ToolTipText = "[目标信息] " & Item.ListSubItems(2)

End If

End Sub

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!