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 :
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."
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Hum... Je commence, c'est pas clair pour moi, VB me dit que le code est mauvais pour le .Visible à la ligne
Voilà, si quelqu'un pouvait m'expliquer pourquoi là, ca coince, ca m'aiderais beaucoup.
Code : Sélectionner tout - Visualiser dans une fenêtre à part cmdGrand.Visible = False
Pour information voici où je me renseigne d'habitude pour m'aider : Tutoriels VB : http://vb.developpez.com/cours/
Partager