Stap 7: Codering, deel II
Maak je geen zorgen over wat net voor nu verschenen. In plaats daarvan Klik boven de woorden "Private Sub" en boven deze regel, typ:Dim txtLen As Integer
"Dim" betekent dat het volgende woord zullen een variabele die kan worden gewijzigd, en het is van het type Integer, een nummer dat niet kan een decimaal getal worden is.
Ga nu onder het "Private Sub" lijn aan uw gebeurtenis-Handler schrijven. Typ of kopieer en plak deze lijnen. Zorg ervoor dat ze na de regel 'Private Sub' en voor 'End Sub'
txtLen = Len (verborgen. Relevante tekst)
petitie. Tekst = Microsoft.VisualBasic.Left ("beantwoord de volgende vraag:", txtLen)
Elke keer dat u iets intypt in die verborgen textbox nu, verandert de waarde van txtLen, die een variabele, aan het aantal tekens (letters, spaties, enz.) in die doos. Als u 'Hallo', dan txtLen typt = 5. De volgende regel wordt de tekst in het vak van de petitie om te "Beantwoord de volgende vraag." Echter, het toont alleen het aantal tekens dat u in het verborgen vak hebt getypt. Als u hebt getypt "Hello", zal vervolgens het verzoekschrift vak zeggen "Middelen" omdat dit de eerste vijf tekens van de zin.
Daarna, voeg deze code toe:
Als Microsoft.VisualBasic.Right (verborgen. Tekst, 1) = "." Vervolgens
stiekeme. Tekst = Microsoft.VisualBasic.Left (verborgen. Tekst, Len (verborgen. Tekst) - 1)
Met deze code, wanneer u een punt, typt zal de tekst in die verborgen label "stiekeme" veranderen aan wat er in het verborgen tekstvak, zonder de periode. Dus als u een periode aan het einde van de zin wilt, u hebt twee periodes typt. Voeg deze code vervolgens toe op een nieuwe regel:
Als verzoekschrift. Tekst = "beantwoord de volgende vraag:" dan
vraag. Ingeschakeld = True
End If
Nu, als de petitie wordt volledig getypt uit, vervolgens het vak vraag kunt u typt in het.