Étape 7: Codage, partie II
Ne vous inquiétez pas ce qui vient de paraître pour le moment. Au lieu de cela, cliquez au-dessus des mots « Private Sub » et au-dessus de cette ligne, tapez :Dim txtLen As Integer
« Dim » signifie que le mot suivant sera une variable qui peut être changée, et il est du type Integer, qui est un nombre qui ne peut pas être un nombre décimal.
Maintenant, allez sous le seuil de « Private Sub » d’écrire votre gestionnaire d’événements. Tapez ou copiez et collez ces lignes. Assurez-vous qu’ils sont après la ligne « Private Sub » et avant « End Sub »
txtLen = Len (cachée. Texte)
pétition. Texte = Microsoft.VisualBasic.Left ("s’il vous plaît répondre à la question suivante:", txtLen)
Chaque fois que vous tapez quelque chose dans cette zone de texte masqué maintenant, la valeur de txtLen, qui est une variable, va changer le nombre de caractères (lettres, espaces, etc.) dans cette zone. Si vous saisissez « Bonjour », puis txtLen = 5. La ligne suivante modifie le texte dans la zone de la pétition pour « S’il vous plaît répondre à la question ». Toutefois, il ne montre que le nombre de caractères que vous avez tapé dans la zone cachée. Si vous avez tapé « Hello », la boîte de requête va dire « Plaider », parce que c’est les cinq premiers caractères de la phrase.
Ensuite, ajoutez ce code :
Si Microsoft.VisualBasic.Right (cachée. Texte, 1) = "." Puis
sournois. Texte = Microsoft.VisualBasic.Left (cachée. Texte, Len (cachée. Texte) - 1)
Avec ce code, lorsque vous tapez un point, le texte de cette étiquette masquée « sournois » va changer à tout ce qui est dans la zone de texte caché, sans la période. Donc si vous voulez un point à la fin de la phrase, vous aurez à taper deux périodes. Ensuite, ajoutez ce code sur une nouvelle ligne :
Si pétition. Text = "Veuillez répondre à la question suivante:" alors
question. Enabled = True
End If
Maintenant, si la pétition est entièrement tapée, puis la boîte de question vous permettra de taper dedans.