Inhiber le double click

Version imprimable

27/04/2015, 09h51
petchy

Inhiber le double click

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
27/04/2015, 14h47
l_autodidacte

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

re,
merci pour ta réponse,mais ça ne fonctionne pas.
voila le code du double click.

Code:

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

mais comment mettre le code sur un commanbutton pour inhiber le double click.

27/04/2015, 18h47
SfJ5Rpw8

Citation:

Envoyé par petchy

re,
merci pour ta réponse,mais ça ne fonctionne pas.
voila le code du double click.
...

bonjour,

je ne vois ou tu as appliqué la modification proposée !

si la suppression te cause problème utilise la seconde proposition

Citation:

Envoyé par l_autodidacte

ou encore renommer cet évènement en ListView1_DblClick0 par exemple

Salut bbil, l_autodidacte et petchy

Citation:

Envoyé par petchy

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

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".
Code:

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
De plus :?, il est dommage de renommer un listview en List, cela rend douteux le composant dont tu parles dans ta demande d'aide.

Citation:

Envoyé par petchy

Code:

Frm_Visu.Show_Modal Me.Hwnd

Citation:

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.

DONC PAS DE hWnd. On écrira alors : Frm_Visu.Show vbModal, Me.
En plus il n'y a pas de Show_Modal !!!!!!!!!

28/04/2015, 06h16
petchy

bonjour à vous,

merci pour vos réponses,ProgElecT j'ai appliqué ta solution j'ai mis un CheckBox et c'est nickel.

cordialement

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.