hadgph
دوشنبه 19 تیر 1391, 21:35 عصر
برای ایجاد نامبرباکسها راه های مختلفی است، بهترین موردی که پیدا کردم ماژول زیر بود
Public Class NumericTextBox
Inherits TextBox
Private SpaceOK As Boolean = False
' Restricts the entry of characters to digits (including hex),
' the negative sign, the e decimal point, and editing keystrokes (backspace).
Protected Overrides Sub OnKeyPress(ByVal e As KeyPressEventArgs)
MyBase.OnKeyPress(e)
Dim numberFormatInfo As Globalization.NumberFormatInfo = System.Globalization.CultureInfo.CurrentCulture.Nu mberFormat
Dim decimalSeparator As String = numberFormatInfo.NumberDecimalSeparator
Dim groupSeparator As String = numberFormatInfo.NumberGroupSeparator
Dim negativeSign As String = numberFormatInfo.NegativeSign
Dim keyInput As String = e.KeyChar.ToString()
If [Char].IsDigit(e.KeyChar) Then
' Digits are OK
ElseIf keyInput.Equals(decimalSeparator) OrElse keyInput.Equals(groupSeparator) OrElse keyInput.Equals(negativeSign) Then
' Decimal separator is OK
ElseIf e.KeyChar = vbBack Then
' Backspace key is OK
Else
' Consume this invalid key and beep.
e.Handled = True
End If
End Sub
Public ReadOnly Property IntValue() As Integer
Get
Return Int32.Parse(Me.Text)
End Get
End Property
Public ReadOnly Property DecimalValue() As Decimal
Get
Return [Decimal].Parse(Me.Text)
End Get
End Property
Public Property AllowSpace() As Boolean
Get
Return Me.SpaceOK
End Get
Set(ByVal value As Boolean)
Me.SpaceOK = value
End Set
End Property
End Class
اما مشکلی که داره کار کردن داخل فرم باهاش راحت نیست مثلا باید به شکل زیر داخل فرم تعریف بشه
' Create an instance of NumericTextBox.
Dim NumericTextBox1 As NumericTextBox = New NumericTextBox()
NumericTextBox1.Parent = Me
' Draw the bounds of the NumericTextBox.
NumericTextBox1.Bounds = New Rectangle(10, 10, 100, 100)
دوستان راه حل بهتری پیشنهاد میکنن؟:بوس:
Public Class NumericTextBox
Inherits TextBox
Private SpaceOK As Boolean = False
' Restricts the entry of characters to digits (including hex),
' the negative sign, the e decimal point, and editing keystrokes (backspace).
Protected Overrides Sub OnKeyPress(ByVal e As KeyPressEventArgs)
MyBase.OnKeyPress(e)
Dim numberFormatInfo As Globalization.NumberFormatInfo = System.Globalization.CultureInfo.CurrentCulture.Nu mberFormat
Dim decimalSeparator As String = numberFormatInfo.NumberDecimalSeparator
Dim groupSeparator As String = numberFormatInfo.NumberGroupSeparator
Dim negativeSign As String = numberFormatInfo.NegativeSign
Dim keyInput As String = e.KeyChar.ToString()
If [Char].IsDigit(e.KeyChar) Then
' Digits are OK
ElseIf keyInput.Equals(decimalSeparator) OrElse keyInput.Equals(groupSeparator) OrElse keyInput.Equals(negativeSign) Then
' Decimal separator is OK
ElseIf e.KeyChar = vbBack Then
' Backspace key is OK
Else
' Consume this invalid key and beep.
e.Handled = True
End If
End Sub
Public ReadOnly Property IntValue() As Integer
Get
Return Int32.Parse(Me.Text)
End Get
End Property
Public ReadOnly Property DecimalValue() As Decimal
Get
Return [Decimal].Parse(Me.Text)
End Get
End Property
Public Property AllowSpace() As Boolean
Get
Return Me.SpaceOK
End Get
Set(ByVal value As Boolean)
Me.SpaceOK = value
End Set
End Property
End Class
اما مشکلی که داره کار کردن داخل فرم باهاش راحت نیست مثلا باید به شکل زیر داخل فرم تعریف بشه
' Create an instance of NumericTextBox.
Dim NumericTextBox1 As NumericTextBox = New NumericTextBox()
NumericTextBox1.Parent = Me
' Draw the bounds of the NumericTextBox.
NumericTextBox1.Bounds = New Rectangle(10, 10, 100, 100)
دوستان راه حل بهتری پیشنهاد میکنن؟:بوس: