Textbox inverse le sans de mon écriture

piwaye20 Messages postés 25 Date d'inscription Statut Membre Dernière intervention -
piwaye20 Messages postés 25 Date d'inscription Statut Membre Dernière intervention - 4 juin 2016 à 17:42

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 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
Police d'écriture bref ✓ - Forum Bureautique

1 réponse

Réponse 1 / 1

piwaye20 Messages postés 25 Date d'inscription Statut Membre Dernière intervention

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

Textbox inverse le sans de mon écriture

1 réponse

Votre réponse

Discussions similaires