13-11-18, 02:19 PM
14-11-18, 12:52 AM
في انتظاركم
14-11-18, 03:08 PM
اول اعمل فروم جديد
واضف تيكست بوكس 1
وزر
وضع الكود التالي
123456 = كلمة سر فتح البرنامج
form1 = اسم الفروم اللذي يحتوي على البرنامج المراد قفله
me.hide = اغلاق فروم فتح البرنامج
وهاذا كود حفظ كلمة السر في مستند نصي
فقط غير الاسم من listbox الى textbox
واضف تيكست بوكس 1
وزر
وضع الكود التالي
كود :
if textbox1.text = "12346" then
form1.show
me.hide
end if
123456 = كلمة سر فتح البرنامج
form1 = اسم الفروم اللذي يحتوي على البرنامج المراد قفله
me.hide = اغلاق فروم فتح البرنامج
وهاذا كود حفظ كلمة السر في مستند نصي
كود :
Io.File.writealltext("c:\a.txt",string.join(vbnewline,listbox1.items.cast(of string).toarray))
فقط غير الاسم من listbox الى textbox