[Vb6] Checkbox en grand nombre

Version imprimable

18/07/2006, 19h25
geforce74

[Vb6] Checkbox en grand nombre

Bonjour,

Etant technicien informatique, pour les besoins de mon travail (surtout gagner du temps) j'ai cherché à automatiser via Vb6 une manipulation sur une grosse base de donnée.
Je vous explique le problème, en esperant que quelqu'un ai une solution relativement simple, je ne connais pas grand chose en developpement...

Je cherche à faire une sorte de boucle, permetant de verifier sur toutes mes checkbox (environ 160) la "value" suite à l'appuis sur un bouton, et d'enregistrer dans un fichier texte le Caption de ces checkbox. Puis de l'executer en msdos (ca je sais faire) grace à un exe.

Mes portes ont pour Caption : TORQxxx (xxx étant leurs numéro)
Idéalement, le fichier texte devrait avoir pour forme :
TORQ001
TORQ002
TORQ146
etc ...

Avez vous une idée, si la chose est faisable ou si je perds mon temps.
Merci par avance
18/07/2006, 19h34
zazaraignée
Salut

La solution des groupes de contrôles est encore une fois (parce que très souvent traitée ici) à l'honneur.

Tu crée le premier checkBox, lui attribue un nom et mets sa propriété Index à 0.
En faisant des Copier / Coller de ce contrôle, tu auras tous tes CheckBox et tu pourras les manipuler comme ceci:
Code:

1 2 3 4 5 6 Dim i As Integer For i = 0 to TORQ.Count - 1 If TORQ(i).Checked = 1 Then ... End If Next
18/07/2006, 19h36
geforce74

Je te remercie de ta réponse rapide, je teste ca dès demain, là c'est l'heure de rentrer à la maison.
Bonne soirée ;)
19/07/2006, 15h50
geforce74
Bonjour,

J'ai rajouté ces quelques lignes dans mon code, et une erreur reviens à chaque test :

Run-time error '438':
Object doesn't support this property or method

Sur le debug il me souligne la ligne :
Code:

1 2 If TorQ(i).Value = 1 Then
(j'ai essayé avec .Value et .checked)

Mon code pour le bouton testé est le suivant :
Code:

1 2 3 4 5 6 7 8 9 Private Sub ouv_urg_Click(Index As Integer) Dim i As Integer For i = 0 To TorQ.Count - 1 If TorQ(i).Value = 1 Then MsgBox "plop", , "plop" End If Next End Sub
Dans Vb, mes checkbox ont pour nom : TORQxxx(xxx)
le (xxx) étant surement due à l'index
J'ai donc essayé avec
Code:

1 2 3 4 5 6 7 8 9 Private Sub ouv_urg_Click(Index As Integer) Dim i As Integer For i = 0 To TorQ.Count - 1 If TorQ(i)(i).Value = 1 Then MsgBox "plop", , "plop" End If Next End Sub
Mais là il me renvoit :
Run-time Error '344':
Must specify index for object array

Le msgbox Plop est juste là pour tester le fonctionnement
A quoi correspond cette erreur ?
Merci d'avance,
Ge Force
19/07/2006, 16h02
Delbeke
Hum, Il y a eu quiproco, je crois
Dans ta feuille, tous les checkbox doivent avoir la meme propriété name, seule la propriété index doit changer. dans ce cas, tous les composants portant le meme nom forment un groupe. On peut alors accèder a chacun des membres du groupe par son index.
Tu peux avoir plusieurs groupes aussi, a ce momment la , tous les composants de cet aurte groupe doivent avoir le meme nom, différent de ceux du premier groupe.
Exemple, une serie de checkbox portent le nom TorQ1 et une autre serie TorQ2. Dans le premier groupe, il y a 10 checkbox et dans le deuxieme 5
on pourrait alors ecrire
Code:

1 2 3 4 5 6 7 8 9 10 11 For iPnt=0 to 9 if TorQ1(iPnt)=1 then 'bla bla end if next For iPnt=0 to 4 if TorQ2(ipnt)=1 then 'blable end if Next
Voila j'espere que c'est plus clair maintenant
19/07/2006, 16h19
geforce74

Génial ;) Je vais activer le neurone et essayer d'integrer (et digérer) ta réponse :mrgreen:
C'est pas évident de faire ce genre de choses en ayant jamais fais de developpement avant...

Tu as une idée pour réussir a envoyer le Caption de mes TORQ dans un fichier texte dans le format :

TORQxxx
TORQxxx
TORQxxx

Le but ultime étant de generer un fichier texte contenant mes TORQ cochées, et executer mon autre script pour l'integrer à la base.
De la sorte j'aurai un joli prog qui evitera de cliquer sur chaque porte à changer d'état ;)

PS : merci beaucoup à vous amis informaticiens de l'autre bord (des developpeurs ^_^) de me dépanner, j'apprecie ;)

Bon, supposons qu'il n'y ait qu'un seul groupe de checkbox TORQ1 et qu'il y ait 100 checkbox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Command1_Click()
  Dim iPnt As Integer
  Dim strTemp As String
  Dim hFich As Integer
  For iPnt = 0 To 99
    If TorQ1(iPnt) = 1 Then
      strTemp = strTemp & "TORQ" & Format(iPnt, "000") & "=" & TorQ1(iPnt).Caption & vbCrLf
    End If
  Next
  hFich = FreeFile
  Open "C:\resutat.txt" For Output As #hFich
    Print #hFich, strTemp
  Close #hFich
End Sub

Excelent, je te remercie, j'ai presque le résultat qu'il me faut.
Ton script me retournait juste dans le Txt un format du genre :
TORQ121=TORQ161
Ceci étant due au fait que certains index ne correspondent pas au Caption des portes, car il en manque(des portes,ca saute de la 154 à 161 par exemple, il manque la 48, etc...).

Au final je n'ai gardé que
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim iPnt As Integer Dim strTemp As String Dim hFich As Integer For iPnt = 1 To 154 If TORQ(iPnt) = 1 Then strTemp = strTemp & TORQ(iPnt).Caption & vbCrLf End If Next hFich = FreeFile Open "resutat.txt" For Output As #hFich Print #hFich, strTemp Close #hFich
C'est correct ?

J'ai ainsi que mes Caption, rangé verticalements pour mes 154 index de TORQ.
Y a plus qu'a intégrer ca avec un batch, un sql, et zou.
Merci beaucoup pour ton aide, si j'ai encore des questions je sais qu'il y a pleins de gens compétents ici ;)

C'est parfaitement correct. Si tu as des trous dans les index, tu peux utiliser

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim iPnt As Integer
  Dim strTemp As String
  Dim hFich As Integer
  Dim Ok as boolean
  For iPnt = 1 To 154
    Ok =False
    On Error Resume Next
    Ok = TORQ(iPnt)=1
    On Error Goto 0
    If Ok Then
      strTemp = strTemp & TORQ(iPnt).Caption & vbCrLf
    End If
  Next
  hFich = FreeFile
  Open "resutat.txt" For Output As #hFich
    Print #hFich, strTemp
  Close #hFich

N'oublie pas d'indiquer resolu si tu pense que le sujet est clos :)
Bonne journée

19/07/2006, 18h51
geforce74

J'ai corrigé mes trous en déplaçant mes index de fin.
Par contre je suis confronté à un nouveau problème de process qui continue de tourner apres un clic sur la croix de fermeture.
Une boucle continue de tourner peut etre? Il faut que je mette un bouton "Quitter" qui fasse un "unload me" ou j'ai fais le boulet quelque part en laissant ouvert quelque chose ? :aie:
19/07/2006, 18h59
Delbeke

Il est possible d'une autre fenetre soit restée ouverte
ou une boucle qui continue de tourner, auquel cas le programme se recharge quand tu essayes de quitter par la croix ou qu'une commnication Ip est en cours. difficile à dire ce qui empeche le programme de s'arreter correctement.
19/07/2006, 19h15
AdHoc
Bonjour,
essaye en mettant un bouton quitter avec
Code:

1 2 3 sub btQuitter_Click() <div style="margin-left:40px">Me.visible = false End</div>End Sub
Sinon pour gerer les "trous", pourquoi ne pas gérer la propriété "enabled".
19/07/2006, 19h21
geforce74
Damned je crois savoir, j'ai 2 fenetres, et bêtement afin de ne pas les empiler, j'ai fais ca :
Code:

1 2 3 4 5 Private Sub avancé_Click() TorQavance.Visible = False TorQgeneral.Visible = True End Sub
et vice-versa pour l'autre. Donc j'ai une fenêtre invisible qui traine toujours.

Comment faire si je demande à ma fenetre TorQavance un "unload me", pour charger l'autre ? j'ai essayé load torQgeneral, et ca ne fonctionne pas.

EDIT

J'ai modifié de la sorte et cela fonctionne nickel, plus de process qui restent à trainer en fond :
Code:

1 2 3 4 5 Private Sub avancé_Click() TorQgeneral.Visible = True Unload Me End Sub