Visual Basic

Private Sub Text1box_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress<br />
dim keyascii as short= Asc(eventargs.keychar)<br />
select case keyascii<br />
case 48 to 57 ' numeric keys 0 to 9 <br />
case 8 ' backspace<br />
case else ' other keys<br />
keyascii = 0<br />
end select<br />
if keyascii = 0  then <br />
eventargs.handled = true<br />
end if<br />
 end sub<code>

Mark06 wrote:

123,456.78 if I'm in the UK
123.456,78 if I'm in Europe

 Dim image1 As Bitmap<br />
    Dim image2 As Bitmap<br />
    Dim v As Integer 'verical position<br />
    Dim vt As Integer 'total height<br />
    Dim h As Integer 'horizontal position<br />
    Dim ht As Integer 'total width<br />
    Dim thesame As Boolean = True<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
        image1 = PictureBox1.Image<br />
        image2 = PictureBox2.Image<br />
        v = 0<br />
        h = 0<br />
        vt = image1.Height<br />
        ht = image2.Width<br />
<br />
        Application.DoEvents()<br />
<br />
        For v = 0 To vt - 1<br />
            For h = 0 To ht - 1<br />
                If image1.GetPixel(h, v) <> image2.GetPixel(h, v) Then<br />
                    thesame = False<br />
                End If<br />
                Me.Label1.Text = h<br />
                Application.DoEvents()<br />
            Next<br />
            Me.Label2.Text = v<br />
            Application.DoEvents()<br />
        Next<br />
<br />
        If thesame = False Then<br />
            Me.Text = Me.Text & "   False"<br />
        Else<br />
            Me.Text = Me.Text & "   True"<br />
        End If<br />
<br />
    End Sub

Bishwajeet Roy wrote:

hv