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

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

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

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

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

السلام عليكم...
تفضل 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)اسامه الهرماوي كتب : [ -> ]السلام عليكم...
تفضل

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

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

اليوم السابع

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

اليوم السابع

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

larbihamri

اليوم السابع

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

اليوم السابع

اليوم السابع

asemshahen5