[kslawy]

السلام عليكم ورحمة الله وبركاته

دالة إنشاء المفتاح الذي سيحوى التاريخ مع إضافة تاريخ اليوم مع الوقت كقيمة للمفتاح المنشأ :

كود :

Private Sub CreateMyRegistryValue()
        Try
            Application.CommonAppDataRegistry.SetValue("abuzzouz", Now)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Create Value")
        End Try
    End Sub

في حدث تحميل النموذح FormLoad نتحقق من عدم خلو المفتاح السابق من أي قيمة ، إذا كان خالي سيتم تعيين تاريخ اليوم له بالدالة السابقة :

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim MyValue As String = Nothing
        MyValue = Application.CommonAppDataRegistry.GetValue("abuzzouz")


        If MyValue = Nothing Then
            MsgBox("هذه أول مرة تشغل البرنامج سيتم حفظ تاريخ اليوم")
            CreateMyRegistryValue()
        End If


    End Sub

حسناً إذا أردت حذف المفتاح استخدم هذه الدالة :

كود :

Private Sub DeleteMyRegisrtyValue()
        Try
            Application.CommonAppDataRegistry.DeleteValue("abuzzouz")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Delete Value")
        End Try
    End Sub

****
***
**
*