随笔分类 -  VB

VB6
自定义TextBox控件对齐方式为为垂直居中
摘要：Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const EM_GETRECT = &HB2Private Cons... 阅读全文

posted @ 2005-08-08 14:36 虫子 阅读(9797) 评论(0) 推荐(0)

API操作其他程序中的按钮
摘要：Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWi... 阅读全文

posted @ 2004-11-17 12:21 虫子 阅读(1056) 评论(1) 推荐(0)

模仿IE自动完成的ComboBox
摘要：Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function SendMessageLong Li... 阅读全文

posted @ 2004-11-17 12:20 虫子 阅读(1147) 评论(0) 推荐(0)

复制出IE临时文件夹内的SWF文件
摘要：'复制出IE临时文件夹内的SWF文件,也可以是其他类型的文件,这里只是简单演示用FSO遍历文件夹'引用Microsoft Scripting RunTimeDim m_objFSO As New FileSystemObject '定义文件系统对象 Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal ... 阅读全文

posted @ 2004-10-23 22:28 虫子 阅读(2653) 评论(2) 推荐(0)

导航