Textbox inverse le sans de mon écriture Fermé

Question

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 : 
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 SubEnd 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.



Configuration: Windows / Chrome 50.0.2661.102

piwaye20 · Answer

Bonjour je viens de trouver quelque chose en essaie et erreur ^^.

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 ^^

Textbox inverse le sans de mon écriture

1 réponse

Discussions similaires