如何根据控件的句柄得到控件的Name属性?
以及其他所有属性!!!
以及其他所有属性!!!
解决方案 »
- 摄像头奇怪问题
- 一条错误的sql查询语句怎么修正?查询到的结果不正确!!
- VB里面的表达式运算
- 访问dbf数据库时出现的问题
- 使Word软件标题栏上的关闭按钮无效(不起关闭退出作用)
- numeric字段,存储最大的范围是多少?怎么控制用户输入的数据,在这个范围之内。
- 结帐,请leswang107(leswang107) ( ) 信誉:100 等进来领分,希望以后继续关注我的问题,谢谢了!
- 求大神帮忙解决问题
- 对于MSHFlexGrid控件,可设置ScrollTrack属性,这样的话拖动滚动条时数据同步滚动;但datagrid控件无ScrollTrack属性,怎样实现拖动滚动
- 明华M1卡读卡、写卡的VB源代码,一直出错,不能正确地读写?
- 如何将treeview中的内容全部打印出来?
- 有关timer控件的使用??
[email protected]
因为,程序太长了。
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Form_Activate()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim MyStr As String
'Create a buffer
MyStr = String(100, Chr$(0))
'Get the windowtext
GetWindowText Me.hwnd, MyStr, 100
'strip the rest of buffer
MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)
'Triple the window's text
MyStr = MyStr + MyStr + MyStr
'Set the new window text
SetWindowText Me.hwnd, MyStr
End Sub
对是外部程序的