🚀 go-pugleaf

stayheavy napisał(a):
> 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 
> 
> 
Mój, błąd - podałem Ci sposób działający pod VBA Excela, spróbuj tego:

Private Sub Text2_KeyPress(KeyAscii As Integer)
     If Not (IsNumeric(Chr(KeyAscii))) Then KeyAscii = 0
     If IsNull(Text2.Text) = True Then KeyAscii = 48
End Sub

I daj znać czy poszło. Pozdrawiam.