Discussion :

[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

[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

[petchy]

re,
merci pour ta réponse,mais ça ne fonctionne pas.
voila le code du 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

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

[SfJ5Rpw8]

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

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

[ProgElecT]

Salut bbil, l_autodidacte et 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 :

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

De plus , il est dommage de renommer un listview en List, cela rend douteux le composant dont tu parles dans ta demande d'aide.

[l_autodidacte]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Frm_Visu.Show_Modal Me.Hwnd

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 !!!!!!!!!

[petchy]

bonjour à vous,

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

cordialement