冒泡排序法
Private Sub Command1_Click()Dim a(1 To 10) As IntegerRandomizeList1.ClearFor i = 1 To 10a(i) = Rnd * 100List1.AddItem a(i)NextEnd SubPrivate Sub Comma...
2020-04-01 全局热键
'******************* .Bas 模块里面的代码Option ExplicitPublic Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsMod...
2020-10-01 vb6 使用twain_32.dll开发扫描仪，摄像头等程序的demo
'模块'*******************************************************************************'' Description: VB Module for accessing TWAIN compatible scanner (V...
菜单图标范例
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal...