|
Declare Function GetActiveWindow Lib "user32" () As Long
'Uso della funzione: 'Se si vuole sapere se Form1 e' la finestra attiva allora If GetActiveWindow() = Form1.hWnd Then <...> End If 'In alternativa si puo' usare il metodo Screen.ActiveForm che 'ha come vantaggio quello di non richiedere chiamate alle API, 'ma consente di sapere solo quale finestra e' attiva fra quelle 'dell'applicazione progettata, mentre con la GetActiveWindow 'e' possibile conoscere anche lo stato attivo di finestre al di 'fuori di quelle dell'applicazione VB: If Screen.ActiveForm is Form1 then <...> End If |