Discussion :

[Olun]

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 :

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

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 :

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

    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/

[Arthaniel]

La structure d'un Select Case est :

Code :

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

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 :

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

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

[Olun]

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 :

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

 Load frmResultats

Mais VB ne charge rien

Voilà le code :

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
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.

[big*brother]

il faut uiliser

Code :

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

objet.visible = true

je crois enfin pour moi sa marche

[hassanibi]

je crois que tu dois mettre

Code :

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

1
2
 
frmResultats.Show

au lieu de :

Code :

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

1
2
 
Load frmResultats

[medkarim]

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 :

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

1
2
3
4
5
6
7
 
select case sNombreClic 
   case sNombreClic <10
     'instructions...
   case sNombreClic =10
     'instructions...
end select

[big*brother]

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

[Olun]

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

Code :

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

1
2
3
4
5
If ... Then
 
...
 
End If

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

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

[Olun]

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 ?

[big*brother]

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

[Arthaniel]

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.

[big*brother]

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