+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://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
اخي الكريم كل اداة لها خصائص بنافذة الخصائص مرتبطة بـsettings حدد المطلوب وستجد كل شيء يتم حفظه تلقائيا
RE: طلب كود - paveldida - 26-11-21
آسف ربما لم أطرح السؤال بشكل جيد
اريد تغيير هذا
عن طريف الفورم هذا المتكون من 3 combobox
RE: طلب كود - سعود - 26-11-21
شوف هذا مثال يشرح الطريقة
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
عدل بالمثال ليكون كما ترى بالكود
هذا تم تحميله في حدث تحميل الفورم
كلمة المرور:vb4arb
المثال مرفق
RE: طلب كود - paveldida - 26-11-21
شكراااااااااااا
RE: طلب كود - سعود - 26-11-21
(26-11-21, 05:03 PM)paveldida كتب : شكراااااااااااا
عفواااااااااااا