Code qui permet de remplacer le point du pave numerique par une virgule
Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 369 fois - Téléchargée 38 fois
Contenu du snippet
c'est une fonction qui permet de remplacer le point du pave numerique par une virgule
c'est très intérressant
sa évite d'utilisé la virgule
ce code peut être adapté pour autre chose
c'est une fonction multiple
c'est très intérressant
sa évite d'utilisé la virgule
ce code peut être adapté pour autre chose
c'est une fonction multiple
Source / Exemple :
Private sub form_load
RenvoiDecimal(Text1.text)
Text1.text=Nombre
end sub
Function RenvoiDecimal(ChaineDepart As String) As String
'fonction qui permet de filtrer la chaine et de remplacer le point par une virgule a l'endroit exacte ou il se trouve
Dim i As Integer
On Error GoTo Erreur
For i = 1 To Len(ChaineDepart)
If Mid$(ChaineDepart, i, 1) = "." Then Mid$(ChaineDepart, i, 1) = ","
Next i
Nombre = Mid$(ChaineDepart, 1, i)
Exit Function
'gestion d'erreur en cas de probleme
Erreur:
Nombre = ChaineDepart
End Function
A voir également
- Code qui permet de remplacer le point du pave numerique par une virgule
- Comment changer de façon automatique le point du clavier numerique par la virgul ✓ - Forum - Visual Basic
- Remplacement du point par une virgule lors de la saisie dans un datagridview - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Remplacer un point par une virgule instantanément dans un textbox ✓ - Forum - VB.NET
- Javascript : Pave numerique genere par random - keypad - CodeS SourceS - Guide
- Toujours avoir un point (.) à la place d'une virgule dans un textbox ✓ - Forum - Visual Basic 6
Commentaires
Merci !
Je voulait un inputbox arrondi d'altitude entre 500 et 1500ml
(pour calcul descente de charge : neige).
Apparemment ça marche en utilisant un bout de ton code :
Private Sub cmd1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmd1.Click
Dim alTitude
tb1.Visible = False
line1:
alTitude = InputBox("Entrez une altitude" & Chr(10) & _
" Entre 500 ml et 1500 ml" _
, "ALTITUDE")
Try
Dim i As Integer
For i = 1 To Len(alTitude)
If Mid(alTitude, i, 1) = "." Then
Mid(alTitude, i, 1) = ","
End If
Next i
Merci, bonne route.
alTitude = CInt(alTitude + 0.4)
If alTitude < 500 Or alTitude > 1500 Then
GoTo line1
End If
Catch ex As Exception
GoTo line1
End Try
tb1.Text = alTitude
tb1.Visible = True
End Sub
End Class
Text1.Text = Replace(Text1.Text, ".", ",")
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.