🚀 go-pugleaf

Użytkownik "skyblast" <skyblast@linuxmail.org> napisał w wiadomości 
news:dk5al1$2kr$1@nemesis.news.tpi.pl...
> Do blokowania wprowadzania liter w texbox-y używam czegoś takiego:
>
> Private Sub TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
>    If Not (IsNumeric(Chr(KeyAscii))) Then KeyAscii = 0
>    If IsNull(TextBox.Text) = True Then KeyAscii = 48
> End Sub

No niestety, nie dziala :/. Pojawia sie kominukat ze typ nie zosta wczesniej 
zdefiniowany. Mozliwe ze robie jakis blad, bo dopiero raczkuje w VB. Moj kod 
podpiety pod pole tekstowe wyglada tak:

Private Sub Text2_Change()

    If Text2.Text < 0 Then
        MsgBox ("The value must be from the range 0-255")
        Tex2.Text = 0
    ElseIf Text2.Text > 255 Then
        MsgBox ("The value must be from the range 0-255")
        Text2.Text = 0
    End If

    HScroll1.Value = Text2.Text

End Sub

Myslalem zeby uzyc czegos takiego:

If Not IsNumeric(Text2.Text) Then Text2.Text = ""

ale tez nie dziala.

Wartosc pola tekstowego, z racji tego czym jest, domyslnie chyba jest 
deklarowana jako String. W moim wypadku samoczynnie sie przedeklarowala na 
format numeryczny dzieki tym porownaniom <>0. Moze bredze bo nie znam 
tematu, ale nie da sie zadeklarowac na stale tego pola jako tekstowe? 
Idealem byloby zblokowanie liter, ale nie mam pojecia jak to zrobic zeby 
dzialalo.

Pozdr

stayheavy