6 svar · 207 visningar · startad av PsyDonia
Hej om jag minimerar mitt program och sän vill trycka på t.ex. F9 för att återställa fönstret om jag t.ex har ett annat program markerat.
har denna kod nu men funkar bara i debug mode eller om man inte har något annat program igång.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF9 Then
frmMain.WindowState = vbNormal
End If
End Sub
Lägg till en timer med cirka 10 i interval och följande kod:
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Private Const VK_F9 = &H78
Private Sub Timer1_Timer()
If CBool(GetAsyncKeyState(VK_F9)) Then
frmMain.WindowState = vbNormal
End If
End Sub
Tack så mycket för hjälpen det funkar .....
Nexus86 är en ängel.
@-,--,---- @-,--,---- @-,--,---- @-,--,---- @-,--,---- @-,--,----
En hög rosor till dig
Vet jag väl! :OO ;) :P
har blivit ett nytt fel.
när jag gör så som du nexus sa så funkade det.
men det vart ett problem.
fönstret återställs men det är inte aktiverat.
hur får jag det sen aktiverat.
Private Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Private Const VK_F9 = &H78
Private Sub Timer1_Timer()
If CBool(GetAsyncKeyState(VK_F9)) Then
frmMain.WindowState = vbNormal
SetFocusAPI frmMain.hWnd
End If
End Sub
Nexus du är väl bara för bäst...
U r da man