Dans la leçon précédente , nous avons vu que nous avons eu quelques problèmes avec notre code. VB a placé une ligne ondulée bleue sous le nom de nos sous-ensembles:
Exécutez votre programme et le tester. Cliquez sur votre bouton. Vous devriez obtenir une boîte de message indiquant «20».
Nous allons maintenant ajouter une fonction à notre nouveau module.
Donc, mettre en place le code de votre module. Lorsque vous avez votre nouveau module s'affiche, tapez la fonction suivante:
Fonction publique VerifyPostcode (ByVal code As String) As String
code = StrConv (code postal, VbStrConv.UpperCase)
Retour code postal
End Function
Lorsque vous avez terminé, votre fenêtre de codage devrait ressembler à ceci:
TS1 4jh
Qu'est-ce que vous voulez est un code postal qui lit:
TS1 4JH
La nouvelle fonction permet de convertir un code postal remis à elle, et assurez-vous que les lettres sont en majuscules. La fonction intégré qui s'occupe de la conversion est à explorer. C'est celle-ci:
StrConv ()
C'est court for String Conversion.
Entre les parenthèses, VB besoin de vous pour mettre deux choses: la
chaîne que vous souhaitez convertir, et quel type de conversion que vous
voulez.
Dès que vous tapez une virgule après la chaîne que vous souhaitez
convertir, VB affiche une boîte de types de conversion disponibles:
StrConv (code postal, VbStrConv.UpperCase)
La fonction sera alors de convertir toutes les lettres de code dans les capitales. Un autre utile sur la liste est ProperCase. Ce que cela va faire est de prendre une corde et de convertir toutes les lettres du premier mot (ou des mots) dans les capitales. Ceci est utile pour les adresses. Donc, si quelqu'un est entré ce qu'une adresse:
49 rue malouines
Le point VbStrConv.ProperCase serait le convertir à ceci:
49, rue Falkland
Mais revenons à notre code. Sélectionnez votre formulaire à nouveau. Ensuite, ajoutez un nouveau bouton, et une zone de texte à lui. Modifiez la propriété Text de la zone de texte à TS1 4jh. Double-cliquez sur le bouton, et ajoutez le code suivant pour cela:
Dim CheckPostcode As String
Dim ConvertPostcode As String
Dim ConvertPostcode As String
CheckPostcode = Trim (TextBox1.Text)
ConvertPostcode = VerifyPostcode (CheckPostcode)
= TextBox1.Text ConvertPostcode
La première chose que nous faisons est d'obtenir le texte de la zone de texte. Ceci est passée à une variable appelée CheckPostcode. La ligne suivante appelle notre nouvelle fonction. Nous remettons le code postal nous avons obtenu de la zone de texte:
ConvertPostcode = VerifyPostcode (CheckPostcode)
Quand notre fonction a terminé la conversion, il remettra arrière
(retour) le résultat et le mettre dans la variable ConvertPostcode. Il est ensuite replacé dans la zone de texte. Exécutez votre programme et cliquez sur le nouveau bouton. Vous devriez constater que les lettres dans le code sont convertis en majuscules.
Le point sur la création d'un module pour loger tous vos Subs et fonctions, c'est qu'ils sont dans un fichier séparé. Vous pouvez écrire plus Subs et fonctions de votre module, ceux qui valident texte provenant d'une zone de texte (un e-mail checker, par exemple, ou celui qui utilise la conversion de chaîne ProperCase). Vous auriez alors tout ce code dans un fichier que vous pouvez ajouter à totalement différents projets. Si les sous-marins et les fonctions ont été dans le même code pour le formulaire, vous devez importer l'ensemble du formulaire avant de pouvoir utiliser les sous-marins et des fonctions que vous avez créées très utiles.
Mais c'est assez sur les modules. Nous allons passer à une nouvelle section.
0 commentaires:
Enregistrer un commentaire