0/5 (17 avis)
Snippet vu 8 710 fois - Téléchargée 40 fois
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
31 mars 2005 à 16:43
Text1.Text = Replace(Text1.Text, ".", ",")
11 juin 2004 à 02:04
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
28 déc. 2003 à 12:22
28 déc. 2003 à 04:29
28 déc. 2003 à 03:14
Merci !
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.