Discussion :

[Denis61400]

Bonjour tout le monde.

Je viens de me mettre au visual basic et j'utilise Microsoft Visual Basic 2008 Express. J'ai saisi quelques bases mais il y a certaines choses sur lesquelles je bloque, et je vous assure que je me suis creusé la tête avant de vous poser ces questions, je n'aime pas trop demander mais là je sèche vraiment. Alors voilà je vais essayer d'expliquer ce avec quoi j'ai du mal le plus clairement possible, en espérant que je serais suffisamment clair pour vous (comme on dit: un problème correctement expliqué est un problème à moitié résolu ^^)

Je souhaite créer avec Visual Basic 2008 une application qui, lorsqu'on clic sur un bouton, ça écrive quelque chose dans une zone de saisie de texte.

Par exemple, je souhaite que lorsqu'on l'utilisateur écrive quelque chose dans un Champ de texte (que je nomme ChampText, dans l'exemple ci dessous c'est "blabla") puis appuie sur un bouton que je nommerais"IF"
Ca me crée dans une zone de texte un:

Code :

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

1
2
3
4
5
6
 
	IF (blabla)
 
	ELSE
 
	END

Bon, ça c'est fait, voici le code que j'ai assigné au bouton "IF":

Code :

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

1
2
        TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Chr(9) + "IF" + " (" + ChampText.Text + ")" + Environment.NewLine + Chr(9) + Chr(9) + Environment.NewLine + Chr(9) + "ELSE" + Environment.NewLine + Chr(9) + Chr(9) + Environment.NewLine + Chr(9) + "END" + Environment.NewLine + TextBox1.Text.Substring(TextBox1.SelectionStart)
        ChampText.Clear()

Ainsi ca marche très bien.
Mais c'est après que je bloque... Je voudrais que lorsque l'utilisateur cliquera entre le IF et le ELSE déja insérés dans la zone de texte, son curseur soit à une tabulation par rapport au bord de ma TextBox1 et lorsqu'il recliquera de nouveau sur le bouton "IF" , ça écrira un nouveau IF, ELSE et END avec cette fois 2 tabulation par rapport au bord comme ci dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
	IF ()
		IF ()
 
		ELSE
 
		END
 
	ELSE
 
	END

Hors, là ce que j'obtiens dans ma TextBox1 avec ce code c'est ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
	IF ()
		IF ()
 
	ELSE
 
	END
 
	ELSE
 
	END

Qu'est ce qui pèche dans mon code? Je ne sais pas trop ou est mon erreur...

Seconde question:

En cliquant sur un bouton, comment puis-je afficher une fenêtre proposant à l'utilisateur d'enregistrer le contenu de sa TextBox1 dans un fichier *.txt ?

Troisième question !

J'ai crée une zone de saisie de Texte que j'apelle "ChampNum". Je désirerais qu'il soit possible pour l'utilisateur de ne saisir que des chiffres dedans. Si l'utilisateur tente de saisir une lettre, il reçoit un message d'erreur lui indiquant qu'il n'est possible d'écrire que des chiffres dedans ! Comment procéder ?

Dernière question...

Je souhaite que si l'utilisateur saisisse une valeur numérique (dans l'exemple la valeur saisie est "6" dans "ChampNum" puis click sur le bouton que j'ai nommé "BLOCK", celà écrive dans le TextBox1:

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
	Block (1)
 
	Block (2)
 
 
	Block (3)
 
 
	Block (4)
 
 
	Block (5)
 
 
	Block (6)

Quel est dans ce cas le Code à associer au bouton "block" ? Ou du moins, quelles dont les fonctions à utiliser et comment fonctionnent ces fonctions?


Voilà ! Je vous remercie d'avance si vous prenez la peine de répondre et veuillez me pardonner ma N00bitude !! Cordialement,

Denis

[matll]

Salut,

Je pense que je peux apporter une solutions aux 3 dernières questions.

Seconde question:

En cliquant sur un bouton, comment puis-je afficher une fenêtre proposant à l'utilisateur d'enregistrer le contenu de sa TextBox1 dans un fichier *.txt ?

Il faut utiliser le contrôle SaveFileDialog pour demander à l'utilisateur le chemin d'enregistrement. Il y a peut être un bémol au niveau du WriteLine, car tu utilise peut être un RichTextBox au lieu du TextBox.

Code :

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

1
2
3
4
5
6
7
Dim sfd As New Windows.Forms.SaveFileDialog()
If (sfd.ShowDialog() = Windows.Forms.DialogResult.OK) Then
    Dim sw As StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(sfd.FileName, False)
    sw.WriteLine(TextBox1.Text)
    sw.Close()
End If
sfd.Dispose()

Troisième question !
J'ai crée une zone de saisie de Texte que j'apelle "ChampNum". Je désirerais qu'il soit possible pour l'utilisateur de ne saisir que des chiffres dedans. Si l'utilisateur tente de saisir une lettre, il reçoit un message d'erreur lui indiquant qu'il n'est possible d'écrire que des chiffres dedans ! Comment procéder ?

Il faut gérer l'évenement TextChanged et vérifier que c'est bien une chaine qui ne contient que des chiffres :

Code :

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

1
2
3
4
5
6
7
8
9
    Dim a As New ArrayList({"0"c, "1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c})
    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If (Not a.Contains(e.KeyChar)) Then
            e.KeyChar = "" 'Par contre empeche l'effacement
            Label1.Text = "Il faut entrer un chiffre"
        Else
            Label1.Text = ""
        End If
    End Sub

Par contre, je ne sais pas comment annuler la saisie correctement. Surement une annulation de l'évenement.

EDIT 22:52
Tu peux aussi utiliser le contrôle NumericUpDown, et au lieu de .Text, tu récupères .Value

Dernière question...
Je souhaite que si l'utilisateur saisisse une valeur numérique (dans l'exemple la valeur saisie est "6" dans "ChampNum" puis click sur le bouton que j'ai nommé "BLOCK", celà écrive dans le TextBox1:

Quel est dans ce cas le Code à associer au bouton "block" ? Ou du moins, quelles dont les fonctions à utiliser et comment fonctionnent ces fonctions?

Tu écris de la même façon que ton IF, mais tu récupères ChampNum.Text au leur de ChampText

@+
Mat

[Denis61400]

Salut Mat

Merci pour tes réponses

Il y a certaines choses qui ne fonctionnent pas.

Tout d’abord pour la réponse à ta première question, le logiciel me dit comme erreur que: Type 'StreamWriter' non défini. J'utilise bien un TextBox et non un RichTextBox.

Pour ta réponse à ma 3ème question, pas de soucis, j'y suis arrivé.

Pour ta réponse à ma dernière question il me semble que tu n'ai pas bien saisi ce que j'essayais d'expliquer. Ou alors je n'ai pas bien compris ta réponse.

Je voudrais que lorsque l'utilisateur saisisse un chiffre dans ma zone de saisie "ChampNum", celà affiche dans ma TextBox1 autant de champs "BLOCK" que la valeur saisie avec un ordre croissant affiché automatiquement entre les ().

Concrètement, je rentre la valeur "5" dans ChampNum , je click sur mon bouton "BLOCK" et j'obtiens dans ma zone de texte:

Code :

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

1
2
3
4
5
6
7
8
9
	Block (1)
 
	Block (2)
 
	Block (3)
 
	Block (4)
 
	Block (5)

Si j'avais entré la valeur "3", j'aurais donc obtenu dans ma TextBox1 :

Code :

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

1
2
3
4
5
6
 
	Block (1)
 
	Block (2)
 
	Block (3)

Je cherche donc un code du type:

Code :

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

1
2
3
4
5
6
7
IF (Valeur de ChampNum<1)
Afficher un message: "Veuillez saisir une valeur avant de cliquer sur BLOCK !"
ELSE
     LOOP 1 to Valeur de ChampNum
     TextBox1.Text = "Block" + "(1 to Valeur de ChampNum")
     END LOOP
END IF

Je voudrais que a chaque fois que la boucle fait un tour, la valeur de ChampNum s'incrémente dans les parenthèses qui suivent "BLOCK", et ce de 1 à la valeur max de mon ChampNum.

J'espère que j'ai mieux expliqué cette fois çi. ;D

[matll]

Alors, pour le StreamWriter, il faut que tu importes le System.IO (tu peux le voir en restant la souris sur ton StreamWriter, il te proposera les corrections automatiques.

Tu n'étais pas loin avec ton algo :

Code :

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

1
2
3
4
5
6
7
If (Val(ChampNum.Text)<1)
    MsgBox( "Veuillez saisir une valeur avant de cliquer sur BLOCK !")
Else
     For i As Short = 1 To Val(ChampNum.Text)
     TextBox1.Text &= "Block(" & i & ")" & VbCrLf 'le VbCrLf est peut etre obsolète, mais il marche toujours
     End For
End If

[Er3van]

Des remarques en vrac suite aux réponses ci-dessus :

- Pour filtrer les caractères numériques (ou alphanumériques peut-importe), le mieux c'est de passer par des RegEx (expression régulières). Tu peux le faire avec des contrôles/extendeurs très facilement.

- Utiliser des méthodes héritées de VB (et donc non intégrées au framework .net) est déconseillé. C'est voué à disparaître.

[matll]

- Pour filtrer les caractères numériques (ou alphanumériques peut-importe), le mieux c'est de passer par des RegEx (expression régulières). Tu peux le faire avec des contrôles/extendeurs très facilement.

Je suis tout à fait d'accord avec toi, je sais pas pourquoi j'ai pondu ce code là, saurais-tu comment peut-on annuler une saisie "proprement" ?
A la place de :

Code :

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

If (Not a.Contains(e.KeyChar)) Then

Mettre :

Code :

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

If(not (Regex.Match("[\d]",e.keyChar).Success) Then

- Utiliser des méthodes héritées de VB (et donc non intégrées au framework .net) est déconseillé. C'est voué à disparaître.

Il faut remplacer le VbCrLf par :

Code :

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

Chr(13) & Chr(10)

Quelle différence entre + et & pour la concaténation ?

@+
Mat

[Denis61400]

NIIICKEL ! Merci beaucoup ! Tout celà marche merveilleusement bien
Pour le coup de ma fonction avec le bouton "Block", voici le code final qui fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        If (Val(ChampNum.Text) < 1) Then
            MsgBox("Veuillez entrer dans la zone de saisie numérique le nombre de blocs désirés avant de vouloir insérer cette fonction !")
        Else
            TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Chr(9) + "Nombre de Blocks (" + ChampNum.Text + ")" + TextBox1.Text.Substring(0, TextBox1.SelectionStart)
            For i As Short = 1 To Val(ChampNum.Text)
                TextBox1.Text &= TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Environment.NewLine + Chr(9) + "Block (" & i & ")" + Chr(13) & Chr(10) + TextBox1.Text.Substring(0, TextBox1.SelectionStart)
            Next
            ChampText.Clear()
            ChampNum.Clear()
        End If

A savoir pour info qu'il ne connaissais pas de "end for" mais qu'il préférais un "Next" à la place. J'ignore pourquoi.

Petite démo, lorsque je tape "5" dans mon ChampNum et que je clic sur "Block" j'obtiens dans ma textBox:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
	Nombre de Blocks (5)
	Block (1)
 
	Block (2)
 
	Block (3)
 
	Block (4)
 
	Block (5)

Perfecto ! Par contre, petit soucis ! Il semblerais que même lorsque mon ChampNum a subi une fonction ChampNum.Clear() , L'ordinateur garde en mémoire la valeur qui y a été tapé. Ainsi, lorsque j'utilise une seconde fois ma fonction block avec un autre valeur, il fait l'opération deux fois: avec l'ancienne valeur et la nouvelle. Est-ce normal? oO

2) En ce qui concerne l'enregistrement du contenu de la textbox1 dans un fichier... Donc ce code là:

Code :

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

1
2
3
4
5
6
7
Dim sfd As New Windows.Forms.SaveFileDialog()
If (sfd.ShowDialog() = Windows.Forms.DialogResult.OK) Then
    Dim sw As StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(sfd.FileName, False)
    sw.WriteLine(TextBox1.Text)
    sw.Close()
End If
sfd.Dispose()

Quelle est la fonction que je pourrais ajouter et qui permettra de définir le type de fichier que l'utilisateur enregistrera ? Dans mon cas, je souhaite du *.txt

Merci encore pour votre aide et votre envie de partager

[Er3van]

De mémoire, à vérifier donc, je crois que c'est comme ceci :

Code vb :

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

sfd.Filter = "Text file (.txt)|.txt"

[matll]

A savoir pour info qu'il ne connaissais pas de "end for" mais qu'il préférais un "Next" à la place. J'ignore pourquoi.

C'est normal, c'est moi qui ai fait l'erreur, End For n'existe pas en VB.Net

Perfecto ! Par contre, petit soucis ! Il semblerais que même lorsque mon ChampNum a subi une fonction ChampNum.Clear() , L'ordinateur garde en mémoire la valeur qui y a été tapé. Ainsi, lorsque j'utilise une seconde fois ma fonction block avec un autre valeur, il fait l'opération deux fois: avec l'ancienne valeur et la nouvelle. Est-ce normal? oO

C'est en effet étrange, et si à la place de faire ChampNum.Clear(), tu fais ChampNum.Text = "", que se passe-t'il ? Peut être que clear ne fait que modifier l'affichage, mais je n'en suis pas sur du tout.

Quelle est la fonction que je pourrais ajouter et qui permettra de définir le type de fichier que l'utilisateur enregistrera ? Dans mon cas, je souhaite du *.txt

Tu rajoutes le filtre suivant pour limiter au fichiers Txt. (c'est l'exemple de la doc)

Code :

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

sfd.Filter = "Fichiers texte (*.txt)|*.txt

La chaîne de filtre doit contenir une description du filtre, suivie d'une barre verticale (|) et du modèle du filtre. Les chaînes pour les différentes options de filtre doivent également être séparées par la barre verticale. Exemple : "Fichiers texte (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"

[Denis61400]

Merci Matt & Er3van

C'est en effet étrange, et si à la place de faire ChampNum.Clear(), tu fais ChampNum.Text = "", que se passe-t'il ? Peut être que clear ne fait que modifier l'affichage, mais je n'en suis pas sur du tout.

J'ai également essayé avec ChampNum.Text = "" et ça me fait la même D'après moi ca vient de l'algorithme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        If (Val(ChampNum.Text) < 1) Then
            MsgBox("Veuillez entrer dans la zone de saisie numérique le nombre de blocs désirés avant de vouloir insérer cette fonction !")
        Else
            TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Chr(9) + "Nombre de Blocks (" + ChampNum.Text + ")" + TextBox1.Text.Substring(0, TextBox1.SelectionStart)
            For i As Short = 1 To Val(ChampNum.Text)
                TextBox1.Text &= TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Environment.NewLine + Chr(9) + "Block (" & i & ")" + Chr(13) & Chr(10) + TextBox1.Text.Substring(0, TextBox1.SelectionStart)
            Next
            ChampText.Clear()
            ChampNum.Clear()
        End If

Car j'ai essayé avec un code simple sur un autre bouton "SetValue" du type:

Code :

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

1
2
3
 
        TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.SelectionStart) + Chr(9) + "SetValue" + " (" + ChampNum.Text + ")" + Environment.NewLine + TextBox1.Text.Substring(TextBox1.SelectionStart)
        ChampNum.Clear()

Et lorsque je retape une nouvelle valeur et que je reclic sur le bouton "SetValue" ca me met la nouvelle valeur entre () mais ca me fait pas la même erreur qu'avec ma fonction "Block"