7,785
社区成员




Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
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()
Dim s As String
s = StrConv(Text1.Text, vbFromUnicode)
SendMessage Me.hwnd, WM_SETTEXT, 0, ByVal StrPtr(s)
End Sub