منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - امل المساعدة في التعامل مع الريجستري

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

امل المساعده Blush

في التعامل مع الريجستري

تم إضافة مفتاح في الريجستري في هذا الجذر

HKEY_CURRENT_USER\Software\allayl

المطلوب Big Grin

1 . إنشاء مفتاح في الريجستري

2 . حذف المفتاح من الريجستري

3 . قراءة قيمة المفتاح في الريجستري

4 . تعديل قيمة المفتاح في الريجستري

امل المساعده Blush

.....

كود :

Private Sub Form_Load()

    ' قراءة مفاتيح الرجيستري

    Me.Left = Val(GetSetting(App.Title, Me.Name, "Left"))

    Me.Top = Val(GetSetting(App.Title, Me.Name, "Top"))

    ' حذف مفاتيح الرجيستري - لابد من وجودها والا ظهر خطأ

    On Error Resume Next

    DeleteSetting App.Title, Me.Name, "Left"

    DeleteSetting App.Title, Me.Name, "Top"

    On Error GoTo 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

    ' إنشاء أو تعديل مفاتيح الرجيستري

    SaveSetting App.Title, Me.Name, "Left", Me.Left

    SaveSetting App.Title, Me.Name, "Top", Me.Top

End Sub

.....

شكرآ اخي بارك الله فيك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

allayl

vbnet

allayl