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

تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
مثال - استخدام My.Setting لتغيير خصائص برنامجك
#1
Rainbow 
استخدام 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


الملفات المرفقة
.rar   Genius_Live_MySetting.rar (الحجم : 71.99 ك ب / التحميلات : 561)
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد
#2
بارك الله فيك الله يعطيك العافيه
الرد
تم الشكر بواسطة:
#3
مثال جميل

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

شكرا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [مشروع] سورس بسيط يبين مثال توليد لون عشوائي للفورم واي اداة وجميع خواصها كل ثانية Random وعد مولود 0 17 أمس, 04:15 AM
آخر رد: وعد مولود
  [مشروع] مثال يشرح طريقة تنظيم الـ DataGridView لعمل الجداول المدرسية أو جداول الأعمال عبدالله الدوسري 7 421 08-08-18, 09:04 PM
آخر رد: loooover2014
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 56 11,907 12-07-18, 03:58 AM
آخر رد: dametucorazon
  [مشروع] تعدد لغات برنامجك بطريقة سهلة سعود 9 280 04-07-18, 12:23 PM
آخر رد: سعود
  [مشروع] مشاركة بسيطة [مشاهدة احصائية الموقع من برنامجك] سعود 10 526 16-06-18, 09:35 AM
آخر رد: سعود
  [مشروع] مثال لنشر تحديثات تطبيقك للعملاء سعود 28 11,304 29-05-18, 09:41 PM
آخر رد: YousefOkasha
  [مشروع] مثال لاستخلاص بيانات من ملف xml لكن من صفحة ويب سعود 2 196 18-05-18, 06:05 AM
آخر رد: عبدالله الدوسري
  مثال فاتورة مبيعات محمود صالح 3 502 29-01-18, 01:23 AM
آخر رد: محمود صالح
  مثال لتبديل الازرار محمود صالح 0 187 22-01-18, 10:28 PM
آخر رد: محمود صالح
  [VB.NET] مثال على تقسيم الخصم الكلى للفاتورة على جميع الأصناف بدلالة الحد الأدنى orclemansora 0 258 02-11-17, 08:55 PM
آخر رد: orclemansora

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم