تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود لشاسة تظهر مرة واحدة
#1
كيف اقوم بعمل كود لشاسة تظهر مرة واحدة عند فتح البرنامج لاول مرة تحتوى على Button1 وButton2 الاول يظهر شاسة اضافة مستخدم جديد والاخر يظهر شاسة الاتصال بالسرفر ( وبعد ذلك لا تظهر ثانية الا عند عدم وجود مستخدمين فى قاعدة البيانات )
الرد
تم الشكر بواسطة: asemshahen5
#2
اخوانى .. هل الامر صعب الى هذه الدرجة .. اين عباقرة البرمجة ..
الرد
تم الشكر بواسطة: asemshahen5
#3
لن نسقط عليك الرطب ولكن نقول لك هز جذع النخلة
ومن هنا الطريق ، تعمل متغير تحفظه في خانة اعدادات المشروع
ويكون من نوع منطقي وبحسب القيمة المحفوظة تظهر او لا تظهر الشاشة التي تريدها



تحت خانة name ضع اسم المتغير ، ويليه نوع المتغير - اختر منطقي
تابع هنا
الرد
تم الشكر بواسطة: جميل5 , asemshahen5
#4
جزاك الله خير على الرد وعلى ماقلت من الشعر .... ولكن اخى الرابط لا يعمل ..( اريد ان اهز جذع النخلة اكثر )
الرد
تم الشكر بواسطة: جميل5 , جميل5 , asemshahen5
#5
هذا مثال قريب مما تريد .

سورس كود برنامج IT للعهدة والمستخدمين والاجهزة .

مثال عن BackgroundWorker وحفظ معلومات الاتصال .
الرد
#6
   



تضيف في الإعدادات 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 Sub
أتمنى أن يكون ذو فائده لك
الرد
#7
اعمل استعلام عن مجموع عدد المستخدمين SELECT COUNT(*) FROM TBUsers
فإذا كانت النتيجة=0 فعندها أظهر شاسة اضافة مستخدم جديد
الرد
#8
اشكر الجميع على المساعدة ولقد استفدت من المشاركات جيدا ووصلت الى حل احببت مشاركتة
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()
الرد
تم الشكر بواسطة: alshandodi , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند تحزيم المشروع تظهر ريساله unable to load msbuild assemblies ٍOfelas 2 556 23-07-21, 02:58 AM
آخر رد: kebboud
  [سؤال] كيف استبدال جميع أيقونات الفورمز مرة واحدة؟ abomo3ath 5 152 18-07-21, 10:51 PM
آخر رد: ابو انس
  [مشروع] كيف تظهر في الجهاز الثاني الدات جريد فيو safralfahd 9 739 12-03-21, 06:50 AM
آخر رد: علي بنيان
Question [مساعدة] ... شباب تظهر هي الرساله عندما اقوم ب ربط قاعدة البيانات..؟ Mahmoud41 5 816 10-12-20, 02:27 PM
آخر رد: Mahmoud41
  عند ضغط تشغيل للبرنامج تظهر هذه الأخطاء كريم عبودي 4 610 25-11-20, 11:46 PM
آخر رد: Anas Mahmoud
  طريقة جمع ارقام من تكست بوكس دفعة واحدة Codack 2 675 02-11-20, 03:14 AM
آخر رد: Codack
  مشكلة عند تنصيب البرنامج للعميل تظهر الرسالة هده Alanwalker 9 1,057 22-10-20, 11:20 PM
آخر رد: kiki
  كيف أضيف مجموعة من الـ My.Setting مرة واحدة باسم واحد مع تغير اخر رقم ؟ PeterGhattas082460 4 786 11-10-20, 11:02 PM
آخر رد: abdou
  [VB.NET] محتاج كود عرض اكثر من جدول فى داتا جرد فيو واحدة عن طريق اختيار الجدول من كومبوكس mohammed1994 1 760 01-09-20, 04:56 PM
آخر رد: اسامه الهرماوي
  رسالة خطأ تظهر في نسخة vb.net 2019 aftfm 3 703 12-08-20, 12:52 AM
آخر رد: حريف برمجة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم