केवल पाठ बॉक्स

Question

मैं किसी पाठ बॉक्स नियंत्रण है कि केवल संख्यात्मक मान स्वीकार बनाना चाहते में संख्यात्मक मान को अनुमति देते हैं।

मैं इस VB6 में कर सकते हैं?

Answer 1

पाठ बॉक्स पाठ Change घटना में, जाँच करता है, तो दर्ज किया गया मान एक संख्या है। यदि यह संख्या नहीं है तो पुराने मान को फिर से सेट करें।

Dim textval As String 
Dim numval As String 

Private Sub TextBox1_Change() 
    textval = TextBox1.Text 
    If IsNumeric(textval) Then 
    numval = textval 
    Else 
    TextBox1.Text = CStr(numval) 
    End If 
End Sub 

Answer 2

चेक इस बाहर:

http://www.vbforums.com/showthread.php?t=350067

आप प्रत्येक कुंजी दबाने जांच करने की जरूरत है, या आप अंत में एक मान्यता कर सकते हैं।

Answer 3

नियंत्रण बॉक्स> घटक> नियंत्रण -> माइक्रोसॉफ्ट मास्क संपादित नियंत्रण 6.0 पर राइट क्लिक करें।
या सामान्य पाठ बॉक्स के साथ:

Private Sub Text1_Validate(Cancel As Boolean) 
Cancel = Not IsNumeric(Text1.Text) 

End Sub 

Answer 4

मैं एपीआई मेरे लिए यह करते हैं। मैं इस फ़ंक्शन को .bas मॉड्यूल में जोड़ता हूं और इसे किसी भी संपादन नियंत्रण के लिए कॉल करता हूं जिसे मुझे केवल संख्यात्मक पर सेट करने की आवश्यकता होती है।

Option Explicit 

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


'set an editbox to numeric only - return the previous 
'style on success or zero on error 
Public Function ForceNumeric(ByVal EditControlhWnd As Long) As Long 
    Dim lngCurStyle As Long 
    Dim lngReturn As Long 

    lngCurStyle = GetWindowLong(EditControlhWnd, GWL_STYLE) 
    If lngCurStyle <> 0 Then 
     lngReturn = SetWindowLong(EditControlhWnd, GWL_STYLE, lngCurStyle Or ES_NUMBER) 
    End If 

    ForceNumeric = lngReturn 

End Function 

इसका उपयोग करने के लिए टेक्स्टबॉक्स के हैंडल के साथ फ़ंक्शन को कॉल करें।

Private Sub Form_Load() 
    Dim lngResult As Long 

    lngResult = ForceNumeric(Text1.hwnd) 

End Sub 

Answer 5

मैं आम तौर पर इस कोड का उपयोग करें:

Private Sub text1_KeyPress(KeyAscii As Integer) 
    If Not IsNumeric(text1.Text & Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0 
End Sub 

Answer 6

निम्नलिखित पूर्णांकों के लिए इस्तेमाल किया जा सकता है:

Private Sub text1_KeyPress(KeyAscii As Integer) 
    If Not IsNumeric(text1.Text & Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0 
    if (KeyAscii>=43) and (KeyAscii<=46) Then KeyAscii = 0 
    'it ignores '-', '+', '.' and ',' 
End Sub 

Answer 7

मैं आमतौर पर इस कोड का उपयोग:

Private Sub text1_KeyPress(KeyAscii As Integer) 
    If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then 
     KeyAscii = 0 
    End If 
End Sub 

आशा इससे मदद मिलती है।

Answer 8

If Len(Text2.Text) > 0 Then 
    If IsNumeric(Text2.Text) = False Then 
     Text2.SetFocus 
     CreateObject("WScript.Shell").SendKeys "{BACKSPACE}" 
    End If 
End If 

Answer 9

इस कोड का प्रयास करें:

Private Sub Text1_Change() 
    textval = Text1.Text 
    If IsNumeric(textval) Then 
     numval = textval 
    Else 
     Text1.Text = CStr(numval) 
    End If 
End Sub