devxlogo

ForceTextBoxNumeric – Create a numeric Textbox

ForceTextBoxNumeric – Create a numeric Textbox

Why Trust Us 

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _    (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate 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 valuesSub 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, styleEnd Sub

See also  Small Business Strategies with Venmo
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist

Charlie Frank

Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
View Author
Show More