摘要: Private Sub Command1_Click()s = "我是剪贴板中的内容"Clipboard.Clear '清空剪贴板Clipboard.SetText s '将变量s文本赋给剪贴板Text1 = Clipboard.GetText '将剪贴板中文本赋给text1Clipboard.Cl... 阅读全文
posted @ 2016-09-04 13:42 感生 阅读(6155) 评论(0) 推荐(0) 编辑
摘要: 今天为大家介绍一个vb拍照的方法,该方法简单实用,充分体现出visual basic 的实用性。该工程由两个窗体form1,form2,一个标准模块module1组成。其中模块的代码如下(module1):Option ExplicitPublic Const WS_CHILD = &H400000... 阅读全文
posted @ 2016-09-04 13:40 感生 阅读(2762) 评论(0) 推荐(0) 编辑
摘要: Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) A... 阅读全文
posted @ 2016-09-04 13:36 感生 阅读(2742) 评论(0) 推荐(0) 编辑