Create Numeric-Input Text Boxes

Create Numeric-Input Text Boxes

In almost every application’s project you come across, fields necessitate the use of numeric text boxes-text boxes that should accept only numeric values. You can deal with this situation by either using a Masked Edit control or by writing code in the KeyPress event procedure of every text box. Here is an alternative method for accomplishing the same objective that can be used with the 32-bit version of VB4. The advantage of this method is that it eliminates the need to write code in every text box. Also, because this method is applicable to the basic text-box behavior of control in VB4, you don’t need to worry about the specific behavior of the Masked Edit control.To see how this method works, load a new project and insert a new module, “Module1,” into it. Now insert these statements in the declarations section of Module1:

 Declare Function SetWindowLong Lib "user32" Alias _"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _	ByVal dwNewLong As Long) As LongDeclare Function GetWindowLong Lib "user32" Alias _	"GetWindowLongA" (ByVal hwnd As Long, _	ByVal nIndex As Long) As LongSub NumericEdit(TheControl As Control)	Const ES_NUMBER = &H2000&	Const GWL_STYLE = (-16)	Dim x As Long	Dim Estyle As Long	EStyle = GetWindowLong(TheControl.hwnd, GWL_STYLE)	EStyle = EStyle Or ES_NUMBER	x = SetWindowLong(TheConrol.hwnd, GWL_STYLE, EStyle)End Sub

Next, insert a new form into the project. Add a text box, Text1, to this form and place this code in the Form_Load event procedure:

 Call NumericEdit(Text1)
Share the Post:
XDR solutions

The Benefits of Using XDR Solutions

Cybercriminals constantly adapt their strategies, developing newer, more powerful, and intelligent ways to attack your network. Since security professionals must innovate as well, more conventional endpoint detection solutions have evolved

AI is revolutionizing fraud detection

How AI is Revolutionizing Fraud Detection

Artificial intelligence – commonly known as AI – means a form of technology with multiple uses. As a result, it has become extremely valuable to a number of businesses across

AI innovation

Companies Leading AI Innovation in 2023

Artificial intelligence (AI) has been transforming industries and revolutionizing business operations. AI’s potential to enhance efficiency and productivity has become crucial to many businesses. As we move into 2023, several

data fivetran pricing

Fivetran Pricing Explained

One of the biggest trends of the 21st century is the massive surge in analytics. Analytics is the process of utilizing data to drive future decision-making. With so much of

kubernetes logging

Kubernetes Logging: What You Need to Know

Kubernetes from Google is one of the most popular open-source and free container management solutions made to make managing and deploying applications easier. It has a solid architecture that makes

ransomware cyber attack

Why Is Ransomware Such a Major Threat?

One of the most significant cyber threats faced by modern organizations is a ransomware attack. Ransomware attacks have grown in both sophistication and frequency over the past few years, forcing

data dictionary

Tools You Need to Make a Data Dictionary

Data dictionaries are crucial for organizations of all sizes that deal with large amounts of data. they are centralized repositories of all the data in organizations, including metadata such as