vb6:pb au niveau des icons dans la listview

Question

Bonjour,
tout d'abord je suis debutante en vb6 et j'essaye de faire un programme qui gère le parc informatique de notre societé (en arabe).
mon pb c que j'ai une listview et une commande "parametre" au dessus , mon code :
Private Sub Command1_Click()
Commande = 1
'Form2.Show 0, Me

ListView1.Top = 950

ListView1.ListItems.Clear
ListView1.Icons = ImageList2
Set xxx = ListView1.ListItems.Add(, , "ÇáÑãÒ")
xxx.Icon = 1
Set xxx = ListView1.ListItems.Add(, , "ÇáäæÚ")
xxx.Icon = 2
Set xxx = ListView1.ListItems.Add(, , "ÇáãÕáÍÉ")
xxx.Icon = 3
Set xxx = ListView1.ListItems.Add(, , "ÇáãÓÊÚãá")
xxx.Icon = 4


End Sub
Private Sub ListView1_Click()
If Commande = 1 Then
   If ListView1.SelectedItem.Index = 1 Then
      marque.Show 1
   End If
   If ListView1.SelectedItem.Index = 2 Then
      typ.Show
   End If
   If ListView1.SelectedItem.Index = 3 Then
      service.Show
   End If
   If ListView1.SelectedItem.Index = 4 Then
      utilisateur.Show
   End If
   
   End If
End Sub

a l'execution :erreur de compilation variable non defini ???
NB:j'ai trouver une application en vb6 dont laquel il y a une partie qui ressemble j'essaye de faire la mm chose mais sa marche pas??

gregouz62 · Answer

Bonjour,

Lance ton application en pas à pas pour voir quelle ligne pose problème et ainsi voir quelle variable n'est pas définie.

Cdt

minoula2006 · Answer

Private Sub Command1_Click()
Commande = 1

gregouz62 · Answer

A quoi correspond ta variable Commande ? De quel type est elle ?

Est elle initialisé quelque part ?

minoula2006 · Answer

c'est une commandButton

gregouz62 · Answer

Alors dans ce cas la c'est simple, soit tu as fait une erreur dans le nom de ton bouton (à mon avis tu as mis Commande au lieu de Command1).
Sinon tu utilises l'option explicit qui t'obliges à déclarer tes variables.

La solution à ton problème créer une variable de type booléen que tu passes à true lors du clic sur command1.

Dim isClicked As Boolean
isClicked = False

Private Sub Command1_Click()

isClicked = True
'Form2.Show 0, Me

ListView1.Top = 950

ListView1.ListItems.Clear
ListView1.Icons = ImageList2
Set xxx = ListView1.ListItems.Add(, , "ÇáÑãÒ")
xxx.Icon = 1
Set xxx = ListView1.ListItems.Add(, , "ÇáäæÚ")
xxx.Icon = 2
Set xxx = ListView1.ListItems.Add(, , "ÇáãÕáÍÉ")
xxx.Icon = 3
Set xxx = ListView1.ListItems.Add(, , "ÇáãÓÊÚãá")
xxx.Icon = 4

End Sub


Private Sub ListView1_Click()

If isClicked Then
   If ListView1.SelectedItem.Index = 1 Then
      marque.Show 1
   End If
   If ListView1.SelectedItem.Index = 2 Then
      typ.Show
   End If
   If ListView1.SelectedItem.Index = 3 Then
      service.Show
   End If
   If ListView1.SelectedItem.Index = 4 Then
      utilisateur.Show
   End If
End If

End Sub

Pense à donner des noms plus explicites à tes éléments

minoula2006 · Answer

merci j'ai déclare Public Commande   As Integer dans le module 
MAIS quand J'AI EXÉCUTER UNE AUTRE FOIS 
mm msg d'erreur sur xxx 
comment la déclarer??

gregouz62 · Answer

Désolé du temps de réponse petit problème de connection :

Dim xxx as ListItem

Vb6:pb au niveau des icons dans la listview

7 réponses

Votre réponse

Discussions similaires

Newsletters