bonjour,
sur ma form j'ai une listview quand je fait un double-click sur un item ça m'ouvre une autre form.
mais je voudrais Inhiber le double click en appuyant sur un CommandButton,est ce possible ?
merci
cordialement
bonjour,
sur ma form j'ai une listview quand je fait un double-click sur un item ça m'ouvre une autre form.
mais je voudrais Inhiber le double click en appuyant sur un CommandButton,est ce possible ?
merci
cordialement
Il suffit de supprimer ou mettre en commentaire le contenu de l'évènement ListView1_DblClick ou encore renommer cet évènement en ListView1_DblClick0 par exemple
Ne pas oublier le tag si satisfait.
Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
Balises CODE indispensables. Regardez ICI
Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
Vous pouvez consulter mes contributions
Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
Ne pas oublier L'Aide VBScript et MSDN VB6 Fr
re,
merci pour ta réponse,mais ça ne fonctionne pas.
voila le code du double click.
mais comment mettre le code sur un commanbutton pour inhiber le double click.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub List_DblClick() 'afficher la form VISU '-- vérifie qu'il y ait au moin 1 Enregistrement dans la base sinon désactive le double click Texte = List.ListItems(List.SelectedItem.Index).Text If (Texte = "Aucun Enregistrement") Then Exit Sub End If If Codepsa <> 0 Then nouv = False Frm_Visu.Show_Modal Me.Hwnd End If End Sub
Salut bbil, l_autodidacte et petchy
Peut être que petchy cherche à empêcher momentanément l’événement DblClick puisque qu'il parle d'un CommandButton.
Moi personnellement il me semblerai plus judicieux d'utiliser un CheckBox ayant pour Caption = "Inhiber le DblClick du ListView".
De plus , il est dommage de renommer un listview en List, cela rend douteux le composant dont tu parles dans ta demande d'aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Private Sub List_DblClick() 'afficher la form VISU If Check1.Value = 1 Then Exit Sub '-- vérifie qu'il y ait au moin 1 Enregistrement dans la base sinon désactive le double click Texte = List.ListItems(List.SelectedItem.Index).Text If (Texte = "Aucun Enregistrement") Then Exit Sub End If If Codepsa <> 0 Then nouv = False Frm_Visu.Show_Modal Me.hWnd End If End Sub
Soyez sympa, pensez -y
Balises[CODE]...[/CODE]
Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Balises[C]...[/C] code intégré dans une phrase.
Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
👉 → → Ma page perso sur DVP ← ← 👈
Envoyé par petchyDONC PAS DE hWnd. On écrira alors : Frm_Visu.Show vbModal, Me.Envoyé par MSDN : object.Show style, ownerform
object Facultatif. Expression d'objet qui prend la valeur d'un objet figurant dans la rubrique Application. Si l'élément object est omis, la feuille associée au module de la feuille active est considérée comme object. style Facultatif. Nombre entier qui détermine si la feuille est modale ou non modale. Si l'argument style a pour valeur 0, la feuille est non modale ; s'il a pour valeur 1, elle est modale. ownerform Facultatif. Expression de chaîne qui spécifie quel composant "possède" la feuille affichée. Pour les feuilles standard Visual Basic, utilisez le mot clé Me.
En plus il n'y a pas de Show_Modal !!!!!!!!!
Ne pas oublier le tag si satisfait.
Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
Balises CODE indispensables. Regardez ICI
Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
Vous pouvez consulter mes contributions
Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
Ne pas oublier L'Aide VBScript et MSDN VB6 Fr
bonjour à vous,
merci pour vos réponses,ProgElecT j'ai appliqué ta solution j'ai mis un CheckBox et c'est nickel.
cordialement
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager