28-02-14, 11:56 AM
(آخر تعديل لهذه المشاركة : 29-06-15, 10:05 AM {2} بواسطة Genius Live.)
استخدام My.Setting
أفتح مشروع جديد
ثم إضغط علي My Project نقراً مزدوجاً
أذهب إلي التبويب Setting
أضف الإعدادات التالية
ضع الكود التالي في الحدث Load لـ Form
ثم ضع في الحدث Click لـ Button الكود التالي
غيير خاصية DropDownStyle إلي DropDownList
ثم افتح الخاصية Items واكتب بداخلها الثالث عناصر الأتية
White
Yellow
Red
ثم اضغط علي ComboBox1 نقراً مزدوجا ليفتح لك كود الحدث SelectedIndexChanged
أكتب الكود التالي
يوجد مثال بالمرفقات
أفتح مشروع جديد
ثم إضغط علي 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 ButtonName: SizeXSetting - Type: Integer - Scope: User - Value: 300
Name: SizeYSetting - Type: Integer - Scope: User - Value: 300
ضع الكود التالي في الحدث 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
كود :
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
ثم افتح الخاصية 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
يوجد مثال بالمرفقات
{ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ }
" Mohamed M. Bedair - " Abu Anas
Genius Live , Egypt