منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود (/showthread.php?tid=40095)

طلب كود - paveldida - 25-11-21

السلام عليكم
عندي فورم به 3 كومبوبوكس ،الاول Font ، الثاني style Font ، الثالث size Font
اريد كود لحفظه في seting و اكود لللود


RE: طلب كود - سعود - 25-11-21

[صورة مرفقة: www.png]

اخي الكريم كل اداة لها خصائص بنافذة الخصائص مرتبطة بـsettings  حدد المطلوب وستجد كل شيء يتم حفظه تلقائيا


[صورة مرفقة: rrr.png]


RE: طلب كود - paveldida - 26-11-21

آسف ربما لم أطرح السؤال بشكل جيد
اريد تغيير هذا 
[صورة مرفقة: p_2155hsw001.png]

عن طريف الفورم هذا المتكون من 3 combobox
[صورة مرفقة: p_21557hdrc1.png]


RE: طلب كود - سعود - 26-11-21

[صورة مرفقة: f.png]
شوف هذا مثال يشرح الطريقة


RE: طلب كود - paveldida - 26-11-21

بارك الله فيك ، لاكن ينقص كود اقلاع الكومبوكس على مات تخزينه في setting

RE: طلب كود - سعود - 26-11-21

(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]
هذا تم تحميله في حدث تحميل الفورم
كلمة المرور:vb4arb
المثال مرفق


RE: طلب كود - paveldida - 26-11-21

شكراااااااااااا

RE: طلب كود - سعود - 26-11-21

(26-11-21, 05:03 PM)paveldida كتب : شكراااااااااااا

عفواااااااااااا