ممكن كود معرفة التكست الفعال

أولا لا يصلح أستعمال زر لأن الـ Focus ستنتقل له و لن يصبح أى من الـ Textboxes فعالين , يجب أستخدام أداة لا تستقبل التركيز مثل الـ Label و لو فرضنا أن عندنا Label أسمه lblClickHere أستعمل :

Private Sub lblClickHere_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbKeyLButton Then
	On Error Resume Next
	If TypeOf Me.ActiveControl Is TextBox Then
		Me.ActiveControl.Text = "A"
	End If
End If
End Sub

يعني لن استطيع ابدا

و لو عندك فكرة اخرى غير الكود شي يساعد على نجاح الفكرة

و شكرا

صمم لنفسك زر لا يستقبل التركيز او ابحث عن واحد.

خلاص عرفت طريقة و زبطت معي بس طويلة

و الي هي

Private Sub Text1_GotFocus()
text6.Text = "text1.text"
End Sub

التكست رقم سته هو ما له اي دخل في اي شي

و الزر هذا كوده

If Text6.Text = "Text2.Text" Then
Text2.Text = Text2.Text + "4"
End If

If Text6.Text = "Text3.Text" Then
Text3.Text = Text3.Text + "4"
End If

اتمنى الجميع يكون فهم الكود والي ما فهمه يقولي على شان انزل له مثال

طيب ابغا كود شي ثاني

اذا ابغا ازيد الالف اكتب

Text1.Text = Text1.Text + "أ"

صح طيب اذا ابغا احذف اخر حرف مكتوب ايش الكود

مثلا مكتوب كلمة عماد

اذا ضغط على الزر يمسح اخر حرف و هو حرف العين

؟؟

وشكرا

حلك للمشكلة لا علاقة له بالسؤال الأصلى , على العموم لسؤالك التانى :

Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)

الأخ الفاضل ...

جرب استخدام هذا الكود

Private lastTextBoxCtrl As TextBox

Private Sub Text1_GotFocus()
	Set lastTextBoxCtrl = Text1
End Sub

Private Sub Text2_GotFocus()
	Set lastTextBoxCtrl = Text2
End Sub

Private Sub Text3_GotFocus()
	Set lastTextBoxCtrl = Text3
End Sub

Private Sub Command1_Click()
	lastTextBoxCtrl.Text = "4"
End Sub

شكراً

مشكور جميعا على تفاعلكم و ردكم السريع هذي اول مرة اطلب فيها او اسال فيها

و اذا عندي مشكلة بعد اليوم سوف اكتبها في هذا المنتدى لاني دائما اكتب المشاكل او الاسئلة في منتدى اجنبي بس ما يردوا بنفس السرعة هذي

و ان شاء الله كل الاسئلة تردوا عليها بسرعة و انا اذا شفت سؤال استطيع الجواب عليه سوف اجواب في اسرع وقت

وشكرا

استخدام ActiveControl ربما يقلل من الكود في طريقة الأخ أسامة و بذلك لن تحتاج لإستدعاء GotFocus الخاصة بكل control موجود على الفورم ..

ابو عماد

لك رسالة على الخاص ... ممكن التواصل .

تحياتي