Special Offer
Source Code *****Inventory
Management System in VB.Net***** Source
Code
With Multiple Features
BUY SOURCE CODE NOW, JUST $ 30
|
||
By Online Transfer
|
By PayPal
|
Numeric Text Box in VB.Net
Source code
Public Class UserNumericTextBox
Private
m_AllowDecimal As Boolean
= False
Private
m_AllowNegative As Boolean
= False
Private
m_AllowPluseSign As Boolean
= False
Private
m_Maxlength As Long
= 15
Private
m_Max As Long
= 100000000000000
Private
m_Min As Long
= 0
Public
BlinkColor As Color = Color.White
Private
timecount As Boolean
= True
Private
m_SelectAll As Boolean
Private
m_Decimals As Short
= 2
Private
m_allowToolTip As Boolean
= True
Private
m_ToolTip As String
Private
m_NextOnEnter As Boolean
= True
Private
m_AllowHelpText As Boolean
= True
Private
m_HelpText As String
Private
m_AllowExitonEcs As Boolean
= True
Private
IsEscKey As Boolean
= True
Private
AllowUpDownKeys As Boolean
= False
Private
IsQtyText As Boolean
= False
Private
GotFocusBackColor As Color = Color.Yellow
Private
LostFocusBackColor As Color = Color.White
Private
LostSize As Font = New
Font("Microsoft Sans Serif",
11.2, FontStyle.Regular)
Private
GotSize As Font = New
Font("Microsoft Sans Serif", 12,
FontStyle.Regular)
Private
FunctionKeysOk As Boolean
= False
Private
GotFontColor As Color = Color.Maroon
Private
LostFontColor As Color = Color.Blue
Private
CalValue As Decimal
= 0
Private
AllowSpecialChar As Boolean
= False
Private
m_AllowPerSign As Boolean
= False
Public Property AllowPerSign() As
Boolean
Get
Return
m_AllowPerSign
End Get
Set(ByVal value As Boolean)
m_AllowPerSign = value
End Set
End Property
Public Property GotFocusFontColor() As Color
Get
Return
GotFontColor
End Get
Set(ByVal value As
Color)
GotFontColor = value
End Set
End Property
Public Property AllowFormulas() As
Boolean
Get
Return
AllowSpecialChar
End Get
Set(ByVal value As Boolean)
AllowSpecialChar = value
End Set
End Property
Public Property LostFocusFontColor() As Color
Get
Return
LostFontColor
End Get
Set(ByVal value As
Color)
LostFontColor = value
End Set
End Property
Public Property UseFunctionKeys() As
Boolean
Get
Return
FunctionKeysOk
End Get
Set(ByVal value As Boolean)
FunctionKeysOk = value
End Set
End Property
Public ReadOnly Property
GetCaseValue() As Double
Get
If
CBool(InStr(Me.Text,
"-")) = True
Then
Dim
Len As Integer
Len = InStr(Me.Text, "-")
Return
CDbl(Me.Text.Substring(0,
Len - 1))
Else
Return
CDbl(Me.Text)
End
If
End Get
End Property
Public ReadOnly Property
GetUnitValue() As Double
Get
If
CBool(InStr(Me.Text,
"-")) = True
Then
Dim
Len As Integer
Len = InStr(Me.Text, "-")
Return
CDbl(Me.Text.Substring(Len,
Me.Text.Length - Len))
Else
Return
0
End
If
End Get
End Property
Public Property AllowForQty() As
Boolean
Get
Return
IsQtyText
End Get
Set(ByVal value As Boolean)
IsQtyText = value
If
value = True Then
m_AllowNegative = False
AllowUpDownKeys = False
Else
m_AllowNegative = True
AllowUpDownKeys = True
End
If
End Set
End Property
Public Property ExitOnEscKey()
Get
Return
IsEscKey
End Get
Set(ByVal value)
IsEscKey = value
End Set
End Property
Public Property UseUpDownArrowKeys() As Boolean
Get
Return
AllowUpDownKeys
End Get
Set(ByVal value As Boolean)
AllowUpDownKeys = value
End Set
End Property
Public Property NextOnEnter() As
Boolean
Get
Return
m_NextOnEnter
End Get
Set(ByVal value As Boolean)
m_NextOnEnter = value
End Set
End Property
Public Property HelpText() As
String
Get
Return
m_HelpText
End Get
Set(ByVal value As String)
m_HelpText = value
End Set
End Property
Public Property AllHelpText() As
Boolean
Get
Return
m_AllowHelpText
End Get
Set(ByVal value As Boolean)
m_AllowHelpText = value
Invalidate()
End Set
End Property
Public Property DecimalPlaces() As
Short
Get
Return
m_Decimals
End Get
Set(ByVal value As Short)
m_Decimals = value
Invalidate()
End Set
End Property
Public Property AllowToolTip() As
Boolean
Get
Return
m_allowToolTip
End Get
Set(ByVal value As Boolean)
m_allowToolTip = value
Invalidate()
End Set
End Property
Public Property ToolTip() As
String
Get
Return
m_ToolTip
End Get
Set(ByVal value As String)
m_ToolTip = value
End Set
End Property
Public Property Max() As Long
Get
Return
m_Max
End Get
Set(ByVal Value As Long)
m_Max = Value
' Invalidate()
End Set
End Property
Public Property Min() As Long
Get
Return
m_Min
End Get
Set(ByVal Value As Long)
m_Min = Value
Invalidate()
End Set
End Property
Public Property AllowNegative() As
Boolean
Get
Return
m_AllowNegative
End Get
Set(ByVal Value As Boolean)
m_AllowNegative = Value
If
Value = True Then
m_Min = -100000000000000
IsQtyText = False
Else
m_Min = 0
IsQtyText = True
End
If
End Set
End Property
Public Property AllowPlusSign() As
Boolean
Get
Return
m_AllowPluseSign
End Get
Set(ByVal Value As Boolean)
m_AllowPluseSign = Value
Invalidate(True)
End Set
End Property
Public Property AllowDecimal() As
Boolean
Get
Return
m_AllowDecimal
End Get
Set(ByVal Value As Boolean)
m_AllowDecimal = Value
Invalidate()
End Set
End Property
Private Sub sender_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
Me.KeyPress
If
e.KeyChar = Chr(Keys.Back) Then Exit Sub
Dim
EscKey As Boolean
= False
If
e.KeyChar = Microsoft.VisualBasic.Chr(Keys.Escape) Then
Me.FindForm.Dispose()
EscKey = True
GoTo
ExitLbl
End If
If
e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
sender.TopLevelControl.SelectNextControl(sender, True, True, True, True)
End If
If
AllowSpecialChar = True Then
If
e.KeyChar = "+" Or e.KeyChar = "-"
Or e.KeyChar = "/"
Or e.KeyChar = "*"
Or e.KeyChar = "("
Or e.KeyChar = ")"
Then
e.Handled = False
Exit
Sub
ElseIf
m_AllowPerSign = True Then
If
e.KeyChar = "%" Then
e.Handled = False
Exit
Sub
End
If
End
If
End If
If
sender.SelectionLength = Len(sender.text) Then
If
AllowNegative Then
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "." And Not CBool(InStr(sender.Text, ".")))
Xor (e.KeyChar = "-"
And Not CBool(InStr(sender.Text, "-"))
And sender.SelectionStart = 0))
Else
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "." And Not CBool(InStr(sender.Text, "."))))
End
If
If
AllowForQty Then
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "." And Not CBool(InStr(sender.Text, ".")))
Xor (e.KeyChar = "-"
And Not CBool(InStr(sender.Text, "-"))
And sender.SelectionStart <> 0))
Else
e.Handled = Not IsNumeric(e.KeyChar)
End
If
Exit
Sub
End If
' Recently added start
If
AllowDecimal = True And
sender.text.ToString.Contains(".")
= True And
IsContainSplCha(sender) = False Then
If
Len(sender.text.ToString.Substring(sender.text.ToString.IndexOf(".") + 1)) >= 2 Then
e.Handled = True
Exit
Sub
End
If
ElseIf
IsContainSplCha(sender) = True Then
If
AllowDecimal = False Then
If
AllowNegative Then
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "-" And Not CBool(InStr(sender.Text, "-"))
And sender.SelectionStart = 0))
Else
e.Handled = Not IsNumeric(e.KeyChar)
End
If
If
AllowForQty Then
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "-" And Not CBool(InStr(sender.Text, "-"))
And sender.SelectionStart <> 0))
Else
e.Handled = Not IsNumeric(e.KeyChar)
End
If
Else
If
AllowNegative Then
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "." And Not CBool(InStr(sender.Text, ".")))
Xor (e.KeyChar = "-"
And Not CBool(InStr(sender.Text, "-"))
And sender.SelectionStart <> 0))
Else
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "." And Not CBool(InStr(sender.Text, "."))))
End
If
If
AllowForQty Then
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "." And Not CBool(InStr(sender.Text, ".")))
Xor (e.KeyChar = "-"
And Not CBool(InStr(sender.Text, "-"))
And sender.SelectionStart = 0))
Else
e.Handled = Not IsNumeric(e.KeyChar)
End
If
If
e.KeyChar = "." Then e.Handled = False
End
If
Else
If
AllowDecimal = False Then
If
AllowNegative Then
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "-" And Not CBool(InStr(sender.Text, "-"))
And sender.SelectionStart = 0))
Else
e.Handled = Not IsNumeric(e.KeyChar)
End
If
If
AllowForQty Then
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "-" And Not CBool(InStr(sender.Text, "-"))
And sender.SelectionStart <> 0))
Else
e.Handled = Not IsNumeric(e.KeyChar)
End
If
Else
If
AllowNegative Then
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "." And Not CBool(InStr(sender.Text, ".")))
Xor (e.KeyChar = "-"
And Not CBool(InStr(sender.Text, "-"))
And sender.SelectionStart = 0))
Else
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "." And Not CBool(InStr(sender.Text, "."))))
End
If
If
AllowForQty Then
e.Handled = Not (IsNumeric(e.KeyChar) Or
(e.KeyChar = "." And Not CBool(InStr(sender.Text, ".")))
Xor (e.KeyChar = "-"
And Not CBool(InStr(sender.Text, "-"))
And sender.SelectionStart <> 0))
Else
e.Handled = Not IsNumeric(e.KeyChar)
End
If
End
If
End If
If
AllowPlusSign = True And
e.KeyChar = "+" Then
e.Handled = sender.SelectionStart
And CBool(InStr(sender.Text,
"+"))
End If
If
e.KeyChar = Chr(&H8) Then e.Handled = False
If
Len(sender.Text) > MaxLength Then
e.Handled = False
Invalidate()
ExitLbl:
End Sub
Private Sub NumbarTextBox_Leave(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Leave
If
AllowForQty = True Then
Exit
Sub
End If
If
Val(Me.Text) > Max Then Me.Text = Max
If
Val(Me.Text) < Min Then Me.Text = Min
End Sub
Private Sub me_KeyUp(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
If
AllowUpDownKeys = False Then
Exit
Sub
End If
If
e.KeyCode = Keys.Delete And Me.Text = ""
Then Me.Text
= 0
Select
Case e.KeyCode
Case
Keys.Up : Me.Text = Me.Text
+ 1
If
Me.Text > Max Then
Me.Text = Max
Case
Keys.Down : Me.Text = Me.Text - 1
If
Me.Text < Min Then
Me.Text = Min
End Select
Me.Invalidate()
End Sub
Function
IsContainSplCha(ByVal sender As Object) As Boolean
Dim k
As Boolean = False
If
sender.text.ToString.Contains("(")
= True Then
k = True
ElseIf
sender.text.ToString.Contains(")")
= True Then
k = True
ElseIf
sender.text.ToString.Contains("+")
= True Then
k = True
ElseIf
sender.text.ToString.Contains("-")
= True Then
k = True
ElseIf
sender.text.ToString.Contains("*")
= True Then
k = True
ElseIf
sender.text.ToString.Contains("/")
= True Then
k = True
End If
Return
k
End Function
Public Property GotFocusFontSize() As Font
Get
Return
GotSize
End Get
Set(ByVal value As
Font)
GotSize = value
End Set
End Property
Public Property LostFocusFontSize() As Font
Get
Return
LostSize
End Get
Set(ByVal value As
Font)
LostSize = value
End Set
End Property
Public Property GFocusBackColor() As
Color
Get
Return
GotFocusBackColor
End Get
Set(ByVal value As
Color)
GotFocusBackColor = value
End Set
End Property
Public Property LFocusBackColor() As
Color
Get
Return
LostFocusBackColor
End Get
Set(ByVal value As
Color)
LostFocusBackColor = value
End Set
End Property
Protected
Overridable Sub
txtCombo_GotFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.GotFocus
Me.BackColor
= GotFocusBackColor
Me.Font
= GotSize
Me.ForeColor
= GotFontColor
Me.SelectAll()
Timer1.Enabled = True
End Sub
Protected
Overridable Sub
txtCombo_LostFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.LostFocus
Me.BackColor
= LostFocusBackColor
Me.Font
= LostSize
Me.ForeColor
= LostFontColor
If Me.Text.Length <= 0 Then
Me.Text
= "0"
End If
If CBool(InStr(Me.Text,
"-")) = True
Then
If
Me.Text.Length = 1 Then
Me.Text
= "0"
End
If
End If
Timer1.Enabled = False
Try
If
AllowDecimal = True Then
sender.text = FormatNumber(sender.text, 2)
Catch
ex As Exception
End Try
Me.ForeColor
= LostFontColor
End Sub
#Region "Event Handlers"
#End Region
Private Sub me_MouseMove(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If
m_allowToolTip Then
TxtToolTip.Show(m_ToolTip, Me)
End If
End Sub
Private Sub JyothiTextBox_KeyDown(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If
FunctionKeysOk = True Then
Dim
Ary(4) As Object
If
e.KeyValue = 112 Or e.KeyValue = 113 Or e.KeyValue = 114 Or
e.KeyValue = 115 Or e.KeyValue = 116 Or e.KeyValue = 117 Or
e.KeyValue = 118 Or e.KeyValue = 119 Or e.KeyValue = 120 Or
e.KeyValue = 121 Or e.KeyValue = 122 Or e.KeyValue = 123 Then
e.Handled = True
Ary(0) = e.KeyValue
Ary(1) = e.Alt
Ary(2) = e.Control
Ary(3) = e.Shift
CallByName(Me.TopLevelControl, "FunctionKeysDown",
CallType.Method, Ary)
End
If
End If
End Sub
Protected
Overrides Sub
OnPaint(ByVal e As
System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
'Add your
custom paint code here
End Sub
Private Sub UserCalNumericTextBox_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Me.Validating
If
Calculate(sender.Text) = -99999999999 Then
MsgBox("Invalid Expression, Please Try Again...... ",
MsgBoxStyle.Information, "Error
Information")
e.Cancel = True
Else
sender.Text = CalValue
End If
End Sub
Private Sub Timer1_Tick(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
If
timecount = True Then
Me.BackColor
= GotFocusBackColor
timecount = False
Else
Me.BackColor
= BlinkColor
timecount = True
End If
End Sub
Public Function Calculate(ByVal
Value As String)
As Decimal
Try
CalValue = CDec(Value)
Return
CalValue
Exit
Function
Catch
ex As Exception
End Try
Dim
Conn As New
ADODB.Connection
Try
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & Microsoft.VisualBasic.FileSystem.CurDir + "\company.mdb;;Jet OLEDB:Database
Password=prakash"
Conn.Open()
Catch
ex As Exception
MsgBox(ex.Message)
End Try
Dim
ListRec As New
ADODB.Recordset
Value = Replace(Value, ",", "")
Dim
StrSql As String
= "select (" & Value & ") as Val
from ledgerdbf"
Try
ListRec.Open(StrSql, Conn,
ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Catch
ex As Exception
Return
-99999999999
End Try
CalValue =
FormatNumber(ListRec.Fields("val").Value,
2)
ListRec.Close()
Conn.Close()
Conn = Nothing
Return
CalValue
End Function
End Class
|
Contact: sureshjyothijv@gmail.com
Inventory Management In Vb.Net
With Full Source Code
Just $ 30 Only
Special Offer
Source Code *****Inventory
Management System in VB.Net***** Source
Code
With Multiple Features
BUY SOURCE CODE NOW, JUST $ 30
|
||
By Online Transfer
|
By PayPal
|