Textbox inverse le sans de mon écriture
piwaye20
Messages postés
28
Statut
Membre
-
piwaye20 Messages postés 28 Statut Membre -
piwaye20 Messages postés 28 Statut Membre -
Bonjour,
Je ne sais plus quoi faire, je voudrais faire une convertisseur de MM en POUCE, et je veut que les résultats change à chaque fois que le texte change. Exactement comme ça. https://www.google.ca/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=mm+en+pouce
Voici mon code :
Lorsque j'écrit du texte dans la textbox1 tout fonctionne. Mais lorsque j'écrit dans la textbox2 et bien mon texte s'inverse. Le curseur reviens toujours au début et ses comme si j'écrirait de droite à gauche. L'option RIGHTTOLEFT son à NO.
Si je veut écrire par exemple 123 et bien ça va me donner 321. Lorsque j'écrit 1 c'est OK mais le curseur ce met au début après donc lorsque je clique sur 2 ça devient 21 et après le curseur ce remet au début si je clique sur 3 ça devient 321.
Je ne sais plus quoi faire !
Merci de m'aider.
Je ne sais plus quoi faire, je voudrais faire une convertisseur de MM en POUCE, et je veut que les résultats change à chaque fois que le texte change. Exactement comme ça. https://www.google.ca/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=mm+en+pouce
Voici mon code :
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim chiffre1, reponse1 As Double
If TextBox1.Text = "" Then
TextBox2.Text = ""
TextBox1.Text = ""
Else
chiffre1 = 0.0393701
TextBox2.Text = TextBox1.Text * chiffre1
reponse1 = TextBox2.Text
reponse1 = Math.Round(reponse1, 2)
TextBox2.Text = reponse1
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim chiffre1, reponse1 As Double
If TextBox2.Text = "" Then
TextBox2.Text = ""
TextBox1.Text = ""
ElseIf TextBox2.Modified Then
chiffre1 = 25.4
TextBox1.Text = TextBox2.Text * chiffre1
reponse1 = TextBox1.Text
reponse1 = Math.Round(reponse1, 2)
TextBox1.Text = reponse1
End If
End Sub
End Class
Lorsque j'écrit du texte dans la textbox1 tout fonctionne. Mais lorsque j'écrit dans la textbox2 et bien mon texte s'inverse. Le curseur reviens toujours au début et ses comme si j'écrirait de droite à gauche. L'option RIGHTTOLEFT son à NO.
Si je veut écrire par exemple 123 et bien ça va me donner 321. Lorsque j'écrit 1 c'est OK mais le curseur ce met au début après donc lorsque je clique sur 2 ça devient 21 et après le curseur ce remet au début si je clique sur 3 ça devient 321.
Je ne sais plus quoi faire !
Merci de m'aider.
A voir également:
- Textbox inverse le sans de mon écriture
- Écriture facebook - Guide
- Annuaire inversé - Guide
- Ecran inversé - Guide
- Ecriture en gras - Guide
- Annuaire inversé espagne - Forum Mobile
1 réponse
Bonjour je viens de trouver quelque chose en essaie et erreur ^^.
Voici mon nouveau code qui fonctionne :)
et ensuite label 2 et 3 bien sur visible = false
Merci à tous ^^
Voici mon nouveau code qui fonctionne :)
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim chiffre1, reponse1 As Double
If TextBox1.Text = "" Then
TextBox2.Text = ""
TextBox1.Text = ""
Else
chiffre1 = 0.0393701
Label2.Text = TextBox1.Text
Label3.Text = Label2.Text * chiffre1
reponse1 = Label3.Text
reponse1 = Math.Round(reponse1, 2)
Label3.Text = reponse1
TextBox2.Text = Label3.Text
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim chiffre1, reponse1 As Double
If TextBox2.Text = "" Then
TextBox2.Text = ""
TextBox1.Text = ""
ElseIf TextBox2.Modified Then
chiffre1 = 25.4
TextBox1.Text = TextBox2.Text * chiffre1
reponse1 = TextBox1.Text
reponse1 = Math.Round(reponse1, 2)
TextBox1.Text = reponse1
End If
End Sub
et ensuite label 2 et 3 bien sur visible = false
Merci à tous ^^
