منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مثال - استخدام My.Setting لتغيير خصائص برنامجك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : مثال - استخدام My.Setting لتغيير خصائص برنامجك (/showthread.php?tid=2056)

مثال - استخدام My.Setting لتغيير خصائص برنامجك - Genius Live - 28-02-14

استخدام My.Setting
أفتح مشروع جديد
ثم إضغط علي My Project نقراً مزدوجاً
أذهب إلي التبويب Setting
أضف الإعدادات التالية
Name: ColorSetting - Type: System.Drawing.Color - Scope: User - Value: White
Name: SizeXSetting - Type: Integer - Scope: User - Value: 300
Name: SizeYSetting - Type: Integer - Scope: User - Value: 300
ضع علي الفورم 1 ComboBox و 2 TextBox و 1 Button

ضع الكود التالي في الحدث Load لـ Form
كود :
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.BackColor = My.Settings.ColorSetting
       Me.Size = New Point(My.Settings.SizeXSetting, My.Settings.SizeYSetting)
   End Sub
ثم ضع في الحدث Click لـ Button الكود التالي
كود :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       My.Settings.SizeXSetting = TextBox1.Text
       My.Settings.SizeYSetting = TextBox2.Text
        My.Settings.Save()
       Me.Form1_Load(Me, New System.EventArgs)
       MsgBox("Done")
   End Sub
غيير خاصية DropDownStyle إلي DropDownList
ثم افتح الخاصية Items واكتب بداخلها الثالث عناصر الأتية
White
Yellow
Red
ثم اضغط علي ComboBox1 نقراً مزدوجا ليفتح لك كود الحدث SelectedIndexChanged
أكتب الكود التالي
كود :
   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       If ComboBox1.SelectedIndex = 0 Then
           My.Settings.ColorSetting = Color.White
       ElseIf ComboBox1.SelectedIndex = 1 Then
           My.Settings.ColorSetting = Color.Yellow
       ElseIf ComboBox1.SelectedIndex = 2 Then
           My.Settings.ColorSetting = Color.Red
       End If
        My.Settings.Save()
       Me.Form1_Load(Me, New System.EventArgs)
       MsgBox("Done")
   End Sub

يوجد مثال بالمرفقات

RolleyesRolleyesRolleyes

RE: مثال علي استخدام My.Setting لتغيير خصائص برنامجك - ربيع - 28-02-14

بارك الله فيك الله يعطيك العافيه

RE: مثال علي استخدام My.Setting لتغيير خصائص برنامجك - مالكـ - 28-02-14

مثال جميل

يعطيك العافية

RE: مثال - استخدام My.Setting لتغيير خصائص برنامجك - djelloul - 14-07-14

مرحبا
يعطيك ألف عافية أخي الكريم
لكن لو تشرح لنا الأكواد نكون ممتنين

شكرا