Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Command_Click(Index As Integer)
Dim S As String
S = String(80, Chr(0))
SendMessage Me.hwnd, WM_GETTEXT, Len(S), ByVal S 注释:读出窗体的Caption
Text1.Text = Left(S, InStr(S, Chr(0)) - 1)
上面是一段读取窗口标题的代码,想知道wParam与lParam参数它们的值是什么?它们是起什么作用.
谢谢!
|