Vb6:pb au niveau des icons dans la listview
minoula2006
-
gregouz62 Messages postés 129 Statut Membre -
gregouz62 Messages postés 129 Statut Membre -
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 :
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??
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??
Configuration: Windows XP Internet Explorer 7.0
7 réponses
-
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 -
-
A quoi correspond ta variable Commande ? De quel type est elle ?
Est elle initialisé quelque part ? -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
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?? -
Désolé du temps de réponse petit problème de connection :
Dim xxx as ListItem
