ashakibi
چهارشنبه 01 شهریور 1391, 23:40 عصر
با سلام خدمت دوستان عزیز
من دو برنامه مختلف نوشتم. وقتی دو برنامه رو روی یک سیستم نصب می کنم
و برای یک برنامه رمز عبور مشخص می کنم برنامه دوم رو هم که اجرا می کنم همون رمز عبور رو می خواد. یعنی رمز عبور هر دو برنامه یکی میشه و یا مثلا اگه رمز عبور یه برنامه رو حذف کنم رمز عبور برنامه دیگه هم حذف میشه
حالا باید چیکار کنم تا دو برنامه به هم وابسته نشه
کد مربوط به اونم براتون می زارم
با تشکر
کد زیر مربوط به دکمه ورود به برنامه هست
If Text1.Text = Form3.Text1 Then
Reflection.Detach
Form4.Hide
frm_main.Show
Else
MsgBox (" ˜ÇÑÈÑ ÑÇãí ÑãÒ ÚÈæÑ ÔãÇ ÝÇÞÏ ÇÚÊÈÇÑ ãí ÈÇÔÏ "), vbCritical, " ˜ÇÑÈÑ ÛíÑ ãÌÇÒ "
End If
در فرم تعیین رمز عبور
کد دکمه ثبت رمز به این صورت است
SaveSetting "Bankbarname", "Setting", "Password", Text1.Text
و اینم مربوط به لود شدن فرم هست
Private Sub Form_Load()
Text1.Text = GetSetting("Bankbarname", "Setting", "Password")
End Sub
من دو برنامه مختلف نوشتم. وقتی دو برنامه رو روی یک سیستم نصب می کنم
و برای یک برنامه رمز عبور مشخص می کنم برنامه دوم رو هم که اجرا می کنم همون رمز عبور رو می خواد. یعنی رمز عبور هر دو برنامه یکی میشه و یا مثلا اگه رمز عبور یه برنامه رو حذف کنم رمز عبور برنامه دیگه هم حذف میشه
حالا باید چیکار کنم تا دو برنامه به هم وابسته نشه
کد مربوط به اونم براتون می زارم
با تشکر
کد زیر مربوط به دکمه ورود به برنامه هست
If Text1.Text = Form3.Text1 Then
Reflection.Detach
Form4.Hide
frm_main.Show
Else
MsgBox (" ˜ÇÑÈÑ ÑÇãí ÑãÒ ÚÈæÑ ÔãÇ ÝÇÞÏ ÇÚÊÈÇÑ ãí ÈÇÔÏ "), vbCritical, " ˜ÇÑÈÑ ÛíÑ ãÌÇÒ "
End If
در فرم تعیین رمز عبور
کد دکمه ثبت رمز به این صورت است
SaveSetting "Bankbarname", "Setting", "Password", Text1.Text
و اینم مربوط به لود شدن فرم هست
Private Sub Form_Load()
Text1.Text = GetSetting("Bankbarname", "Setting", "Password")
End Sub