Visual Basic applikationer typisk tillade brugere at indtaste data ved hjælp af tastaturet. Sanitizing og omdanne denne rå information til brugbare data er en afgørende opgave for udvikleren . For eksempel er det ofte nødvendigt at filtrere og fjerne ikke- alfabetiske tegn for at beskytte programmer fra sikkerheds exploits. Udrensning data og opretholde ensartethed er vigtig, når lagring af data, som vil forhindre oprettelsen af dubletter . Visual Basic 6 giver mange streng håndtering funktioner , gør det en enkel opgave at skrive kode , der kontrollerer for ikke- alfabetiske tegn . Instruktioner
1
Open Visual Basic 6 fra "Start "-ikonet , som ligger på Windows-proceslinjen .
2
Vælg " Standard.exe ", og klik på "Åbn " at starte en ny Visual Basic 6 ansøgning.
3
Træk " tekstboks " ikonet til vinduet mærket " Form1 ", skaber en tekstboks mærket " Tekst1 . "
< br > 4.
Træk " CommandButton " ikonet til vinduet mærket " Form1 ", at skabe en knap mærket " Command1 . "
5
Dobbeltklik på knappen mærket " Command1 " for at åbne koden vindue . Nedenfor mærket line " Private Sub Command1_Click ()" indsæt koden : Hej
dim scompare As String
dim iTæller As Integer
iTæller = 1 Til Len ( Text1. Text)
scompare = Mid $ ( Text1.Text , iTæller , 1)
Text1.Text = Mid $ ( Text1.Text , iTæller + 1 , Len _ ( Text1.Textt ) )
Hvis scompare Like ( " [ AZ] ") eller _
scompare Like ( " [az] ") eller _
scompare Like ( "#" ) Så < br >
MsgBox ( " Alpa tegn only" )
Else
MsgBox ( Non- alfabetiske tegn fundet " )
Exit Function
End Hvis
Næste iTæller
6
Tryk på "F5 "-tasten for at udføre Visual Basic-program . Skriv den tekst, du ønsker at kontrollere i tekstboksen. Klik på knappen " Command1 , "og en besked vil blive display kontrollere, om teksten er alfabetisk eller ej.