Некий процесс выводит на экран окно "Hello World".
Можно ли применить к нему (к этому окну) параметр Visible=FALSE? Чтобы это окно то появлялось, то исчезало (нпример по таймеру)?
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow 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 ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const WS_VISIBLE = 1
Private Sub Form_Load()
Dim WinWnd As Long
'Ищем, ну например окно XXX
WinWnd = FindWindow(vbNullString, "XXX")
'Теперь делаем его невидимым
ShowWindow WinWnd, WS_VISIBLE
End Sub
Сейчас этот форум просматривают: Google-бот и гости: 110