تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اظهار الفورم مره واحده
#21
(26-10-19, 06:53 PM)asemshahen5 كتب :
PHP كود :
      ' 'Set or Add value to registry:
 
       Application.UserAppDataRegistry.SetValue("FirstOpening"False)


 
   '    'Get or Load value from registry:
 
       Application.UserAppDataRegistry.GetValue("FirstOpening"

ممكن شرح الكود والحدث المناسب له
الرد }}}
تم الشكر بواسطة:
#22
PHP كود :
' 'كود الحفظ للرجستري :
 
       Application.UserAppDataRegistry.SetValue("FirstOpening"False)


 
   '    'جلب محتوى القيمة المخزنة في الريجستري:
 
       Application.UserAppDataRegistry.GetValue("FirstOpening"

للتجربة قم بالتالي :

اعمل مشروع جديد افتح الفورم و اضف زرين على الفورم :

الزر الاول ضع به الكود التالي :

PHP كود :
Application.UserAppDataRegistry.SetValue("FirstOpening"False


الزر الثاني ضع به الكود التالي :

PHP كود :
MsgBox(Application.UserAppDataRegistry.GetValue("FirstOpening").ToString

اعمل بيلد للمشروع و شغله اضغط على الزر الاول و هو لحفظ قيمة في الريجستري و ثم اضغط على الزر الثاني و هو لجلب القيمة المخزنة في الرجستري و عرضها في مسج بوكس .
الرد }}}
تم الشكر بواسطة: 3booody , اليوم السابع
#23
بالضبط كما قال اخي [b]asemshahen5 اسأل الله ان يزيده علمآ[/b]


وحتى لايبقى سؤال لك اخي هذا كود كامل لك

لنفرض لديك تكست بوكس واذا كانت قيمة التكست بوكس هي 123 سيتحقق الشرط ويفتح الفورم الثاني واذا كانت غيرها لن يتم فتح الفورم الثاني ابدآ

ضع واحد تكست بوكس وزر بوتون


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If Application.UserAppDataRegistry.OpenSubKey("FirstOpening") Is Nothing Then
           Application.UserAppDataRegistry.CreateSubKey("FirstOpening", False)
       End If
       If Application.UserAppDataRegistry.GetValue("FirstOpening").ToString = "True" Then
           MsgBox("لن يتم فتح الفورم الثاني")
           Return
       End If
       If TextBox1.Text = "123" Then
           Application.UserAppDataRegistry.SetValue("FirstOpening", False)
           Form2.Show()
       Else
           Application.UserAppDataRegistry.SetValue("FirstOpening", True)
           MsgBox("خطأ في كلمة السر ولن يتم فتح الفورم الثاني")
       End If
   End Sub
الرد }}}
#24
(27-10-19, 01:43 AM)3booody كتب : بالضبط كما قال اخي [b]asemshahen5 اسأل الله ان يزيده علمآ[/b]


وحتى لايبقى سؤال لك اخي هذا كود كامل لك

لنفرض لديك تكست بوكس واذا كانت قيمة التكست بوكس هي 123 سيتحقق الشرط ويفتح الفورم الثاني واذا كانت غيرها لن يتم فتح الفورم الثاني ابدآ

ضع واحد تكست بوكس وزر بوتون


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If Application.UserAppDataRegistry.OpenSubKey("FirstOpening") Is Nothing Then
           Application.UserAppDataRegistry.CreateSubKey("FirstOpening", False)
       End If
       If Application.UserAppDataRegistry.GetValue("FirstOpening").ToString = "True" Then
           MsgBox("لن يتم فتح الفورم الثاني")
           Return
       End If
       If TextBox1.Text = "123" Then
           Application.UserAppDataRegistry.SetValue("FirstOpening", False)
           Form2.Show()
       Else
           Application.UserAppDataRegistry.SetValue("FirstOpening", True)
           MsgBox("خطأ في كلمة السر ولن يتم فتح الفورم الثاني")
       End If
   End Sub

مزال اخي عند تغير مكان الفولدر يتم ظهور الفورم ثانيا Sad
الرد }}}
تم الشكر بواسطة:
#25
أظن انك مخطأ اخي شوف المثال وجرب على كيفك وضعت لك زر يعيد الشغل من الاول للتجربة


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 62.35 ك ب / التحميلات : 26)
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] مشكلة في شكل الفورم abuyazan 5 293 27-02-24, 09:38 PM
آخر رد: aljzazy
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 271 29-12-23, 10:44 PM
آخر رد: Kamil
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  [VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير visualist2015 6 6,359 29-09-23, 03:09 AM
آخر رد: Taha Okla
Photo [سؤال] كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server salam82 3 456 20-09-23, 01:42 PM
آخر رد: salam82
  اظهار كرستال ريبورت MOHAMMED ALZWI 0 320 24-08-23, 02:47 PM
آخر رد: MOHAMMED ALZWI
  [VB.NET] نسخ الصور من الفورم الى الوورد صبيح 1 305 17-08-23, 03:03 PM
آخر رد: تركي الحلواني
  [VB.NET] احتاج كود يغلق جميع الفورم ويبقي فقط الفورم Home Ali_hassn 4 545 15-08-23, 06:43 PM
آخر رد: Alexander Max2

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


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