Private Sub btnOne_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles btnOne.KeyPress TextBox1.Text = TextBox1.Text & 1 End Sub Private Sub btnOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOne.Click TextBox1.Text = TextBox1.Text & 1 End Sub
1. click - 1 2. click - 11 3. click - 111
1. click - 1 2. click - 1 + 1 = 2 3. click - 2 + 1 = 3
Private Sub btnOne_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles btnOne.KeyPress, btnOne.Click TextBox1.Text = TextBox1.Text & 1 End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)