MsgBox qui n'apparait pas ?

Version imprimable

Bonjour,

Dans un traitement réalisé dans une procédure TestParam, je test les TextBox pour vérifier si leur contenu correspond à ce que j'attend (entier, décimal ...)

J'utilise cette fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Public Function VerifType(ByVal text As String) As Integer 'renvoi 0 si entier 1 si decimal -1 si pas un nombre
        Dim D As Double
        If IsNumeric(text) Then
            D = CDbl(text)
            If D - Int(D) = 0 Then
                'Le nombre est entier 
                VerifType = 0
            Else
                'Le nombre est décimal
                VerifType = 1
            End If
        Else
            VerifType = -1
            'Ce n'est pas un nombre 
        End If
    End Function

Dans ma procédure et si il y a un soucis j'aimerai avoir un petit msgbox qui m'indique où est le problème et je sors de la procédure TestParam. voici ce que je fais :

Code:

1
2
3
4
5
6
        If Form1.VerifType(TextBox9.Text) <> 0 Then
 
            MsgBox(My.Resources.Resource.Error1 & " - " & Label31.Text)
 
            Exit Sub
        End If

Le soucis c'est que ça sors directement de la procédure sans rien m'afficher ? :calim2: POURQUOI ? :aie:

fonction doit retourner VerifType ???????

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 Public Function VerifType(ByVal text As String) As Integer 'renvoi 0 si entier 1 si decimal -1 si pas un nombre
        Dim D As Double
        If IsNumeric(text) Then
            D = CDbl(text)
            If D - Int(D) = 0 Then
                'Le nombre est entier 
                VerifType = 0
            Else
                'Le nombre est décimal
                VerifType = 1
            End If
        Else
            VerifType = -1
            'Ce n'est pas un nombre 
        End If
    End Function

16/12/2012, 16h42
altahir007

Oui ma fonction retourne un entier après avoir testé la chaine de caractére envoyé en paramètres.

Celle ci fonctionne bien visiblement, je ne comprend pas ta réponse ?

Je l'appel dans une procédure à X reprise pour chacuns de mes TextBox et j'affiche un message du genre "Erreur -" & nom du label en face du textbox
16/12/2012, 17h32
altahir007

Bug VisualStudio 2008 ??? :o

J'ai ajouté à mon MsgBox un ", MsgBoxStyle.OkOnly, Nothing" à la fin du premier test, et là surprise ça fonctionne ! mes MsgBox apparaissent TOUS même ceux que je n'ai pas modifiés.

Je décide de supprimer ", MsgBoxStyle.OkOnly, Nothing" à mon premier MsgBox du test et là ça fonctionne toujours alors que je suis revenu à mon code précédent :aie:

Vous en pensez quoi ??
17/12/2012, 09h21
Pol63

il y a très peu de bug dans vs, en tout cas pas des aussi gros

le truc à faire aurait été de mettre un point d'arret sur If Form1.VerifType(TextBox9.Text) <> 0 Then pour voir que tout se comporte comme tout le pense en pas à pas ...
01/01/2013, 21h05
altahir007

Pol63, je vais essayer ça car j'ai le meme hic sur une seconde partie de cette même form :mouarf:

Je verai ça demain, je commence à saturer aujourd'hui. mais je trouve ça tordu vraiment !

Bonsoir,

Peut être en utilisant :

Code:

1
2
3
4
 
If MessageBox.Show("Mon message") = Windows.Forms.DialogResult.OK Then
    Exit Sub
End If

03/01/2013, 16h29
Graffito
Vérifier aussi:
- que la procédure est bien appelée par le thread principal (le programme n'utilise pas de multithread),
- qu'aucune exception n'est déclenchée (par exemple, pour l'accès à "My.Resources.Resource.Error1").