摘要: 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 capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVa 阅读全文
posted @ 2012-10-31 16:37 Let's go 阅读(1442) 评论(0) 推荐(0) 编辑
摘要: Option Explicit'================================================================='功能:屏蔽任意键'用法:Form_Load-->Call HooK Form_Unload-->Call UnHooK'说明:要屏蔽某键,请修改LowLevelKeyboardProc函数中p.vkCode的值'================================================================='================ 阅读全文
posted @ 2012-10-31 13:25 Let's go 阅读(566) 评论(0) 推荐(0) 编辑
摘要: 'ByVal 与 ByRef(默认值) 的区别'ByVal 按值传递 不改变实参'ByRef 按地址传递 改变实参Private Sub Form_Load()Me.ShowDim A As Integer, B As IntegerA = 1B = 2Call AAA(A, B)Print A, B '得到的结果是2,3A = 1B = 2Call BBB(A, B)Print A, B '得到的结果是1, 2End SubSub AAA(I As Integer, J As Integer) '默认,则按址传递I = I + 1J = J + 阅读全文
posted @ 2012-10-31 13:19 Let's go 阅读(265) 评论(0) 推荐(0) 编辑
摘要: 用以从资源 (.res) 文件装载位图、图标或光标。语法LoadResPicture(index, format)LoadResPicture 函数的语法包含下列部分:部分 描述index 必需的。一个整数或字符串,它用来指定资源文件中数据的标识符 (ID) 。ID标识符为 1 的资源保留给应用程序的图标。format 必需的。一个数值或常数,如下列“设置值”中所描述的,指定返回数据的格式。设置值用于 format 的设置值有:常数 值 描述vbResBitmap 位图 0 位图资源vbResIcon 图标 1 图标资源vbResCursor 2 光标资源说明:可以使用 LoadResPict 阅读全文
posted @ 2012-10-31 13:16 Let's go 阅读(227) 评论(0) 推荐(0) 编辑