[VB6] Erreur de compliation

Recherche :

Dernière réponse
Sujet : [VB6] Erreur de compliation
juju_le_barbare	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...

Dernière réponse

Sujet : [VB6] Erreur de compliation

juju_le_barbare

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

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

juju_le_barbare

Sinan

:lol: :lol:

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

Merci à toi ;)

xilebo

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

Sinan

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]