Visual Basic

SekharOne wrote:

I used WebBrowser control but it doesn't allows me to specify a url address through coding

Private Sub NumericBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress<br />
        Dim KeyAscii As Integer<br />
<br />
        KeyAscii = Asc(e.KeyChar)<br />
<br />
        Select Case KeyAscii<br />
            Case 8, 13 ' backspace and carriage return<br />
                'Do nothing as the input is valid<br />
            Case 48 To 57 ' Keys 0 to 9 <br />
                'Test the number of decimal places<br />
                If Me.Text.Contains(".") Then<br />
                    If (Me.Text.Trim.Length - InStr(Me.Text, ".")) >= DecimalPlaces Then KeyAscii = 0<br />
                End If<br />
<br />
                'Test to see if the new value will exceed the maximum value<br />
                'or minimum value limits<br />
                Dim sValue As String = Value.ToString<br />
                Dim dValue As String<br />
                sValue &= e.KeyChar<br />
                dValue = CType(sValue, Decimal)<br />
                If dValue < Minimum Or dValue > Maximum Then KeyAscii = 0<br />
<br />
                'Do nothing as the input is valid<br />
            Case 45 'minus sign<br />
                If AllowNegativeValues Then<br />
                    'If negative values as permitted then...<br />
                    If Me.Text.Contains("-") Then<br />
                        'if we already have a minus sign then throw away this minus sign keystroke just pressed<br />
                        KeyAscii = 0<br />
                    End If<br />
<br />
                    If Me.SelectionStart <> 0 Then<br />
                        'If the insertion point is not sitting at zero (the beginning of the field),<br />
                        'throw away the minus sign<br />
                        KeyAscii = 0<br />
                    End If<br />
                Else<br />
                    KeyAscii = 0<br />
                End If<br />
<br />
            Case 46 'decimal point<br />
                If AllowDecimalPoint Then<br />
                    If Me.Text.Contains(".") Then<br />
                        KeyAscii = 0<br />
                    End If<br />
                Else<br />
                    KeyAscii = 0<br />
                End If<br />
<br />
            Case Else<br />
                'Any other input is invalid so throw it away<br />
                KeyAscii = 0<br />
        End Select<br />
<br />
        If KeyAscii = 0 Then<br />
            Beep()<br />
            e.Handled = True<br />
        Else<br />
            e.Handled = False<br />
        End If<br />
<br />
    End Sub