كيف اصنع واجهة في الفجول بيسك تطلب مني اسم مستخدم و كلمة مرور و بها خيارات حفظ البيان
كيف اصنع واجهة في الفجول بيسك تطلب مني اسم مستخدم و كلمة مرور و بها خيارات حفظ البيانات و تغيير اسم المستخدم و كلمة المرور من داخل البرنامج و ليس من التصميم او الكود و شكرا
رد: كيف اصنع واجهة في الفجول بيسك تطلب مني اسم مستخدم و كلمة مرور و بها خيارات حفظ ال
اقتباس:
كيف اصنع واجهة في الفجول بيسك تطلب مني اسم مستخدم و كلمة مرور و بها خيارات حفظ البيانات و تغيير اسم المستخدم و كلمة المرور من داخل البرنامج و ليس من التصميم او الكود و شكرا
السلام أخي الكريم أولاً وأخراً ماقلته في البدايه سهل عمله لكن يجب أن تكون عندك فكره عن التعامل مع دوال الريجيستري(مسجل النظام) لكي تقوم بحفظ بياناتك ......أما بالنسبه للكلام الأخير الذي قلته عن تغيير البيانات
من داخل البرنامج وليس من الكود ....هذا يدل على إنه ليست عندك خلفيه بالخالص عن دوال الريجستري والأمر أشبه بإنك تكرر طلبك من جديد ولكن بصيغه مختلفه لأن ماتريد تغييره سيكون من الريجستري أيضاً وهي مسئلة متغيرات كمان أخي.......يجب أن يكون عندك الأساس قبل ماتخوض بهذا الشيء
رد: كيف اصنع واجهة في الفجول بيسك تطلب مني اسم مستخدم و كلمة مرور و بها خيارات حفظ ال
مرحبا أخي الكريم على حسب ما فهمت من طلبك سأعطيك مثال عن الحفظ والتعديل بعيدا عن الريجستري.
أولا تنشأ ملف نصي ولنقل اسمه File.txt في المسار C:\Windows
افتح الفيجوال بيسك وضع على الفورم Text1,Command1,Label1
اكتب كلمة المرور في الملف واحفظ التغيرات على الملف
في الحدث Form_Load اكتب الكود الآتي :
كود:
Open "C:\Windows\File.txt" For Input As #1
Dim W
Input #1, W
Close #1
Label1.Caption = W
الكود السابق يعني أن نضع كلمة المرور في الملف الذي أنشأته أن نسنده إلى Label1
واكتب الكود الآتي بالحدث Command1_Click :
كود:
If Text1 = "" Then
MsgBox "كلمة المرور فارغة", vbInformation, "خطأ في الدخول"
ElseIf Text1 = Label1.Caption Then
' اكتب الكود الذي تريده هنا
end if
وهذا الكود يعني إذا كانت قيمة النص المكتوبة في التكست هي نفسها القيمة الموجودة في الليبل إفعل أمرا معينا
أرجو أن تكون استفدت من الكود لتحقيق طلبك لأنني قدمت لك أكواد خاصة بإنشاء كلمة المرور وعندما تفكر ماليا ستسفيد من الكود لحل المشكلة
سلاااااااااااااااااااااااااااااااااام