Problème avec ElseRésolu

Question

Bonjour j'ai un problème avec else j'ai voulu créer un "générateur" de caractères aléatoires, sa marche... Bref j'



Dim r As New Random()

        If ComboBox1.Text = ("QuelqueChose...") Then

        End If
        Dim q = From n In Enumerable.Range(0, 6)
                Select "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"(r.Next(36))

        TextBox1.Text = CStr(q.ToArray())

        Else
        If ComboBox1.Text = ("") Then
            TextBox1.Text = ("MonTexte...")
        End If

        Else
        If ComboBox1.text = ("truc")
                 TextBox1.text = ("MonTexte...')
        End If

    End Sub


En essayer de lancer le logiciel sa me dit : 'Else' doit être précédé d'un 'If' ou 'ElseIf' correspondant.	C'est marqué 2fois... Le premier else, et le deuxième.

Comment faire ?

Dernière question comment faire un "copier" du textbox en cliquant sur un linklabel ?


Cordialement.

fabiendag · Accepted Answer

Il ne faut pas mettre de end if avant le else
la bonne syntaxe est
if ComboBox1.Text = ("QuelqueChose...") then
    Dim q = From n In Enumerable.Range(0, 6)
Select "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"(r.Next(36))
    TextBox1.Text = CStr(q.ToArray())
else
    If ComboBox1.Text = ("") Then
        TextBox1.Text = ("MonTexte...")
    Else
        If ComboBox1.text = ("truc")
            TextBox1.text = ("MonTexte...')
        End If
    End If
End If

Normalement ca devrait marcher comme cela



Fabien

Zookex · Answer

Je vais essayer, je vous tient au courant.

fabiendag · Answer

par contre pour ton textbox et le link label, tu veux le copier où ? dans une variable, dans un autre textbox... ?


Fabien

Zookex · Answer

Problème réglé merci !

Zookex · Answer

Comment sa ?

fabiendag · Answer

Dernière question comment faire un "copier" du textbox en cliquant sur un linklabel ? <--- pour cette question... le textbox tu veux le copier ou ?


Fabien

Zookex · Answer

Dans la "souris" ^^ Je clique sur le bouton, le texte aléatoire se génére dans la textbox, je clique sur la linklabel et le code aléatoire se copie vers la souris enfin le truc ^^

fabiendag · Answer

c'est quoi le "truc" ?
sinon dans ton évènement onclic du linklabel tu écris 
truc.text = textbox.text
j'espère que ca répond à ta question


Fabien

Zookex · Answer

Quand tu fais clique gauche sur la souris, y'a la fonction coller, bah je veux qu'en cliquant sur le link label le text de la textbox se colle dessus...

Zookex · Answer

. . .

fabiendag · Answer

Je comprend pas tout : quand tu fais clic gauche avec la souris, il n'y a pas coller. C'est avec le clic droit que tu as ca.
sinon je pense que ca devrait marcher comme ca si j'ai bien compris
ton linklabel s'appelle lien1 et ton textbox textbox1
sur l'évènement onclick de linklabel1 tu écris :
linklabel1.text = textbox1.text



Fabien

Problème avec Else

11 réponses

Votre réponse

Discussions similaires