How to format text box dynamically

[mariabenita]

I am novice VB programmer. Is there any posible way to format text box dynamically. For example, I have text box named txtUniPrice. I want to control that only digit characters should be accepted on the text box. I'll tried to use DataFormat properties in '#,###,##0.00' format but it doesn't work.

Hope you can help me.

 

[MrMoocow]

Do you want only numberss to be addable? Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.

 

[mariabenita]

Yes, I want only numbers should be accepted on the text box

 

[MrMoocow]

This is form vb2the max:
Put this is a module:



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

' Force a TextBox control to accept only numeric digits
' Cancel the effect by passing Force = False
'
' Note that it only accepts positive integer values

Sub ForceTextBoxNumeric(TextBox As TextBox, Optional Force As Boolean = True)
Dim style As Long
Const GWL_STYLE = (-16)
Const ES_NUMBER = &H2000

' get current style
style = GetWindowLong(TextBox.hWnd, GWL_STYLE)
If Force Then
style = style Or ES_NUMBER
Else
style = style And Not ES_NUMBER
End If
' enforce new style
SetWindowLong TextBox.hWnd, GWL_STYLE, style
End Sub

Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.