VB.NET

VB.NET RSS

A small calculator in vb

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Sep 2008

Posts: 27

Reputation: thilinam is an unknown quantity at this point

Solved Threads: 0

thilinam

Offline

Light Poster

A small calculator in vb

Dec 22nd, 2008

hi friends,
I have designed a simple calculator using vb.net I want to execute click event of button which labeled as "1", when I press key "1" on keyboard. please help me.

•

Join Date: Aug 2008

Posts: 710

Reputation: Teme64 will become famous soon enough

Solved Threads: 114

Teme64

Offline

Master Poster

Re: A small calculator in vb

Dec 22nd, 2008

Normal buttons require ALT-key to be pressed. If you don't mind this, name the buttons

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    ' 
    Button1.Text = "&1"
    Button2.Text = "&2"
 
  End Sub
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    ' 
    Button1.Text = "&1"
    Button2.Text = "&2"
    
  End Sub

and trap "number"-buttons

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
  Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
    Select Case CType(sender, Button).Text
      Case "&1"
         ' Number 1 pressed
      Case "&2"
         ' Number 2 pressed
    End Select
 
  End Sub
  Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
    Select Case CType(sender, Button).Text
      Case "&1"
         ' Number 1 pressed
      Case "&2"
         ' Number 2 pressed
    End Select

  End Sub

If you do not want ALT-key to be used, you have to trap KeyUp or similar event and use some other control instead of Button control.

Teme64 @ Windows Developer Blog

•

Join Date: Dec 2007

Posts: 19

Reputation: hakimkal is an unknown quantity at this point

Solved Threads: 4

hakimkal

Offline

Newbie Poster

Re: A small calculator in vb

Dec 24th, 2008

I assume you have your click event sub proceedure running, to add another event for a button say "button1" you have to make sure you have enable its 'tabstop' property and then you can add another event sub proceedure.

However for your calculator, when the tabstop gets to the 'btn1' button all the user has to do is to press the "enter key".

This is in simple context, however you may have to implement threading for complex scenario where you need responses. (My opinion)

I am leaving you with some code snippet for your review, it may help.

[CODE syntax=vb]

Private Sub btn1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles btn1.KeyPress

Dim keyasc As Short

If keyasc >= System.Windows.Forms.Keys.D1 And keyasc <= System.Windows.Forms.Keys.D9 Then
txtDisplay.Text = Val(btn1.Text)
Exit Sub
Else
MessageBox.Show("Error key pressed")

End If

End Sub

[/CODE]

Last edited by hakimkal; Dec 24th, 2008 at 2:14 am.

abdoolherkym!