[اليوم السابع]

كيف اقدر اسوي اظهار الفورم مره واحده فقط اذا كان الشرط صحيح وعدم اظهارها نهائيا

[اسامه الهرماوي]

السلام عليكم...
بتخذين قيمة في الsettings وتكون Boolean واذا كان الشرط صحيحا يجعلها true واذا كان خطأ false
فلو =true يدخل غير هكذا لا.
إذا أرردت مثالا فلا امانع.

[اليوم السابع]

(25-10-19, 12:59 PM)اسامه الهرماوي كتب : السلام عليكم...
بتخذين قيمة في الsettings وتكون Boolean واذا كان الشرط صحيحا يجعلها true واذا كان خطأ false
فلو =true يدخل غير هكذا لا.
إذا أرردت مثالا فلا امانع.

ياريت اخي مثلا يبقي كتر الف خيرك

[اسامه الهرماوي]

السلام عليكم...
تفضل 

[larbihamri]

إضافة لما تقدم به اخي اسامة الهرماوي

كود :

If Application.OpenForms().OfType(Of Form2).Any Then
          MessageBox.Show("Form2 Is Open.")
      Else
          Form2.Show()
      End If

[اليوم السابع]

(25-10-19, 10:48 PM)اسامه الهرماوي كتب : السلام عليكم...
تفضل 

شكرا اخي ولكن عند اضافه 1 في التكست بوكس يظهر الفورم رقم 2 وعند اغلاق البرنامج وفتحه مره اخري يتم اعاده العماليه من جديد

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

محاولة ليست جادة .. بعد منتصف الليل .. يمكن تجد الأفضل

كود :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       If My.Settings.FirstOpening = True Then
           My.Settings.FirstOpening = False
           My.Settings.Save()
       ElseIf My.Settings.FirstOpening = False Then
           Form2.ShowDialog()
           Me.Dispose()
       End If
   End Sub
End Class

[اليوم السابع]

(26-10-19, 04:22 AM)عبد العزيز البسكري كتب :

السلام عليكم و رحمة الله و بركاته

محاولة ليست جادة .. بعد منتصف الليل .. يمكن تجد الأفضل

كود :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       If My.Settings.FirstOpening = True Then
           My.Settings.FirstOpening = False
           My.Settings.Save()
       ElseIf My.Settings.FirstOpening = False Then
           Form2.ShowDialog()
           Me.Dispose()
       End If
   End Sub
End Class

لم تظبط معي اخي برضو

[اليوم السابع]

(26-10-19, 04:43 AM)اليوم السابع كتب :

(26-10-19, 04:22 AM)عبد العزيز البسكري كتب :

السلام عليكم و رحمة الله و بركاته

محاولة ليست جادة .. بعد منتصف الليل .. يمكن تجد الأفضل

كود :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       If My.Settings.FirstOpening = True Then
           My.Settings.FirstOpening = False
           My.Settings.Save()
       ElseIf My.Settings.FirstOpening = False Then
           Form2.ShowDialog()
           Me.Dispose()
       End If
   End Sub
End Class

لم تظبط معي اخي برضو

............................................................

[asemshahen5]

أولا ادخل الى الستينغ و غير كالصورة :

   

ثانيا عدل في الكود ليكون كالتالي :

PHP كود :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       If My.Settings.FirstOpening = True Then
           My.Settings.FirstOpening = False
           My.Settings.Save()
       ElseIf My.Settings.FirstOpening = False Then
           Form2.Show()
           close
       End If
   End Sub
End Class