GetWindowTex函数是取得窗体的标题，但它返回的是long,是一个整数，怎么知道它的标题呢？

殷小宝　发表于：2013-04-09 22:08:07 　

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub Command7_Click()
Dim s As Long
Dim Formcaption As String
s = GetWindowText(Me.hwnd, Formcaption, 128)
MsgBox s
End Sub
结果返回是0，怎么才能取得本窗体的标题呢？

Top

红尘如烟发表于：2013-04-09 22:25:59

Win32 API 函数很多都是通过参数返回内容的，而不是函数的返回值，返回值很多时间只是返回一个长整数用于确定函数是否运行成功。

所以你这里用法就有问题，hwnd参数是窗口的句柄，lpString参数是用于存放返回的窗口标题的缓冲区，cch参数是这个缓冲区的大小（这种情况下用到的缓冲区都是固定大小，必须要指定大小的）

所以你这里应该是MsgBox Formcaption，而不是MsgBox s

Top

殷小宝发表于：2013-04-09 22:38:50

谢谢刘老师的解答，我按你的意思改了，结果是：

并没有返回标题呢？

Private Sub Command13_Click()
Dim s As Long
Dim Formcaption As String
s = GetWindowText(Me.hwnd, Formcaption, 128)
MsgBox Formcaption
End Sub

Top

叶海峰发表于：2013-04-10 08:56:11

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Sub Command0_Click()
Dim a As String
a = Space(255)
GetWindowText hwnd, a, 255
MsgBox a
End Sub

Top

殷小宝发表于：2013-04-10 15:29:45

谢谢两位老师。缓冲区临时存放了相关的内容，可以将其提取。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

[5分]GetWindowTex函数是取得窗体的标题，但它返回的是long,是一个整数，怎么知道它的标题呢？