السلام عليكم ورحمة الله وبركاته
تحية طيبة للجميع
كيف يمكن لمربع نص الباس ورد
أن يظهر عدد ****** 6 نجوم
بغض النظر عن المدخل
TEXT2=FORMAT('******',TEXT1)
جربت هذا الكود ولكن المشكلة ان
TEXT2
لا يحفظ القيمة المدخلة بل نجوم
لأنه تنسيق وليس قناع!؟ :wacko:
أرجوا المساعدة
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
Text1.Text = String(6, "*")
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
من خاصية maxlength للتكست ضعي القيمة 6 ,وعند الخاصية passwordchar ضعي *
*************************************************
**************************************************
مصطفى زيداني
أخي prof_1982
شكرا على المساعدة ولكن :unsure: هذا يخزن النجمه وليس قناع ..
ارجوا ان تكون فهمتني :blink: ؟!
أخي mostafazidani أشكرك على المشاركة
لكن....... :unsure:
أنا لا اريد تقيد المدخل بي 6 خانات
أنا اريد عمل تمويه لعدد الخانات فقط ..
:unsure: هوا بصراحه الموضوع صعب شويه ..
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
اختي الكريمة هل تريدين التموين بعدد النجوم اثناء كتابتها ام عند الانتقال على خانة ثانية اتوقع في طريقة لكن عند الانتقال الى خانة ثانية اجعلي خاصة visible of للخانة الاولى
لكن يجب ان تكوني قد وضعتي تحتها خانة شبيهة وفيها عدد معين من النجوم ولا دخل لها في البرنامج فقط للتمويه
السلام عليكم :
انا عملت مشروع كده علىا لسريع ويارب يكون هوه المطلوب :
Dim valuee As String Private Sub Command1_Click() MsgBox valuee End Sub Private Sub Form_Load() Text1.PasswordChar = "*" End Sub Private Sub Text1_Change() valuee = valuee + Trim(Text1.Text) Text1.Text = " " End Sub
متطلباته زر كومند , والتيكست بوكس
فكرته:
......
انى خليت التيكست يطبع * بدل اى زر كما موضح فى الكود
ووضعت فى حدث تغير محتويات التيكست انه يضع القيمه فى مخزن وبعض كده يطبع ست مسافات وحسب الامر السابق حيظهروا كست نجوم
وباستخدام امر Trim يمكن ازاله المسافات واضافه القيمه المدخله للمخزن
وللحصول على المدخل نضغط على الزر...
“Any fool can make things bigger, more complex, and more violent”
اخي الكريم جربت الكود ولكن عندما ارت تخزيت ما في التكست بوكس اعطاني القيمة فقارغة ""
السلام عليكم
وجد حل لهذه المشكلة انني قمت بتعديل بسيط لكود الأخ FemTo هو انك هتأخد القيمة المخزنة من Text2 وياريت يكون دا المطلوب
تحياتي ،،،
تم تعديل هذه المشاركة بواسطة mega_soft في 27 يونيو 2006 في 16:15
if text1.text="www.arabteam2000.com" then
انا فاكر انه كان شغال معايا
ومشكورر اخى mega Soft على التعديل
“Any fool can make things bigger, more complex, and more violent”
السلام عليكم ورحمة الله وبركاته
أعتقد ان فكرة ظهور 6 نجوم أثناء ادخال كلمة المرور هي فكرة ليست جيدة
لأن المستخدم هنا مش هيقدر يعرف هو كتب كام حرف من الباسورد
ولكن أعتقد ان المفترض ان حضرتك تخليها تظهر على هيئة 6 نجوم بعد انتهاء كتابة الباسورد
وهذه الفكرة هي المستخدمة في ماسنجر الهوتميل
جرب هذا الكود
في قسم التصريحات العامة ضع
Dim X As String
Private Sub Command2_Click()
MsgBox X
End Sub
Private Sub Text1_LostFocus()
X = Text1
Text1 = "******"
End Sub
وبكده هتظهر الباسورد على هيئة 6 نجوم بمجرد ان المؤشر يخرج من التكست بوكس
ولما تحب تستخدم الباسورد بعد كده فعليك انك تتعامل مع المخزن X بدلا من Text1
جربها وياريت تبلغنا ردك
JusT LeT YouR MinD WorK
السلام عليكم ورحمة الله
لاظهار * فى مربع النص المستخدم لكتابة كلمة السر يمكن اتباع الاتى من خلال مساحة التصميم الخاصه بالفيجوال بيسك6
اولا : بعد وضع التيكست على الفورم
ثانيا : فى ال properties الخاصه بالتيكست نبحث عن خانة ال passwordchr ثم نضع فيها *
ثالثا : نقوم بتشغيل الفورم (RUN) ونكتب كلمة السر فتظهر على شكل *** بعدد حروف كلمة السر
ارجو التوفيق
والسلام عليكم ورحمة الله
fkwinna
email: fathy_eissa@yahoo.com
28/6/2006
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…