20-06-13, 12:18 AM
boty كتب :جربت طريقتك اخي و هي جيدة فعلا و اشتغلت عندي :o
لكن اعرف اني (تقلت) لكن ممكن شرح الكود لأني مبتدئ و عايز اكون فاهم مش مجرد حافظ
بالعكس.. أنا أحب أمثالك، من يحبون تعلم و فهم اللغة(الـVB.Net) ليس من ينسخون و يلصقون
ملاحظة قبل أن أبدأ الشرح: كل أداة تضيفها من الـToolBox على الـForm هي Control مثل الـButton و الـTextBox
ملاحظة أخرى: Private مثل Dim لكن الفرق أن Private لا يمكن أن تستخدمها داخل إجراء أو دالة (Sub or Function) بينما يمكنك ذلك بـDim
وضعت هذا المتغير
كود :
Private hLastCtrl As New IntPtr
الآن في الحدث Form_Load و الذي ينطلق مع تحميل الـForm في الـMemory قبل ظهورها
عملت حلقة تكرارية تدور على كل الـControls داخل الـForm لأجعل الإجراء SetLastFocusedControl ينطلق عند إنطلاق الحدث Leave لهذا الـControl
الآن مع SetLastFocusedControl
و وظيفته هي إعطاء قيمة الـHandle للـControl الذي خرج من عليه التحديد، إعطاء قيمته لـhLastCtrl
الآن مع الحدث Button_Click و الذي ينطلق عند الضغط على الزر
إذا وجد أن آخر Control محدد كان TextBox1 فيكتب فيه 1
و الشئ ذاته مع TextBox2