Discussion :

[loverdev]

J'ai des champs où l'utilisateur doit saisir des valeurs (des montants). Je veux qu'avant de passer au champ suivant je contrôle si l'utilisateur a saisi 3 chiffres après la virgule (ex. 200,000). Si l'utilisateur a saisi par exemple 200, je veux que lors du passage au champ suivant ca met automatiquement 200,000. Comment je fais?

[Pol63]

sur l'evenement lost focus par exemple
ensuite tu traite la chaine de caractère
s'il n'y a pas de virgule, tu rajoutes ,000
s'il y en a deja une, tu compes le nombres de chiffres apres et tu completes avec des 0 pour en avoir 3

sinon tu peux aussi empecher l'utilisateur de saisir plus de 3 chiffres apres la virgule dans l'evenement keypress

[loverdev]

Est ce que vous pouvez me donner un exemple?

[Pol63]

oui et non faut chercher un peu
enfin faut connaitre les fonctions de bases d'un langage


if instr(textbox.text,",") then ' ca c'est pour savoir s'il y a une virgule
mais y a plein de méthodes possibles
if cint(textbox.Text) = cdec(textbox.Text) then ' dans ce cas, si la valeur est égale à la partie entière de la valeur ca veut dire qu'il n'y a pas de virgule
pour savoir ce qu'il y a apres la virgule à priori ca ressemble à :
right(textbox.Text,len(textbox.Text) - instr(textbox.text,",")



d'une manière générale pour connaitre un langage il faut regarder tout ce qu'on peut faire, l'avantage du framework c'est que l'autocomplétion nous montre pas mal de chose
donc je vous conseille de jeter un oeil dans microsoft.visualbasic.
y a plein de fonctions sympas avec leur description

[Aspic]

Bon voila je l'ai fais pour toi mais c'est pas vraiment très difficile !

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
16
17
18
19
20
21
22
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        Dim test As String() = Split(TextBox1.Text, ",") 'test si il y a une virgule
        If test.Length > 1 Then 'il y a une virgule
            Dim temp As String = test(1) 'recupère les chiffres après la virgule
            If temp.Length < 3 Then 'cas inférieur à 3
                Dim NbreZero As Integer = 3 - temp.Length 'on complete avec des zero
                Select Case NbreZero
                    Case 1
                        TextBox1.Text = test(0) & "," & temp & "0"
                    Case 2
                        TextBox1.Text = test(0) & "," & temp & "00"
                    Case 3 'si le mec est gogol et qu'il met aucun chiffre après la virgule
                        TextBox1.Text = test(0) & "," & temp & "000"
                End Select
            ElseIf temp.Length > 3 Then 'supérieur à 3
                Dim Troncature As String = Microsoft.VisualBasic.Left(temp, 3)
                TextBox1.Text = test(0) & "," & Troncature
            End If
        Else 'dans ce cas pas de virgule donc
            TextBox1.Text = test(0) & "," & "000"
        End If
    End Sub

Tout les cas sont traités ! Mais fais des recherches c'est une méthode parmis d'autres...

Bonne chance

[loverdev]

Merci Aspic ca marche avec votre exemple. Merci pour votre aide si précieuse !!!

[Aspic]

Merci Aspic ca marche avec votre exemple. Merci pour votre aide si précieuse !!!

De rien mais pense à faire une recherche avant car j'ai mis 3 min montre en main pour le faire...