Imports Microsoft.Win32 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Registry.CurrentUser.SetValue("Test", "My Reg Key") MsgBox("موافق") End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Registry.CurrentUser.DeleteValue("Test") MsgBox("موافق") End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim str As String = Registry.CurrentUser.GetValue("Test") MsgBox(str) End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 'عند التحقق من قيمه في الريجستري ... تشغيل الفورم الحالي ... اما اذا لم يوجد قيمه تشغيل فورم اخر
Dim exists As Boolean = False
Try
If My.Computer.Registry.CurrentUser.OpenSubKey("Test") IsNot Nothing Then
exists = True
End If
Finally
My.Computer.Registry.CurrentUser.Close()
End Try
If Not exists Then
Application.ExitThread()
End If
[SIZE=6]لا إله إلا أنت سبحانك إني كنت من [/SIZE][SIZE=6]الظالمين[/SIZE][SIZE=6] [/SIZE]
كلاهما صحيح ولا يوجد فرق كبير بينهما وإن كان الكود الأول أفضل لأنه قام بالتأكد من وجود القيمة مباشرة دون الحاجة لتعريف متغير وحفظه فى الذاكرة
وإن كنت أفضل أن تقوم بعمل مفتاح خاص بتطبيقك يتم إضافة أى قيم تحتاج لتخزينها