+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تثبيت حالة RadioButton للعمل بالحالة الأخيرة (/showthread.php?tid=32736)
تثبيت حالة RadioButton للعمل بالحالة الأخيرة - Mohammed Nafa - 29-12-19
السلام عليكم ورحمة الله وبركاته،
أرجو التكرم والمساعدة بكود يكتت ويقرأ من ملف TXT لحالته الأخيرة التي انتهى منها، بمعنى ان اغلق الفورم وحالة RadioButton18.Checked = True ء يبدء وحالته RadioButton18.Checked = True وان كانت حالته RadioButton18.Checked = False يبدا به كذالك...وكذلك التكست بوكس
وبارك الله بكم
RE: تثبيت حالة RadioButton للعمل بالحالة الأخيرة - Mohammed Nafa - 22-01-20
السلام عليكم ورحمة الله وبركاته
أرجو المساعدة ولكم جزيل الشكر
RE: تثبيت حالة RadioButton للعمل بالحالة الأخيرة - asemshahen5 - 22-01-20
هذا كود لحفظ ألوان الداتاغريدفيو في ملف نوت باء و القراءة منه لاعادة الالوان عند التحميل :
PHP كود :
#Region "Load And Save Dgv Color"
Public Sub LoadDgvColor(ByVal DgvTabel As DataGridView)
If File.Exists(Application.StartupPath & "\AsemColor.txt") Then
Dim c1 As String = String.Empty
Dim c2 As String = String.Empty
Dim c3 As String = String.Empty
Dim c4 As String = String.Empty
Dim c5 As String = String.Empty
Dim c6 As String = String.Empty
FileOpen(1, Application.StartupPath & "\AsemColor.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, c1) : Input(1, c2) : Input(1, c3) : Input(1, c4) : Input(1, c5) : Input(1, c6)
If c1 = 255 Then
DgvTabel.DefaultCellStyle.BackColor = Color.FromArgb(c1, c2, c3)
DgvTabel.AlternatingRowsDefaultCellStyle.BackColor = Color.FromArgb(c4, c5, c6)
End If
Loop
FileClose(1)
End If
End Sub
Public Sub SaveDgvColor(ByVal Color1 As Color, ByVal Color2 As Color)
Dim c1 As String = String.Empty
Dim c2 As String = String.Empty
Dim c3 As String = String.Empty
Dim c4 As String = String.Empty
Dim c5 As String = String.Empty
Dim c6 As String = String.Empty
c1 = Color1.R
c2 = Color1.G
c3 = Color1.B
c4 = Color2.R
c5 = Color2.G
c6 = Color2.B
FileOpen(1, Application.StartupPath & "\AsemColor.txt", OpenMode.Append)
WriteLine(1, c1)
WriteLine(1, c2)
WriteLine(1, c3)
WriteLine(1, c4)
WriteLine(1, c5)
WriteLine(1, c6)
FileClose(1)
End Sub
#End Region
RE: تثبيت حالة RadioButton للعمل بالحالة الأخيرة - Mohammed Nafa - 22-01-20
أشكر تفاعلكم، ممكن مثال أكثر وضوحا ...
RE: تثبيت حالة RadioButton للعمل بالحالة الأخيرة - asemshahen5 - 22-01-20
تفضل هذا مثال فيه ماتريد انشاء الله تعالى .
RE: تثبيت حالة RadioButton للعمل بالحالة الأخيرة - Mohammed Nafa - 22-01-20
بارك الله بكم وجزاكم الله كل خير ...
سوف اتطلع على الملف وأعلمكم بالنتائج بإذن الله ...
RE: تثبيت حالة RadioButton للعمل بالحالة الأخيرة - Mohammed Nafa - 23-01-20
السلام عليكم ورحمة الله وبركاته،
تم التعامل مع الملف والمثال واضح ويلبي المطلوب ...
بارك الله بكم وجزاكم كل خير
RE: تثبيت حالة RadioButton للعمل بالحالة الأخيرة - asemshahen5 - 23-01-20
الحمد الله و الشكر الله رب العالمين .