Заблокировать кнопку ПУСК

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 EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Public Sub EnableStartButton(Optional Enabled As Boolean = True)
'thIs will enable/disable any window With a little modifaction
Dim lHwnd As Long
'найти hWnd
lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString)
'Call the enablewindow api And Do the what needs To be done
Call EnableWindow(lHwnd&, CLng(Enabled))
End Sub

Private Sub Form_Load()
EnableStartButton True 'Кнопка ПУСК не заблокирована
'EnableStartButton False 'Кнопка ПУСК заблокирована
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Заблокировать кнопку ПУСК", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!