منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] طلب كود التحقق - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=2232)

الصفحات: 1 2 3 4

RE: طلب كود التحقق - سعود - 14-03-14

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

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

RE: طلب كود التحقق - bumb - 14-03-14

عملت اللي فلت عليه لكن استبعدت منه أي كود يخص الإضافه
انا ما ابيه يضيف انا ابيه يتحقق هل القيمه موجوده ولا لا بس
اذا كانت موجوده تظهر الرساله التحذيريه وبعد كذا يمسح القيمه اللي كتبت في التكست بوكس
واذا كانت مش موجوده ما يعمل شي
انا في مشروعي زر للحفظ هو المسؤل عن حفظ القيم التي تمت كتابتها في مربعات النصوص

RE: طلب كود التحقق - سعود - 14-03-14

طيب كود التحقق اللي انت كاتبه:
كود :
If TextBox1.BackColor = Color.Red Then
                TextBox1.Clear()
                MsgBox("الاسم محجوز , فضلا جرب اسما آخر ", MsgBoxStyle.Critical, "")
                TextBox1.Focus()
                Exit Sub
            End If

هذا يتحقق من لون خلفية مربع النصSmile
يعني عدل عليه ليكون:
كود :
If isfound(TextBox1.Text) Then
                TextBox1.BackColor = Color.Red
                TextBox1.Clear()
                MsgBox("الاسم محجوز , فضلا جرب اسما آخر ", MsgBoxStyle.Critical, "")
                TextBox1.Focus()
                Exit Sub
            End If


RE: طلب كود التحقق - bumb - 14-03-14

تمام عليك

بس بقية مشكله وهي عندما اضغط بالماوس على المربع الثاني
اريد ان يعمل الكود حتى بالنقر على المربع الثاني وكذلك استخدام مفتاح TAB

RE: طلب كود التحقق - bumb - 14-03-14

هذا كود التنقل بين الـ textbox بواسطة مفتاح Enter
PHP كود :
Protected Overrides Function ProcessCmdKey _
       (ByRef msg As System.Windows.Forms.Message, _
       ByVal keyData As System.Windows.Forms.Keys) As Boolean
        If msg.WParam.ToInt32() = CInt(Keys.Enter) Then
            SendKeys.Send("{Tab}")
            Return True
        End If
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function 


RE: طلب كود التحقق - سعود - 14-03-14

طيب الحمدلله اللي حصلت على الكودSmile

RE: طلب كود التحقق - bumb - 14-03-14

هذا الكود قام بإلغاء الكود اللي انت كتبته

ممكن تحل هالمشكله

هذه الداله قامت بالغاء عمل الداله اللي انت كتبتها

اين الخلل

RE: طلب كود التحقق - سعود - 15-03-14

إقتباس :هذه الداله قامت بالغاء عمل الداله اللي انت كتبتها
اخي العزيز انا باول مثال كنت استخدمت حدث lostfocus وهذا يناسب المطلوب.
الدالة مااعرفها فيها تعقيد.
ننتظر احد الاخوان يقدم المساعدة.

RE: طلب كود التحقق - bumb - 15-03-14

هذه الداله تحول مفتاح Enter الى TAB