Visual Basic

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If Char.IsDigit(e.KeyChar) Then
        'Key was a digit
        Dim txtBox As TextBox = DirectCast(sender, TextBox)
        Dim value As Integer
        Dim newText As String = txtBox.Text.Remove(txtBox.SelectionStart, txtBox.SelectionLength)
        newText = newText.Insert(txtBox.SelectionStart, e.KeyChar.ToString)

        'If value of textbox will be greater then 45 ignore key
        If Integer.TryParse(newText, value) Then
            If value > 45 Then e.Handled = True
        End If
    ElseIf Not Char.IsControl(e.KeyChar) Then
        'Ignore key: It wasn't digit, backspace, enter, or delete
        e.Handled = True
    End If
End Sub

Private Sub Text1_Change(Index As Integer)
   If Val(Text1(Index).Text) > 45 Then Text1(Index).Text = 45: MsgBox "Please Enter A Number Between 0 to 45", vbCritical
End Sub
Private Sub Text1_KeyPrees(Index as integer,KeyAscii as integer)
     Same Last Code

End Sub

pictureBox1.Image = _<br />
 new Bitmap(Assembly.GetExecutingAssembly(). _<br />
 GetManifestResourceStream("PictureBoxControl.tinyemulator_res.jpg"))

<code>
The following example uses the ResourceManager.GetObject method to retrieve and display a binary resource (such as a graphic image).
…
Dim private rm As ResourceManager
rm = New ResourceManager("MyImages", Me.GetType().Assembly)
PictureBox.Image = Ctype(rm.GetObject("MyObject"), System.Drawing.Image)
…
 

</code>

peteyshrew wrote:

Dim conn As OleDbConnection
Dim comm As OleDbCommand
Dim dr As OleDbDataReader
Dim da As OleDbDataAdapter

peteyshrew wrote:

comm.CommandText = "select * from Managers where id like '" & txtid.Text & txtpass.Text & "%'"