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

Messages postés
134
Date d'inscription
samedi 20 octobre 2001
Statut
Membre
Dernière intervention
6 février 2016
- - Dernière réponse : jimelfou
Messages postés
134
Date d'inscription
samedi 20 octobre 2001
Statut
Membre
Dernière intervention
6 février 2016
- 31 mars 2009 à 16:15
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
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 223 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
2
0
Merci
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
Commenter la réponse de Duke49
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
2
0
Merci
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)
Commenter la réponse de Duke49
Messages postés
134
Date d'inscription
samedi 20 octobre 2001
Statut
Membre
Dernière intervention
6 février 2016
0
Merci
Oh ouais!
Merci beaucoup Renfield pour ton aide, ta solution est vraiment simple, efficace et fonctionnel!
Commenter la réponse de jimelfou