[VB6] Erreur de compliation

Erreur de compliation [VB6] - Programmation

Marsh Posté le 09-03-2002 à 19:00:43    

VB6 ne veut pas executer mon programme, j'ai une erreur lorsque je rentre la ligne Elself NomUtilisateur = "MiMi" Then
 
je comprend pas trop bien, ce programme provien d'un boukin.
 
La voici dans son contexte :
 
Private Sub Command1_Click()
NomUtilisateur = ImputBox("Saisissez votre nom." )
If NomUtilisateur = "Sinan" Then
    MsgBox ("Bonjours Sinan ! En forme pour attaquer le travail ? " )
    Form1.Picture = _
        LoadPicture("C:\Program Files\Half Life\logo.bmp" )
Elself NomUtilisateur = "MiMi" Then
    MsgBox ("Bonjours MiMi ! Pret pour attaquer le travail ?" )
    Form1.Picture = _
        LoadPicture("C:\Program Files\Microsoft Games\Age of Empires II\scenariobkg.bmp" )
Else
    MsgBox ("Désolé, je ne vous connais pas ! " )
    End 'Abandon
End If
End Sub
 
Pourquoi ne l'accepte t li pas ? j'ai eu beau chercher, je ne comprend pas l'erreur :cry:

 

[jfdsdjhfuetppo]--Message édité par Sinan--[/jfdsdjhfuetppo]


---------------
Cptn.Barberousse
Reply

Marsh Posté le 09-03-2002 à 19:00:43   

Reply

Marsh Posté le 09-03-2002 à 19:20:02    

C est tout con , je viens de prendre ton code, dans elseif , ton i en fait c'est un l minuscule que t as du confondre avec un I majuscule ... change ca et ca marchera

Reply

Marsh Posté le 09-03-2002 à 19:26:21    

:lol:  :lol:  
 
 :lol:  :sarcastic: oui, je savais que c t tout con, mais ça fait 1H que je cherche !
 
Merci à toi  ;)


---------------
Cptn.Barberousse
Reply

Marsh Posté le 10-03-2002 à 00:08:37    

salut,
 
pour faire du code plus beau et plus facile à maintenir, je te conseille de faire un case.
Je sais pas comment c'est en VB, en C++ c'est :
 
switch (NomUtilisateur)
{
case "Sinan" : ShowMessage ("Bonjours Sinan ! En forme pour attaquer le travail ?" );
               break;
case "Mimi" : ShowMessage ("etc...
              break;
default : ShowMessage ("Inconnu" );
}
 
Bon ça marche pas avec du type *char, mais en VB ça devrait passer (surtout avec variant (bêêêrkkk)) !
 
en delphi c'est case of, ça devrait ressembler à ca en VB...


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed