module1.bas

来自「一个浏览API的源代码 应该还不错的吧」· BAS 代码 · 共 8 行

Attribute VB_Name = "Module1"
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LB_ADDSTRING = &H180
Public Source As String
Public c() As Integer
Public Const LB_SELECTSTRING = &H18C
Public Typeid As String