+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار حوال التركيز في الادوات (/showthread.php?tid=20361)
استفسار حوال التركيز في الادوات - المتألق9 - 13-05-17
السلام عليكم
عندي سؤالين
الاول : كيفية معرفة الاداة التي فيها التركيز
والثاني كيفية جعل اداة متاحة للاستخدام وباقي الفورم غير متاح
وشكرا
RE: استفسار حوال التركيز في الادوات - soper - 13-05-17
يعني في السوال الثاني انت عايز اداة وحدة بس هي الي شتغل فيها
RE: استفسار حوال التركيز في الادوات - silverlight - 13-05-17
اعمل loop علي كل الكونترول و حدد منها الكونترول اللي عليه focus التركيز و ترجغ بمتغير عبارة عن كونترول
RE: استفسار حوال التركيز في الادوات - mansoor - 13-05-17
الاول Me.ActiveControl
الثاني ماذا يعني غير متاح؟
RE: استفسار حوال التركيز في الادوات - المتألق9 - 13-05-17
(13-05-17, 12:12 AM)soper كتب : يعني في السوال الثاني انت عايز اداة وحدة بس هي الي شتغل فيهااه اداة وحدة تشتغ
(13-05-17, 12:39 AM)mansoor كتب : الاول Me.ActiveControl
الثاني ماذا يعني غير متاح؟
اداة واحدة تشتغل
RE: استفسار حوال التركيز في الادوات - mansoor - 13-05-17
الثاني كل اداة لا تريدها تشتغل قم بتغيير الخاصية Enabled إلى False أو لتختصر العملية بأن تجعل الأدوات التي لا تريدها تشتغل في أداة GroupBox وتغير خاصيتها Enabled إلى False،
وإذا كانت الأداة هي TextBox وتريد تمنع الكتابة فيها فقط غير الخاصية ReadOnly إلى True
RE: استفسار حوال التركيز في الادوات - أسامة السالمي - 13-05-17
اذا كنت تريد استثناء أداة واحدة يمكنك استخدام هذا الكود :
PHP كود :
Dim a As Control
For Each a In Me.Controls
If a.Name <> "اسم الأداة" Then
a.Enabled = False
Else
a.Enabled = True
End If
Next
أما إذا كنت تريد استثناء أكثر من أداة فيمكنك زيادة الشروط بهذه الطريقة :
PHP كود :
Dim a As Control
For Each a In Me.Controls
If a.Name <> "اسم الأداة 1" And a.Name <> "اسم الأداة 2" And a.Name <> "اسم الأداة 3" Then
a.Enabled = False
Else
a.Enabled = True
End If
Next