منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب كود جعل انبوت بوكس باسورد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاتة
معايا كود انبوت بوك وعايز اجعلة بطريقة الباسورد
كود :
    Dim X = InputBox("من فضك ادخل الرقم السري الخاص بالمدير", "إدخال الرقم السري للمدير")
           If X = "1" Then
               MsgBox("ok")

           Else
               MsgBox("no")
           End If
السلام عليكم ورحمة الله وبركاته
اخي الكريم ستحتاج الى انشاء inputBox جديدة فيها خاصية جعل الكتابة بشكل نقط او رمز معين 
اليك هذا الرابط فيه مثال مع الكود

https://stackoverflow.com/questions/1883...n-inputbox
إصنع مسج بوكس خاصة بك . فقط عدل نافذة الانبوت بوكس و ضع خاصية UseSystemPasswordChar الى True في التكست بوكس و اعد بناء المشروع .