VB编程实用精典小技巧3例
首先,使用API获取窗口的标题
是否创建新的窗体1和按钮命令1?《刑法典》特别规定:
选项显式
私有声明函数Get WindowText Lib "us—
er32 "别名" Get WindowTextA"(ByVal hwnd As
Long,ByVal lpString作为字符串,ByVal cch作为
Long)一样长
在表单声明部分增加API函数“get windowtext”的描述。
该函数将要获取的表单标题加载到lpstring中。
私有子命令1_Click()
Di mreturncode As Long
将mcaptext定义为字符串
迪麦卡普兰一样长
captext =String$(100,0)
caplen =99
return code = Get window text(ByVal me。hwnd,
ByVal captext,ByVal caplen)
打印返回代码
打印验证码
打印镜头
End Sub
0条评论