Copiez le code ci-dessous directement dans le formulaire pour tester Private Sub Form_Load()
Dim petit comme String
Dim Big As String
Dim xiaoShu en tant que célibataire
Dim BaifenShu comme chaîne
small = InputBox("Veuillez entrer une chaîne")
Grand = UCase (petit)
MsgBox "La chaîne que vous avez saisie sera convertie en majuscule et le résultat sera :" & vbCrLf & Big
xiaoShu = InputBox ("Veuillez saisir une décimale qui doit être convertie en pourcentage :")
BaifenShu = CStr(xiaoShu * 100) & "%"
MsgBox "Le pourcentage correspondant à la décimale que vous avez saisi est :" & BaifenShu
Fin du sous-marin
Par exemple, lorsque vous saisissez des majuscules, l'événement text_change est déclenché et il sera modifié en minuscules, ce qui déclenchera l'événement de changement, et les minuscules seront à nouveau modifiées en majuscules. Il s'agit d'une boucle infinie, conduisant à un débordement
.Vous pouvez définir une variable pour enregistrer l'état actuel. Une fois modifiée, elle ne sera plus exécutée tant qu'il n'y aura pas de saisie au clavier ou à la souris
.Dim b comme booléen
Sous-marin privé t1_Change()
Si b Alors
b = Faux
t1.SelStart = Len(t1.Texte)
a = Droite(t1.Texte, 1)
Si Asc(a) >= 65 Et Asc(a)
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + LCase(a)
ElseIf Asc(a) >= 97 Et Asc(a)
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + UCase(a)
ElseIf Asc(a) = 32 Alors
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + a
Autre
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + "*"
Fin si
Fin si
Fin du sous-marin
Sub privé t1_KeyDown (KeyCode en entier, Shift en entier)
b = Vrai
Fin du sous-marin
Private Sub t1_MouseDown (Bouton en tant qu'entier, Shift en tant qu'entier, X en tant que simple, Y en tant que simple)
b = Vrai
Fin du sous-marin
À proprement parler, les touches Entrée et Retour arrière ne doivent pas être converties. Si vous convertissez deux textes, vous ne pourrez pas suivre la progression. Vous ne pouvez le faire que selon les instructions de l'affiche originale.
Sous-Formulaire Privé_Load()Texte1.Texte = ""
Texte2.Texte = ""
Fin du sous-marin
Sous-texte privé1_KeyPress (KeyAscii comme entier)
Sélectionnez Case KeyAscii
Cas 65 à 90
Text2.Text = Text2.Text & LCase(Chr(KeyAscii))
Cas 97 à 122
Text2.Text = Text2.Text & UCase(Chr(KeyAscii))
Cas 32
Text2.Text = Text2.Text & Chr(KeyAscii)
Autre cas
Texte2.Texte = Texte2.Texte & Chr(42)
Fin de la sélection
Fin du sous-marin
Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!