كيف اظهر رسالة للمستخدم لو كان عدد الاحرف اقل من 6

مغلق

بدأه K.I.D في 13 سبتمبر 2006 · 2 رد · 452 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#113 سبتمبر 2006 في 11:17 صاحب الموضوع

السلام عليكم يا شباب

اولا انا عضو جديد في المنتدى ولقد اعجبني جدا حيث خبرة الشباب وعطائهم المستمر

وانا جديد على الفيجوال كمان

صممت اشياء كثيرة ولكن الاكواد مقتبسة عن دروس

وخبرتي ليس كخبرتكم

المهم

انا قاعد اصمم برنامج حيث فيه يوزر نيم وبسورد للدخول للفورم التالي

بس

انا كود البسورد ابغاه يكون لا يقل عن 6 احرف

هذا الكود اللي دخلته

If Val(Text2.Text) < 6 Then
Text2.Text = ""
MsgBox "The Password is too short !", vbOKOnly + vbExclamation, "Error!"

بس الحين لما اجربه واحط مثلا رقم 6 او 7 او اي رقم اكبر من سته يعطيه الدخول

ولكن انا ابغاه يطلع المسج هذي اذا كان عدد الاحرف اقل من 6 وليس مجموعهم

اي احد يستطيع المساعدة؟

واذا ما عليكم امر

كيف اخلي الامر يتفعل عندما احط بسورد قصير بدون ما اضغط على زر next في الفورم

يعني لما ادخل البسورد وكان اقل من المطلوب تطلع لي المسج هذي علطول

هذا ولكم جزيل الشكر

تحياتي

وتمتعو بأفضل عروض الاستضافات

#213 سبتمبر 2006 في 11:22

Private Sub Text2_LostFocus()
If Len(Text2.Text) < 6 Then
	MsgBox "أقل عدد مسموح للأحرف هو 6"
	Text2.SetFocus
End If
End Sub

هذا يتم تنفيذه عندما يتم الكتابة او وضع المؤشر في الحقل النصي ثم يتم نقل المؤشر منه فيظهر رسالة التنبيه ويعيد التفعيل للحقل ليتم زيادة الطول.

يرجى مراجعة قواعد المشاركة: /index.php?showtopic=29343

واختيار عنوان مناسب اكثر في المرة القادمة.

السلام عليكم

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#313 سبتمبر 2006 في 11:42

شكرا على ردك يا اخ Xacker

وانا اسف اني ما قرأت قواعد المشاركة ولكني جديد كما تعلم

وشكرا لكم

تم تعديل هذه المشاركة بواسطة K.I.D في 13 سبتمبر 2006 في 11:43

وتمتعو بأفضل عروض الاستضافات

هذا الموضوع مغلق.

عدد الزوار حالياً