+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود لشاسة تظهر مرة واحدة (/showthread.php?tid=33048)
كود لشاسة تظهر مرة واحدة - ibr1233 - 19-01-20
كيف اقوم بعمل كود لشاسة تظهر مرة واحدة عند فتح البرنامج لاول مرة تحتوى على Button1 وButton2 الاول يظهر شاسة اضافة مستخدم جديد والاخر يظهر شاسة الاتصال بالسرفر ( وبعد ذلك لا تظهر ثانية الا عند عدم وجود مستخدمين فى قاعدة البيانات )
RE: كود لشاسة تظهر مرة واحدة - ibr1233 - 21-01-20
اخوانى .. هل الامر صعب الى هذه الدرجة .. اين عباقرة البرمجة ..
RE: كود لشاسة تظهر مرة واحدة - abubasilIraq - 21-01-20
لن نسقط عليك الرطب ولكن نقول لك هز جذع النخلة
ومن هنا الطريق ، تعمل متغير تحفظه في خانة اعدادات المشروع
ويكون من نوع منطقي وبحسب القيمة المحفوظة تظهر او لا تظهر الشاشة التي تريدها
تحت خانة name ضع اسم المتغير ، ويليه نوع المتغير - اختر منطقي
تابع هنا
RE: كود لشاسة تظهر مرة واحدة - ibr1233 - 22-01-20
جزاك الله خير على الرد وعلى ماقلت من الشعر .... ولكن اخى الرابط لا يعمل ..( اريد ان اهز جذع النخلة اكثر )
RE: كود لشاسة تظهر مرة واحدة - asemshahen5 - 22-01-20
هذا مثال قريب مما تريد .
سورس كود برنامج IT للعهدة والمستخدمين والاجهزة .
مثال عن BackgroundWorker وحفظ معلومات الاتصال .
RE: كود لشاسة تظهر مرة واحدة - alshandodi - 22-01-20
[attachment=23870]
تضيف في الإعدادات Saveform
يمكن ان تجعل هذا في الفورم الرئيسي
كود :
كود :
If My.Settings.Saveform = 0 Then
Form2.ShowDialog()
End Ifوهذا الكود تضعه في Button
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Settings.Saveform = 1
My.Settings.Save()
End SubRE: كود لشاسة تظهر مرة واحدة - جميل5 - 22-01-20
اعمل استعلام عن مجموع عدد المستخدمين SELECT COUNT(*) FROM TBUsers
فإذا كانت النتيجة=0 فعندها أظهر شاسة اضافة مستخدم جديد
RE: كود لشاسة تظهر مرة واحدة - ibr1233 - 24-01-20
اشكر الجميع على المساعدة ولقد استفدت من المشاركات جيدا ووصلت الى حل احببت مشاركتة
Dim cmd As New SqlCommand("select * from tblUsers ", Con)
Con.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows > 0 Then
FrmLogIn.Show()
'MsgBox(" اهلا بك --->>>" + dr(2))
Else
frm_newuser.Show()
End If
dr.Close()
Con.Close()