[VB] Problema al hacer que el botón gris esté disponible
Función de declaración privada FindWindowEx Lib "user32 "alias" FindWindowExA "(ByVal hwnd 1 es Long, ByVal hWnd2 es Long, ByVal lpsz1 es String, ByVal lpsz2 es String) es Long
La función de declaración privada habilitar ventana Lib "usuario 32" (ByVal hwnd tiene la misma longitud, ByVal fEnable tiene la misma longitud) tiene la misma longitud
La función de declaración privada GetForegroundWindow Lib "user32"() es larga
Atenuar ClassName como cadena * 255
Atenuar hwd mientras
Marcar Sx como una cadena
Atenuar hwd1 mientras
Sub privado xs()
hwd = GetForegroundWindow()
hwd1 = FindWindowEx(hwd, 0 amp, vbNullString, vbNullString)
Y hwd 1 lt; gt0
GetClassName hwd1, ClassName, Len(ClassName)
Sx = Left(ClassName, InStr(ClassName, Chr(0)) - 1)
Si Sx = " Botón "Entonces
Habilitar ventana hwd1, 0
Terminará si...
hwd1 = FindWindowEx(hwd, hwd1, vbNullString, vbNullString)
Fila
Conector final
Subtimer privado1_Timer()
Llamar xs
Conector final
Subform_Load privado()
Temporizador 1. intervalo = 1000
Temporizador1. enable=true
Finalizar ajuste