[سعود]

(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 


عدل بالمثال ليكون كما ترى بالكود


هذا تم تحميله في حدث تحميل الفورم

---

كلمة المرور:vb4arb

المثال مرفق