CALCUL IMC

Commentaire de alpha5 le 26/10/2012 05:08:09

Bravo! idéal pour tout le monde
excellent code

Commentaire de Adn56 le 27/10/2012 20:51:07

aie aie !
si je tape des lettres il se passe quoi ?

Commentaire de Adn56 le 28/10/2012 08:37:23

nan ok avec If Not (IsNumeric)..exit sub, ce que je veux dire c'est que l'user ne pigera pas forcément si par exmemple j'écris 78.5 ou 78,5 ou encore 78.5k enfin bref l'affichage ne se réinitialise pas. Et je trouve que le plus simple reste de faire comme ça : (ou alors avec une masquedbox)
bonne lecture ;)
#Region "Séparateur décimal selon les regionals settings"
    Private Const LOCALE_SDECIMAL As Integer = &HE
    Private Declare Auto Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Integer, ByVal LCType As Integer, ByVal lpLCData As String, ByVal cchData As Integer) As Integer
    Private Declare Auto Function GetUserDefaultLCID Lib "kernel32" () As Integer

    ''' <summary>
    ''' Renvoie le séparateur décimal correspondant au Regional Settings propres au poste client
    ''' </summary>
    ''' <value></value>
    ''' <returns>Caractère séparateur, type Char</returns>
    ''' <remarks>Propriété en lecture seule</remarks>
    Public ReadOnly Property Separator() As Char
        Get
            'vérifié à chaque usage
            Dim sSeparator As String = " "
            GetLocaleInfo(GetUserDefaultLCID, LOCALE_SDECIMAL, sSeparator, 1)
            Return sSeparator(0)
        End Get
    End Property

#End Region '(code de PCPT)

    Private Sub txt_credit_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_credit.KeyPress, txt_debit.KeyPress
        'interdit le coller
        If e.KeyChar.Equals(Convert.ToChar(22)) Then
            e.Handled = True
        Else
            Dim sAccept As String = "0123456789.," & Convert.ToChar(Keys.Back).ToString
            Dim bFound As Boolean = False
            For i As Integer = 0 To sAccept.Length - 1
                If sAccept(i) = e.KeyChar Then
                    'virgule = point, ou l'inverse
                    If (e.KeyChar.Equals("."c) And Me.Separator.Equals(","c)) _
                    Or (e.KeyChar.Equals(","c) And Me.Separator.Equals("."c)) _
                    Then
                        e.KeyChar = Me.Separator
                    End If

                    bFound = True
                    Exit For
                End If
            Next

            If Not bFound Then
                e.Handled = True
            Else
                'exception quand même pour le multipoints
                If DirectCast(sender, System.Windows.Forms.TextBox).Text.Contains(Me.Separator) AndAlso e.KeyChar.Equals(Me.Separator) Then
                    e.Handled = True
                End If
            End If
        End If

    End Sub 'gére la saisie des textbox crédit et débit (code de PCPT)