作用不大,需要找更强大的应用实例。 服务器端代码: Private Sub Command1_Click() SendMessage Text.hwnd, WM_copy, 0, 0 End Sub Private Sub Command2_Click() Unload Me End Sub 还有模块: Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As
作用不大,需要找更强大的应用实例。 服务器端代码: Private Sub Command1_Click() SendMessage Text.hwnd, WM_copy, 0, 0 End Sub Private Sub Command2_Click() Unload Me End Sub 还有模块: Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As
看起来还可以,