05-10-17, 01:10 AM
بسم الله الرحمن الرحيم وبه نستعين
هنالك طريقتين لحفظ الخيارات عند إغلاق البرنامج وفتحه من جديد :
1 - محرر التسجيل Registry Editor
2 - عن طريق Settings
هذا مثال للطريقة الأولى ولو أنه من الأفضل إستخدام الطريقة الثانية
الأكواد بالكامل :
كود :
Public Class Form1
'متغير من نوع نصي نجلب فيه القيمة
Dim read As String
'إخفاء الزر
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'False قم بإنشاء أو تغيير بيانات القيمة إلى
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "False", Microsoft.Win32.RegistryValueKind.String)
'قم بإخفاء الزر
Button3.Visible = False
End Sub
'عند الضغط على زر إظهار
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'True قم بإنشاء أو تغيير بيانات القيمة إلى
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "True", Microsoft.Win32.RegistryValueKind.String)
'قم بإظهار الزر
Button3.Visible = True
End Sub
'إغلاق الفورم
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'إذا كان الزر ظاهر
If Button3.Visible = True Then
'True قم بإنشاء أو تغيير بيانات القيمة إلى
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "True", Microsoft.Win32.RegistryValueKind.String)
End If
'إذا كان الزر مخفي
If Button3.Visible = False Then
'False قم بإنشاء أو تغيير بيانات القيمة إلى
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "False", Microsoft.Win32.RegistryValueKind.String)
End If
End Sub
'فتح الفورم
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'متغير يجلب بيانات القيمة
read = (My.Computer.Registry.GetValue _
("HKEY_CURRENT_USER\SOFTWARE\saud", "2", Nothing))
' True إذا كانت بيانات القيمة تساوي
If read = "True" Then
'قم بإظهار الزر
Button3.Visible = True
End If
' False إذا كانت بيانات القيمة تساوي
If read = "False" Then
'قم بإخفاء الزر
Button3.Visible = False
End If
End Sub
End Classالمشروع في المرفقات
