[]Problème avec un "Select Case" : Instructions et..

Bonjour à tous,
Voilà, j'ai commencé à réutiliser VB6 depuis peu (je ne l'ai jamais vraiment apprit mais là j'en ai envie) et j'ai voulu faire un petit programme "d'humour" mais j'ai quelques soucis avec le code de ma Form 1 voilà le code de la première form :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Option Explicit Public sNombreClic As Single   Private Sub cmdGrand_Click()   Select Case sNombreClic < 10   cmdGrand.Visible = False cmdPetit.Visible = True sNombreClic = sNombreClic + 1   Case snombreclicl = 10   Show.frmResultats Unload Me   End Select   End Sub   Private Sub cmdPetit_Click()   Select Case sNombreClic < 10   cmdPetit.Visible = False cmdGrand.Visible = True sNombreClic = sNombreClic + 1   Case sNombreClic = 10   Show.frmResultats Unload Me   End Select   End Sub

---

Voilà, quelque chose de très simple, mais pourtant faux, où est mon erreur ? VB me dit : "Instructions et étiquettes invalides entre Select Case et première occurence de Case."

Hum... Je commence, c'est pas clair pour moi, VB me dit que le code est mauvais pour le .Visible à la ligne

Code:

---

cmdGrand.Visible = False

---

Voilà, si quelqu'un pouvait m'expliquer pourquoi là, ca coince, ca m'aiderais beaucoup.

Pour information voici où je me renseigne d'habitude pour m'aider : Tutoriels VB : http://vb.developpez.com/cours/

La structure d'un Select Case est :

Code:

---

1 2 3 4 5 6

Select Case VarCas Case PremierCas Instructions Case DeuxiemeCas Instructions End Select

---

Mais pour toi, je te conseille plutôt un IF, c'ets plus imple et plus approprié

Code:

---

1 2 3 4 5 6 7 8

If sNombreClick = 10 Then frmResultats.show Unload me Else If sNombreClick <10 Then cmdGrand.Visible=False cmdPetit.Visible=True sNombreClick=sNombreClick-1 End If

---

Merci, je ne vois pas trop l'erreur dans ma construction du Select Case mais il faudra que je regarde mieux.

J'ai de nouveau un petit problème je veux charger ma deuxième from, le problème c'est que je fais

Code:

---

Load frmResultats

---

Mais VB ne charge rien :?

Voilà le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

Option Explicit Public sNombreClic As Single   Private Sub cmdGrand_Click()   If sNombreClic = 10 Then   Load frmResultats Unload Me   Else   If sNombreClic < 10 Then   cmdGrand.Visible = False cmdPetit.Visible = True sNombreClic = sNombreClic + 1   End If   End If     End Sub   Private Sub cmdPetit_Click()   If sNombreClic = 10 Then   Load frmResultats Unload Me   Else   If sNombreClic < 10 Then   cmdPetit.Visible = False cmdGrand.Visible = True sNombreClic = sNombreClic + 1   End If   End If     End Sub

---

S'il y'a besoin du code de la form 2, je peux vous le fournir (je surcharge pas ce post)

VB ne m'affiche aucune erreur, il unload bien la frmClic, mais ne n'affiche pas la frmResultats... Pourtant je suis sur qu'elle est chargée...

J'ai essayé d'utiliser Show mais... je n'arrive pas à l'utiliser :(... Désolé pour ce genre de questions bête...

Merci encore.

il faut uiliser

Code:

---

objet.visible = true

---

je crois enfin pour moi sa marche

je crois que tu dois mettre

Code:

---

1 2	frmResultats.Show

---

au lieu de :

Code:

---

1 2	Load frmResultats

---

es que Me represente la feuille principale parsque si c'est le cas je ne sait pas si l'instruction unload ne met pas fin a l'application

pour ton select il y a effecttivent une erreur de syntax

Code:

---

1 2 3 4 5 6 7

select case sNombreClic case sNombreClic <10 'instructions... case sNombreClic =10 'instructions... end select

---

a désoller je croait qu'il sagissait d'un objet et pas d'une form

Ah d'accord, je vois mes erreurs. Merci beaucoup. :D
Finalement j'ai fais ca avec un

Code:

---

1 2 3 4 5

If ... Then   ...   End If

---

Parceque j'ai eue des problèmes avec le Select Case. :roll:
Il reste encore quelques bugs mais je pense pouvoir me débrouiller.

Merci à tous, je vous montre ca très bientôt. :wink:

Euh... J'ai fini ! Mais le problème c'est que c'est moche... Personne sait où trouver les skins des boutons de Windows XP ?

Merci. -A l'impression d'abuser un peu-

PS : J'ai cherché sur Google mais il me donne pas ce que je veux, il me montre des screenshot de Win XP.

PPS : J'ai essayé de l'envoyer à quelqu'un mais celui-ci a un message d'erreur au lancement, est-ce que VB reste nécéssaire même en .exe ?

quand tu as fit ton .exe il n'y a pas besoin de vb

sinon tu n'est pas obliger d'utilisser des bouton car la commande marche avec tout met il faut mettre

objet.show ( ou se que tu veux) dans la feuille de code quand tu double click

sa marche avec les images les label
donc après je te conseil de créé des bouttons avec photoshop

Pour que ton exe fonctionne sur n'importe quel autre ordinateur, il faut que le fichier VB6fr.dll soit dans le dossier System de windows (pus sur du nom du fichier DLL). Pour résoudre le problème, tu fais un pack d'installation avec l'assistant déploiement.

tu est sur car j'ai tester sur un copain un de mes programmes et il n'avait pas vb et cela a marcher