新建窗体Form1和按钮Command1 ぴ诖疤迥?橹刑砑尤缦麓 码:
Option Explicit
Private Declare Function Get WindowText Lib "us—
er32"Alias "Get WindowTextA"(ByVal hwnd As
Long ,ByVal lpString As String ,ByVal cch As
Long)As Long
'在窗体声明节中加入API 函数“Get WindowText”的说明
'函数将向lpstring 中载入要获得的窗体caption
Private Sub Command1_Click()
Di mreturncode As Long
Di mcaptext As String
Di mcaplen As Long
captext =String$(100,0)
caplen =99
returncode =Get WindowText(ByVal me .hwnd ,
ByVal captext ,ByVal caplen)
print returncode
Print captext
Print caplen
End Sub
【VB编程实用精典小技巧3例】相关文章:
Vb中控件的自动排列03-25
中国大地保险公司实习报告03-25
小学父爱的作文600字03-25
汪涵讲述小时候成长经历:鸡毛掸子的故事03-25
儿童舞蹈教程:国标新手上路03-25
生态护坡技术创新措施论文03-25
盐阜大众报报业集团(盐城)公开招聘《东方生活报》编辑记者的公告 2月25日到3月3日报名03-25
2018湖南省农村信用社联合社招聘科技专业人才拟聘公告03-25
at(the)least和not(in)the least用法区别 相似词语辨析(17)03-25
新学期英语作文【精选3篇】03-25
