jag vill veta hur man simulerar en Alt + F4 tryckning

//Jesper

Här är ett litet exempel. Skapa ett projekt med en knapp 'Command1' och klistra in följande kod..


Private bAltF4 As Boolean

Private Sub Command1_Click()
Form_KeyDown vbKeyF4, vbAltMask 'Simmulerar Alt +F4
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If (KeyCode = vbKeyF4) And (Shift And vbAltMask) Then
'ALT+F4 används
'Sätter en flagga som visar att ALT +F4 används
bAltF4 = True
MsgBox "Simulerar ALT +F4"
End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, _
UnloadMode As Integer)

'Kod som förhindrar att applikationen avslutas

If pbAltF4 And UnloadMode = vbFormControlMenu Then
Cancel = True
'reset
bAltF4 = False
End If

End Sub

Private Sub Command1_Click()
SendKeys "%{F4}"
End Sub

Tack för hjälpen båda två
//Jesper