Tekstbox hvor man kun kan skrive tal

\'-------------------------------- Form1 --------------------------------
Option Explicit

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

Public Function OnlyNum(tBox As TextBox) As Long
Dim DefaultStyle As Long
  DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE): tBox.Text = \"\"
  OnlyNum = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_NUMBER)
End Function

Private Sub Form_Load()
OnlyNum Text1
End Sub
\'-------------------------------- Form1 --------------------------------

der er en lidt lettere metode :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

en lidt letere metode. :)
if not isnumeric(text1.text) then
text1.text = \"\"
end if

simon_jacobsen:> Så sletter du jo indeholdet ...

sjh:> Må jeg spørge om noget i forbindelse med din kode ? Jeg fik lige gravet ES_UPPERCASE og ES_LOWERCASE frem og ville lave en lille funktion med dem .. kan man på nogen måde FJERNE en \"style\" igen ? Altså f.eks. med Or ES_NUMBER, kan man så fjerne ES_NUMBER fra DefaultStyle istedet ?

er det ikke det der er meningen, hvis teksten ikke er et tal ?
jeg ved godt det ikke er den bedste løsning men det virker.

Jo, den skal slette det TEGN der bliver indtastet, ikke hele teksten.

ok så ved jeg det ikke, men det er da en muglighed, hvis man ikke kan finde en bedre løsning :)

FJERNE en \"style\" igen.

det kan man vel, men det ved jeg ikke lige hvordan man gør.


funktion med dem .. (UPPER... LOWER...)

Private Declare Function GetWindowLong Lib \"user32\" Alias \"GetWindowLongA\" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib \"user32\" Alias \"SetWindowLongA\" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const ES_LOWERCASE = &H10&
Private Const ES_UPPERCASE = &H8&
Private Const ES_NUMBER = &H2000&

Public Function OnlyNum(tBox As TextBox)
Dim DefaultStyle As Long
  DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
OnlyNum = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_NUMBER)
End Function

Public Function OnlyUpperCase(tBox As TextBox)
Dim DefaultStyle As Long
  DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
OnlyUpperCase = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_UPPERCASE)
End Function

Public Function OnlyLowerCase(tBox As TextBox)
Dim DefaultStyle As Long
  DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
OnlyLowerCase = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_LOWERCASE)
End Function

sjh:> Jeg havde lavet en ModifyTextBox(.., Optional AllowNumbersOnly As Boolean = False, ..) men gad ik da jeg ikke anede hvordan jeg fjernede styles igen *G*

tdaugaard > Prøv denne her. :-)



Private Declare Function GetWindowLong Lib \"user32\" Alias \"GetWindowLongA\" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib \"user32\" Alias \"SetWindowLongA\" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const ES_LOWERCASE = &H10&
Private Const ES_UPPERCASE = &H8&
Private Const ES_NUMBER = &H2000&

Public Function OnlyNum(tBox As TextBox, Flag As Boolean)
Dim DefaultStyle As Long
  DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
  If Flag Then
    DefaultStyle = DefaultStyle Or ES_NUMBER
      Else
    DefaultStyle = DefaultStyle And (Not ES_NUMBER)
  End If
OnlyNum = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle)
End Function

Public Function OnlyUpperCase(tBox As TextBox, Flag As Boolean)
Dim DefaultStyle As Long
  DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
  If Flag Then
    DefaultStyle = DefaultStyle Or ES_UPPERCASE
      Else
    DefaultStyle = DefaultStyle And (Not ES_UPPERCASE)
  End If
OnlyUpperCase = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle)
End Function

Public Function OnlyLowerCase(tBox As TextBox, Flag As Boolean)
Dim DefaultStyle As Long

  DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
  If Flag Then
    DefaultStyle = DefaultStyle Or ES_LOWERCASE
      Else
    DefaultStyle = DefaultStyle And (Not ES_LOWERCASE)
  End If
OnlyLowerCase = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle)
End Function

Private Sub Check1_Click()
  \'OnlyNum Text1, Check1.Value
  \'OnlyUpperCase Text1, Check1.Value
  \'OnlyLowerCase Text1, Check1.Value
End Sub

en lidt letere metode. :)
if not isnumeric(text1.text) then
text1.text = value(text1.text)
end if

' så vil teksten altid kun være tal :)