25-11-21, 09:12 PM
25-11-21, 11:56 PM
![[صورة مرفقة: www.png]](https://i.postimg.cc/dV1Y0GWp/www.png)
اخي الكريم كل اداة لها خصائص بنافذة الخصائص مرتبطة بـsettings حدد المطلوب وستجد كل شيء يتم حفظه تلقائيا
![[صورة مرفقة: rrr.png]](https://i.postimg.cc/gkxskJV4/rrr.png)
26-11-21, 12:07 AM
آسف ربما لم أطرح السؤال بشكل جيد
اريد تغيير هذا
![[صورة مرفقة: p_2155hsw001.png]](https://d.top4top.io/p_2155hsw001.png)
عن طريف الفورم هذا المتكون من 3 combobox
![[صورة مرفقة: p_21557hdrc1.png]](https://j.top4top.io/p_21557hdrc1.png)
26-11-21, 01:36 AM
![[صورة مرفقة: f.png]](https://i.postimg.cc/Z5gGjnmM/f.png)
شوف هذا مثال يشرح الطريقة
26-11-21, 12:39 PM
26-11-21, 04:36 PM
(26-11-21, 12:39 PM)paveldida كتب : [ -> ]بارك الله فيك ، لاكن ينقص كود اقلاع الكومبوكس على مات تخزينه في setting
PHP كود :
Public Class Form1
Dim mc As String = ""
Dim mf As String = ""
Dim ms As String = ""
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Settings.Lcolor = Color.FromName(ccolor.Text)
My.Settings.Lfont = New Font(cname.Text, cs.Text)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
mc = Label2.ForeColor.ToString.Replace(" ", "").Replace("[", "").Replace("]", "").Replace("Color", "").Trim.ToLower
mf = Label2.Font.Name
ms = Label2.Font.Size
Dim i As Integer = ccolor.FindString(mc)
ccolor.SelectedIndex = i
Dim i2 As Integer = cname.FindString(mf)
cname.SelectedIndex = i2
Dim i3 As Integer = cs.FindString(ms)
cs.SelectedIndex = i3
End Sub
End Class
عدل بالمثال ليكون كما ترى بالكود
![[صورة مرفقة: fff.png]](https://i.postimg.cc/5ynkvZNv/fff.png)
هذا تم تحميله في حدث تحميل الفورم
كلمة المرور:vb4arb
المثال مرفق
26-11-21, 05:03 PM
26-11-21, 05:43 PM