منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيفية عمل برنامج ب vb 10 عند تشغيله لأول مرة يظهر فورم معين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيفية عمل برنامج ب vb 10 عند تشغيله لأول مرة يظهر فورم معين (/showthread.php?tid=15870)

كيفية عمل برنامج ب vb 10 عند تشغيله لأول مرة يظهر فورم معين - aloul12 - 22-05-16

السلام عليكم
أرجو منكم المساعدة في كيفية عمل برنامج ب  vb 10 عند تشغيله لأول مرة يظهر فورم 1 مثلا وعند فتحه مرة أخرى يظهر فورم 2 
وأرجو أن تكون الفكرة قد وصلت

RE: كيفية عمل برنامج ب vb 10 عند تشغيله لأول مرة يظهر فورم معين - محمد كريّم - 22-05-16

وعند تشغيله ثالث مرة؟ يفتح فورم 1 والا فورم2

RE: كيفية عمل برنامج ب vb 10 عند تشغيله لأول مرة يظهر فورم معين - سعود - 22-05-16

ان كان القصد تغيير المحتوى فيمكنك استخدام فورم واحد مع تغيير المحتوى حسب رغبتك.

RE: كيفية عمل برنامج ب vb 10 عند تشغيله لأول مرة يظهر فورم معين - aloul12 - 22-05-16

(22-05-16, 04:50 PM)محمد كريّم كتب : وعند تشغيله ثالث مرة؟ يفتح فورم 1 والا فورم2

وعند تشغيله ثالث مرة؟ يفتح فورم 2 ويبقى على هذه الحال دائما

RE: كيفية عمل برنامج ب vb 10 عند تشغيله لأول مرة يظهر فورم معين - amgad525 - 22-05-16

PHP كود :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim r = GetSetting(Application.ProductName, Me.Name, "FirstStart", False)
        If r Then
            Form2.ShowDialog()
            Me.Close()
        End If
        SaveSetting(Application.ProductName, Me.Name, "FirstStart", True)
    End Sub

End Class 


RE: كيفية عمل برنامج ب vb 10 عند تشغيله لأول مرة يظهر فورم معين - aloul12 - 22-05-16

(22-05-16, 05:54 PM)amgad525 كتب :
PHP كود :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim r = GetSetting(Application.ProductName, Me.Name, "FirstStart", False)
        If r Then
            Form2.ShowDialog()
            Me.Close()
        End If
        SaveSetting(Application.ProductName, Me.Name, "FirstStart", True)
    End Sub

End Class 


شكرا لك أخي الكريم وبارك الله فيك

ولك كل الإحترام مني وعلى ردك السريع الرائع