Ejemplos usando el Api de windows para Visual basic

192 - Función IsWindowEnabled

Función para comprobar si una ventana está o no habilitada

IswindowEnabled, a partir del Hwnd de la ventana a comprobar , retorna true o False según el caso

Nota: la función Api para habilitar y deshabilitar una ventana en windows es EnabledWindow

Controles

Agregar tres Commandbutton

Código fuente

' Función IsWindowEnabled Private Declare Function IsWindowEnabled Lib "user32.dll" (ByVal hwnd As Long) As Long Private Sub Command3_Click() ' Retorna True MsgBox CBool(IsWindowEnabled(Command1.hwnd)), vbInformation, "Command1" 'Retorna false MsgBox CBool(IsWindowEnabled(Command2.hwnd)), vbInformation, "Command2" End Sub Private Sub Form_Load() Command3.Caption = " Comprobar " Command1.Enabled = False End Sub

Buscar en Recursos vb