pour qu'elle puisse remplacer la touche F5 dans mon code.???
Private Const MOD_ALT = &H1 Private Const MOD_CONTROL = &H2 Private Const MOD_SHIFT = &H4 Private Const PM_REMOVE = &H1 Private Const WM_HOTKEY = &H312 Private Type POINTAPI x As Long y As Long End Type Private Type Msg hWnd As Long Message As Long wParam As Long lParam As Long time As Long pt As POINTAPI End Type Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long Private Declare Function WaitMessage Lib "user32" () As Long Private couic As Boolean Private Sub ProcessMessages() Dim Message As Msg Do While Not couic WaitMessage If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then MsgBox "tu viens d'utiliser la hotkey que tu as définie" End If DoEvents Loop End Sub Private Sub Form_Unload(Cancel As Integer) couic = True Call UnregisterHotKey(Me.hWnd, &HBFFF&) End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Call UnregisterHotKey(Me.hWnd, &HBFFF&) Dim ret As Long couic = False ret = RegisterHotKey(Me.hWnd, &HBFFF&, 0, KeyCode) ProcessMessages End Sub
Je voudrais que dans ma Form3, j'est une Combobox
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEt "lister" voudrait peu-être dire "peupler la combo"
Bonjour Us, tu à tout compris
If Hotkey = True Then Capturerbutton() End If