TextBox pouze pro zadávání čísel

Postup:
Založte nový projekt. V deklarační části formuláře zapište:

Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Const ES_NUMBER = &H2000&
Private Const GWL_STYLE = (-16)

Na formulář dejte tlačítko a textbox. Na událost Click tlačítka zapište:

Private Sub Command1_Click()
   Dim tmpValue&
   Dim fAlignment&
   Dim ret&
   fAlignment& = ES_NUMBER
   tmpValue& = GetWindowLong&(Text1.hwnd, GWL_STYLE)
   ret& = SetWindowLong&(Text1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
   Text1.Refresh
End Sub

Zpět

Autor: The Bozena