Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Pravým tlačidlom myši na ovládací prvok textové pole , ktoré chcete skontrolovať , a vyberte Vlastnosti . Kliknite na ikonu udalosti , ktorá sa podobá blesku . Prejdite na udalosť KeyDown a dvakrát kliknite vedľa neho vytvoriť udalosť
2
Pridať globálne nasledujúce premenné v deklaračné oblasti pod Public Class skopírujte a vložte nasledujúci kód vnútri udalosti KeyDown pre ovládací prvok textové pole : notANumber = False e.keyCode Ak e.keyCode e.keyCode < > Keys.Back Potom notANumber = TRUE End If End If End If ak Control.ModifierKeys = Keys.Shift Potom notANumber = TRUE End If Kliknite na udalosti drop - down box a zvoľte KeyPress vytvoriť udalosť postup . Skopírujte nasledujúci kód vnútri tejto procedúre udalosti : Ak notANumber = True Then e.Handled = TRUE End If Press " F5 " pre spustenie programu . Váš text box bude akceptovať len čísla .
< P > Dim notANumber As Boolean
Sims 3
4
5