[VB6] Sélection d'un dirlistbox en un seul click!?Résolu

Question

Bonjour à vous, voici ma situation.
Je dois faire un interface qui sera contrôlé avec un écran touchscreen. Étant donné qu'il n'y aura pas de souris, j'essais au maximum de minimiser l'utilisation du double-clic. Je dois faire un transfert de fichier (backup) et le problème est que pour choisir mon dossier de destination, je dois double-cliquer sur le dossier dans le dirlistbox. Est-il possible de sélectionner ce dossier en un seul clic?

     Merci de votre aide

Renfield · Accepted Answer

Tu t'en donne du mal, Duke49...

Private Sub Dir1_Click()
    With Dir1
        If .ListIndex <> -1 Then
            .Path = .List(.ListIndex)
        End If
    End With
End Sub

Duke49 · Answer

Peut être ceci ?

Public Const MK_LBUTTON = &H1
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDOWN = &H201

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Function MakeDW(LoWord As Integer, HiWord As Integer) As Long
   MakeDW = (HiWord * &H10000) + (LoWord And &HFFFF&)
End Function

Public Sub SendDubbleClick(byval hWnd as long, lnX as long, lnY as long)
Dim myXY as long

   myXY = MakeDW(lnX, lnY) 
   SendMessage(hWnd, WM_LBUTTONDOWN, ByVal CLng(MK_LBUTTON), ByVal targetXY)
   SendMessage(hWnd, WM_LBUTTONUP, ByVal CLng(MK_LBUTTON), ByVal myXY)
End Sub

Duke49 · Answer

Ben pour utiliser ce code tu feras depuis ton MonObjet_MouseMove:

Call Send DubbleClick(MaForm.hwnd, X, Y)
Call Send DubbleClick(MaForm.hwnd, X, Y)

jimelfou · Answer

Oh ouais! 
Merci beaucoup Renfield pour ton aide, ta solution est vraiment simple, efficace et fonctionnel!

[VB6] Sélection d'un dirlistbox en un seul click!?

4 réponses

Votre réponse

Discussions similaires