25-11-21, 09:12 PM
25-11-21, 11:56 PM
اخي الكريم كل اداة لها خصائص بنافذة الخصائص مرتبطة بـsettings حدد المطلوب وستجد كل شيء يتم حفظه تلقائيا
26-11-21, 12:07 AM
آسف ربما لم أطرح السؤال بشكل جيد
اريد تغيير هذا
عن طريف الفورم هذا المتكون من 3 combobox
26-11-21, 01:36 AM
شوف هذا مثال يشرح الطريقة
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
عدل بالمثال ليكون كما ترى بالكود
هذا تم تحميله في حدث تحميل الفورم
كلمة المرور:vb4arb
المثال مرفق
26-11-21, 05:03 PM
26-11-21, 05:43 PM