TEXTBox + Button

Pls Heeelp,
am 4 Textboxuri si un Buton intr-un Form.

In momentul in care 1. selectez Textbox1,apoi
                               2. fac click pe button vreau sa-mi adauge un text in Textbox1 (de exemplu litera "G")
                                3. selectez Textbox2,apoi
                                 4. fac click pe button vreau sa-mi adauge un text in Textbox2 (aceeasi litera "G")
                                  5.la fel pt. toate cele 4 Textboxuri din form.
Multumesc anticipat.

cristi_ursu, on 8th June 2011, 08:34, said:

Ai mai jos codul :

Public Class Form1

	Dim txt As TextBox
	Private Sub TextBox1_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
		txt = TextBox1
	End Sub

	Private Sub TextBox2_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus
		txt = TextBox2
	End Sub
	Private Sub TextBox3_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.GotFocus
		txt = TextBox3
	End Sub

	Private Sub TextBox4_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.GotFocus
		txt = TextBox4
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		txt.Text = "G"
	End Sub
End Class

Atasat exemplu...

Si daca dau click din prima pe buton, fara sa dau focus vre-unui textbox in prealabil, ce se intampla?  

Edited by tatarduka, 08 June 2011 - 09:22.

tatarduka, on 8th June 2011, 10:22, said:

Nimic:D
Decat o eroare...
Modifica codul... Pune in Form1_Load TextBox1.Focus... Daca nu vrei sa iti mai dea eroarea aia...

SAU

Apare un MsgBox care te informeaza ca nu ai completat nici o caseta!

Cod :

Public Class Form1

	Dim txt As TextBox
	Private Sub TextBox1_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
		txt = TextBox1
	End Sub

	Private Sub TextBox2_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus
		txt = TextBox2
	End Sub
	Private Sub TextBox3_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.GotFocus
		txt = TextBox3
	End Sub

	Private Sub TextBox4_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.GotFocus
		txt = TextBox4
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		If txt Is Nothing Then
			MsgBox("Nici o caseta selectata!")
		Else
			txt.Text = "G"
		End If
	End Sub
End Class

Fisier atasat.

Edited by mihaieparu, 08 June 2011 - 10:00.

Multumesc mihaieparu,
este super
dar la executie este selectat automat primul textbox (textbox1).
cum pot face sa nu fie nimic selectat?
multumesc.

cristi_ursu, on 8th June 2011, 11:34, said:

Acum, la pornire selecteaza automat Button1...

Public Class Form1

	Dim txt As TextBox
	Private Sub TextBox1_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
		txt = TextBox1
	End Sub

	Private Sub TextBox2_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus
		txt = TextBox2
	End Sub
	Private Sub TextBox3_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.GotFocus
		txt = TextBox3
	End Sub

	Private Sub TextBox4_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.GotFocus
		txt = TextBox4
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		If txt Is Nothing Then
			MsgBox("Nici o caseta selectata!")
		Else
			txt.Text = "G"
		End If
	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		ActiveControl = Button1
	End Sub
End Class

Dar tie pentru ce iti trebuie acest program?