Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte Visual Basic 6 z ikony " Štart " , ktorý sa nachádza na paneli úloh systému Windows .
2
Vyberte " Standard.exe " a kliknite na " Otvoriť " spustiť novú aplikáciu Visual Basic 6 aplikácií .
3
Presuňte ikonu " textové pole " do okna s nápisom " Form1 " , vytvorenie textového poľa s označením " Text1 . "
4
Pretiahnite ikonu " CommandButton " do okna s nápisom " Form1 " , vytvára tlačidlo označené " Command1 . "
5
Dvojitým kliknutím na tlačidlo označené " Command1 " otvorte kód okno . Pod riadkom " Private Sub Command1_Click ( ) " vložte kód :
dim scompare As String
dim iCount As Integer
iCount = 1 Ľan ( Text1. text )
scompare = Mid $ ( Text1.Text , iCount , 1 )
Text1.Text = Mid $ ( Text1.Text , iCount + 1 , Ľan _ ( Text1.Textt ) )
Ak scompare Like ( " [ aZ ] " ) Alebo _
scompare Like ( " [ az ] " ) Alebo _
scompare Like ( " # " ) Potom
MsgBox ( " iba Alpa znaky " )
Else
MsgBox ( nájdených Non - abecedné znaky " )
Exit Function
Koniec ak
Ďalšie iCount
6
Stlačte klávesu " F5 " , na vykonanie aplikácie Visual Basic . Zadajte text , ktorý chcete skontrolovať v textovom poli . Kliknite na tlačidlo označené " Command1 , " a správa sa bude zobrazovať overenie , či text je abecedný , alebo nie .