منتدى فيجوال بيسك لكل العرب

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

ياريت اخي مثلا يبقي كتر الف خيرك
السلام عليكم...
تفضل  Smile Smile
إضافة لما تقدم به اخي اسامة الهرماوي
كود :
If Application.OpenForms().OfType(Of Form2).Any Then
          MessageBox.Show("Form2 Is Open.")
      Else
          Form2.Show()
      End If
(25-10-19, 10:48 PM)اسامه الهرماوي كتب : [ -> ]السلام عليكم...
تفضل  Smile Smile

شكرا اخي ولكن عند اضافه 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

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

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

[attachment=23297]

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

PHP كود :
Public Class Form1
   
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles 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 
الصفحات : 1 2 3