Bonjour, je suis nouveau dans la programmation VB, alors j'ai decidez de pas commencer trop dur... Alors j'ai fait un convertisseur de majuscules => minuscules et vis-versa.
Source / Exemple :
Private Sub Command1_Click()
'On declare la variable a
Dim a As String
'La variable a prend la valeur du champ Text1 convertit en minuscule
a = LCase("" & Text1.Text)
'On marque la phrase transformée en minuscule dans le champ Text1
Text1.Text = "" & a
'On declare la variable b
Dim b As String
'La variable b prend la valeur du nombre de caractères dans le champs Text1
b = Len("" & Text1.Text)
'On marque le nombre de caractere que contient le champs Text1 dans le champs Text2 grace a la variable b
Text2.Text = "" & b
End Sub
Private Sub Command2_Click()
'On declare la variable c
Dim c As String
'La variable c prend la valeur du champ Text1 convertit en majuscule
c = UCase("" & Text1.Text)
'On marque la phrase transformée en majuscule dans le champ Text1
Text1.Text = "" & c
'On declare la variable d
Dim d As String
'La variable d prend la valeur du nombre de caractères dans le champs Text1
d = Len("" & Text1.Text)
'On marque le nombre de caractere que contient le champs Text1 dans le champs Text2 brace a la variable d
Text2.Text = "" & d
End Sub
Private Sub mnuabout_Click()
'Quand on clique sur about, on affiche une MsgBox avec les infos dedans
about = MsgBox("Convertisseur v1 par Loïc", vb1, "Convertisseur")
End Sub
Private Sub mnufichierquitter_Click()
'Quand on met Fichier => Quitter le programme s'arrete
Unload Me
End Sub
Conclusion :
C'est mon tout premier programme en VB, alors critiquer pas trop. ;-)
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.