Option Explicit
'&这些定义如何理解
Const SC_CLOSE = &HF060&
Const WM_SYSCOMMAND = &H112
Const WM_SETTEXT = &HC
Private 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 Command1_Click()
'在SendMessage中wParam的值为0代表什么?
SendMessage Me.hwnd, WM_SETTEXT, 0, ByVal CStr(Text1.Text)
End SubPrivate Sub Command2_Click()
'在下面的语句中ByVal 0&代表什么?
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&
End Sub
'&这些定义如何理解
Const SC_CLOSE = &HF060&
Const WM_SYSCOMMAND = &H112
Const WM_SETTEXT = &HC
Private 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 Command1_Click()
'在SendMessage中wParam的值为0代表什么?
SendMessage Me.hwnd, WM_SETTEXT, 0, ByVal CStr(Text1.Text)
End SubPrivate Sub Command2_Click()
'在下面的语句中ByVal 0&代表什么?
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货