请问怎么给另一个程序上的按钮发一个“显示”的消息？那个按钮为不可见

Question

请问怎么给另一个程序上的按钮发一个“显示”的消息？那个按钮为不可见

Answer 1

用这个API   EnableWindow (FhWnd,False);  

Answer 2

试过了，EnableWindow不行！用IsEnableWindow可以判断起状态，但不能用EnableWindow改变！我想发一个WS_VISIBLE消息过去，应该是这个~但不知道怎么用~

Answer 3

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOW = 5Private Sub Command1_Click()
    Dim lHwnd As Long
    lHwnd = FindWindow(vbNullString, "xxxxx")'假如那个窗口的caption是xxxxx
    lHwnd = FindWindowEx(lHwnd, 0, vbNullString, "Command1")    ShowWindow lHwnd, SW_SHOW
    
End Sub