إقتباس :Public Class Form1


Private txt1 As Boolean = False
Private txt2 As Boolean = False
Private hLastCtrl As New IntPtr
Dim X As Integer
Dim Yy As Integer


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For Each C As Control In Me.Controls
AddHandler C.Leave, AddressOf SetLastFocusedControl
Next
End Sub


Private Sub SetLastFocusedControl(ByVal sender As System.Object, ByVal e As System.EventArgs)
hLastCtrl = sender.Handle
End Sub


Private Sub TextBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
txt2 = False
txt1 = True
End Sub


Private Sub TextBox2_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Enter
txt1 = False
txt2 = True
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (hLastCtrl = TextBox1.Handle) AndAlso txt1 Then
TextBox1.Text &= "1" 'or TextBox1.Text =TextBox1.Text & "1"
txt1 = False
End If
If (hLastCtrl = TextBox2.Handle) AndAlso txt2 Then
TextBox2.Text &= "1" 'or TextBox2.Text =TextBox2.Text & "1"
txt2 = False
End If
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (hLastCtrl = TextBox1.Handle) AndAlso txt1 Then
X = Val(TextBox1.Text)
TextBox1.Text = X + 1
txt1 = False
End If
If (hLastCtrl = TextBox2.Handle) AndAlso txt2 Then
Yy = Val(TextBox2.Text)
TextBox2.Text = Yy + 1
txt2 = False
End If
End Sub
End Class

محمود اكرم كتب :السلام عليكم
لن اضيف الكثير على ما فعله الاخ Aly El-Haddad
وقد اضفت عليه متغيرين ايضا
علما بانك يجب ان تضغط مرة اخرى على صندوق النص الذي تريد الاضافة عليه لانه قد الغي التركيز عليه واصبح على الزر

محمود اكرم كتب :سلام عليكم
هلا وضحت ما هي فائدة الزر الثاني

boty كتب :السلام عليكم
انا عضو جديد و هذا اول موضوع لي و انا مبتدئ vb.net

إكمالاً لما ذكره الأخوة.

لقد ذكرت أنك مبتدئ، وطلبك ليس للمبتدئين، ورغم هذا جرب هذا المثال ولا تسألني شرحه، ولكن غيرك سيفهمه ممن تقدموا في البرمجة...



هناك طريقه أخرى (قد يفيدك الأخوة بمثال له)، وهو بدل Button تستخدم Label لأنه لا يستقبل التركيز Focus (وإن شاهدتها في الأحداث Events) وضع فيه صورة على شكل زر.

وهذا مثال بالطريقتين، مع تحسين الطريقة الأولى

محمود اكرم كتب :لم تجبني على سؤالي ماذا يفعل الزر الثاني اذا ضغطت عليه اولا

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته






إكمالاً لما ذكره الأخوة.

لقد ذكرت أنك مبتدئ، وطلبك ليس للمبتدئين، ورغم هذا جرب هذا المثال ولا تسألني شرحه، ولكن غيرك سيفهمه ممن تقدموا في البرمجة...



هناك طريقه أخرى (قد يفيدك الأخوة بمثال له)، وهو بدل Button تستخدم Label لأنه لا يستقبل التركيز Focus (وإن شاهدتها في الأحداث Events) وضع فيه صورة على شكل زر.




السلام عليكم ورحمة الله وبركاته

إقتباس :Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LastTextBoxFocusSetup()

End Sub

#Region " LastTextBoxFocus "
Private LastTextBoxFocus As Control = New TextBox
Private Sub LastTextBoxFocusSetup()
For Each c As Control In Me.Controls
If TypeOf c Is TextBox Then AddHandler c.LostFocus, AddressOf TextBox_LostFocus
Next
End Sub
Private Sub TextBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
LastTextBoxFocus = sender
End Sub
#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LastTextBoxFocus.Text &= "1"

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
LastTextBoxFocus.Text &= "2"

End Sub



End Class