Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: głupoti w textbox
anonim




Typ: Nie zarejestrowany
głupoti w textbox

problem: textbox głupotoodporny
do TEXTBOXA muszę wpisać tylko liczby z określonego przedziału(to mi działa), ale jak zrobić aby podczas wpisywania liczby mniejszej od zera wyskakiwal komunikat,ze np liczba nie moze byc mniejsza od zera, oraz gdy wpiszę literę też wyskakiwał komunikat!
prosze o pomoc

13-06-2004 15:44
  
skabszo




Typ: neutral
Postów: 2
Zarejestrowany: Jun 2004

wg mnie masz to zrobić tak:
If Value ( >-- to jest Twoja wartość <-- )= 0 Then
MsgBox "Wpisz liczbę dodatnią"
End If

tak mi sie oczywiscie zdaje i moge sie mylić bo jestem prawie zielony w VB

13-06-2004 15:52
Pokaż profil skabszo  Wyślij email do skabszo        2759048
anonim




Typ: Nie zarejestrowany

no niesety tak niedziała!

13-06-2004 19:31
  
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Prosty przykład kontrolki która obsługuje tylko cyfry jest do ściągnięcia na stronie http://www.vbtools.atelier.pl/vbtips.php?dzial=37, można oczywiście bez komunikatów, a tylko z blokowaniem wprowadznia niepożądanych znaków.


_____________________________________________
Karolina

14-06-2004 09:17
Pokaż profil karolinavb  Wyślij email do karolinavb   
anonim




Typ: Nie zarejestrowany

dziekuje Karolinko! wlasnie o to mi chodyilo! male zmiany i dziala jak chce, pozdrawiam

14-06-2004 10:01
  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Jeszcze można tak:
if text1.text<>abs(text1.text) then msgbox "..."


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

18-06-2004 14:28
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Zawsze możesz zrobić to tak, by automatycznie zamieniał wszystko na liczbę dodatnią.

Private Sub Textbox_KeyDown(<i co tutaj dalej jest>
TextBox.Text = Abs(Val(TextBox.Text))
End sub


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

22-06-2004 13:47
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

nie radze tego tam wstawiac... chyba marcin_an nie sprawdzil tego...
przy probie zkasowania zawartosci textboxa automatycznie ladowane jest ZERO - a jezeli chcesz poprawic 12 na 4 to po skasowaniu 12 i wduszeniu 4 zaraz pojawi sie 40

22-06-2004 14:35
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 7 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1