Run-time error '5':

**zazaraignée** · 15/01/2006, 03h22

Salut tout l'monde

Curiosité:
J'ai une série de bouton Option (radio) indicés de 0 à 12. Je voudrais que quand l'utilisateur (c'est à dire moi-même, donc l'utilisatrice) clique sur une de ces options, après avoir exécuté quelques lignes, le focus retourne à un TextBox. Voici donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub optSection_Click(Index As Integer)
    Indice = Index    'variable globale pour cette Form
    lstEpicerie(Index).ZOrder 'place le listBox au dessus des autres
    txtArticle.SetFocus  'ça s'arrête ici
End Sub

mais à la compilation j'ai le message suivant

Invalid procedure call or argument

et la ligne txtArticle.SetFocus est surlignée en jaune.

Z'avez une idée?

**jmfmarques** · 15/01/2006, 09h49

Tout devrait marcher, mais à condition que :

lstEpicerie() soit un groupe de listboxes indexées, que tu aies autant de listboxes lstEpicerie que de optionbuttons optsection() et qu'ils aient des index correspondants (de 0 à 11 pour l'un comme pour l'autre)

En écrivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lstEpicerie([b]index)[/b].zorder

tu laisses en effet entendre que tu as un groupe indexé de lstEpicerie.

J'ai essayé chez moi et tout marche

Dis-nous !

**jmfmarques** · 15/01/2006, 10h25

Que suis-je donc bête ce matin !!!

Si ce que j'ai écrit plus haut est bien ce que tu as fait :

Tu auras bien évidemment ce message d'erreur si à( la base ou dynamiquement), la propriété enabled de textarticle a été fixée à False...

un petit msgbox, placé juste avant le setfocus, devrait t'éclairer sur ce point...

Amitiés

**méphistopheles** · 15/01/2006, 11h38

Envoyé par zazaraignée

mais à la compilation j'ai le message suivant

à la compilation où au lancement?
par-ce que si c'est au lancement, cela veut dire qu'il doit executer ta procédure une fois pour ton groupe d'option au démarage, vu que l'un d'entre eux est forcément selectioné. peut-être même avant que le reste de la fform don ton ext box soit chargé.

je suggère égualement la methode du msgbox où la methode debug + time.

salut

**zazaraignée** · 15/01/2006, 16h03

Effectivement, c'est au lancement... dzolée!

jmfmarques
j'ai le même nombre de ListBox que d'options
et le textbox est Enabeled

méphisto
Je vais voir avec les autres procédures, le Form_Load plus particulèrement, si par hasard y'aurait pas un conflit.

@+

**zazaraignée** · 15/01/2006, 16h26

Eurêka!

Dans ma procédure Form_Load, j'ai un appel de la procédure LireFichier qui, comme son nom l'indique, lit le fichier de données (ma liste d'épicerie...). La première ligne de ce fichier contient l'indice de la sous-liste (lstEpicerie) active au moment de la dernière fermeture du programme. Vous me direz mais pourquoi tant de sous-listes et pas seulement une seule liste? Ben, c'était comme ça au départ, mais avec une liste triée alphabétiquement, je me baladais inutilement en long, en large et en travers dans tout le magasin pour faire mes courses... Avec les sous-listes, j'ai une liste complète classée par départements, la boucherie, les fromages fins, le vrac, les produits d'hygiène...

Donc, dans le form_Load... je lis le fichier et je sélectionne l'option tel numéro et je mets la bonne sous-liste sur le dessus des autres... L'est là le problème. J'ai gardé la lecture du fichier dans le Form_Load mais j'ai mis l'activation de la bonne option et la mise sur le dessus du listBox dans un Form_Activate. Et le problème est

Merci à tous!

**jmfmarques** · 15/01/2006, 16h35

Je ne me rappelle plus (il y a quelques jours seulement) à propos de quel sujet j'ai fait remarquer qu'il était toujours plus prudent de ne pas utiliser le form_load pour des interventions sur ce qui n'était peut-être pas encore chargé...