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

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

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

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

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