ComboBox

salut tt le monde
svp j'ai bcp de problemes avec les ComboBox en Vb6
je sais pas comment faire pour savoir  lors de recuperation de l'information d'une ComboBox si le comboBox1.text  est vide ou nn pour afficher le  MsgBox("aucun valeur choisi) ou nn
Cordialement

merci infinement pour votre aide c'est parfait mnt

salut
svp je veux supprimer aprés clique sur une botton supprimer un enregistrement selectionner de ma listview
mais le probléme c'est que si je selectionne pas un enregistrement la premiére sera supprimer lorsque je clique sur la botton
alors je veux tester tt dabord si un enregistrement est selectionner je le supprime meis si j'ai rien selectionner je veux afficher le message
MsgBox("selectionnez tout dabord un enregistrement")
Merci de votre aide
Cordialement

Donc, la on est plus sur une ComboBox mais sur une ListView.

Pour la sélection dans une ListView, il y a toujours un élément de sélectionner.
Un façon d'y remédier et de détecter lors du click si on clique sur un item ou non.

	Private Sub TaListView_MouseDown(Button As Integer, _   Shift As Integer, x As Single, y As Single)   If Not TaListView.HitTest(x, y) Is Nothing Then     TonBoutton.Enabled = True   Else     TonBoutton.Enabled = False   End If End Sub
(Coloration syntaxique automatique par Kenji)

__________
Kenji
( Nouveau forum VBA/Office

Salut,

talistview.SelectedItem te renvoie un objet et est égal à nothing si aucun item n'est sélectionné.

Tu peux également faire ceci :

Private Sub talistview_DblClick()
If Not talistview.SelectedItem Is Nothing Then
msgbox talistview.SelectedItem.text & " est séléctionné"
End If
end sub

salut tt le monde
ce que je veux c'est de faire le test dans le controle Button comme ceci
Private Sub Supprimer_Click()
' c'est ici que je doit savoire s'il y a du tuple selectionné ou nn avant de le supprime
End Sub
Cordialement

Alors passe par une variable :

	Private TaListViewItemSelected As Boolean Private Sub Supprimer_Click()   If TaListViewItemSelected Then     MsgBox TaListView.SelectedItem.Text   Else     MsgBox "selectionnez tout dabord un enregistrement"   End If End Sub Private Sub TaListView_MouseDown(Button As Integer, Shift As Integer, _   x As Single, y As Single)   TaListViewItemSelected = Not TaListView.HitTest(x, y) Is Nothing End Sub
(Coloration syntaxique automatique par Kenji)

__________
Kenji
( Nouveau forum VBA/Office

Slt
voici ce que je fait
Private Sub Supprimer_Click()
Dim j As Integer
 If ListItemSelected Then
  j = List.SelectedItem.Index
  List.ListItems.Remove( j )
  Else
    MsgBox "selectionnez tout dabord un enregistrement"
  End If
End Sub

Private Sub List_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ListItemSelected = Not List.HitTest(x, y) Is Nothing
End Sub

mais ça marche pas
si vous pouvez m'aidez svp
Cordialement