Posez votre question Signaler

Vb6:pb au niveau des icons dans la listview

minoula2006 - Dernière réponse le 15 sept. 2009 à 15:18
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??
Lire la suite 

Vb6:pb au niveau des icons dans la listview »

7 réponses
Réponse
+0
moins plus
gregouz62 123Messages postés 26 août 2009Date d'inscription 15 sept. 2009 à 10:14
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

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
minoula2006 15 sept. 2009 à 10:27
Private Sub Command1_Click()
Commande = 1

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
gregouz62 123Messages postés 26 août 2009Date d'inscription 15 sept. 2009 à 10:43
A quoi correspond ta variable Commande ? De quel type est elle ?

Est elle initialisé quelque part ?

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
minoula2006 15 sept. 2009 à 10:47
c'est une commandButton

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
gregouz62 123Messages postés 26 août 2009Date d'inscription 15 sept. 2009 à 11:19
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

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
minoula2006 15 sept. 2009 à 13:36
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??

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
gregouz62 123Messages postés 26 août 2009Date d'inscription 15 sept. 2009 à 15:18
Désolé du temps de réponse petit problème de connection :

Dim xxx as ListItem

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « vb6:pb au niveau des icons dans la listview » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?