+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : (تم الحل) مساعده التحقق في الريجستري (/showthread.php?tid=7008)
(تم الحل) مساعده التحقق في الريجستري - مالكـ - 17-11-12
السلام عليكم ورحمة الله وبركاته
الى الاخوة الكرام
ارديد كود التحقق من قيمه في الريجستري
اضعه في الفورم الرئيسي .... الكود
( اذا كانت القيمه موجوده .... يفتح الفورم الرئيسي ... اما اذا لم تكن القيمه موجود فتح فورم اخر )
(تم الحل) مساعده التحقق في الريجستري - m.sami.ak - 17-11-12
كود :
Try
Dim regKey As Microsoft.Win32.RegistryKey
regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("مسار المفتاح", True)
If regKey.GetValue("اسم المفتاح") Is Nothing Then
form3.show
End If
End If
regKey.Close()
Catch ex As Exception
End Tryواذا اردت اضافة قيمة لمفتاح ما
كود :
regKey.SetValue("ضع القيمة هناا", "اسم المفتاح")تحياتي لك
ابو سامي
(تم الحل) مساعده التحقق في الريجستري - مالكـ - 17-11-12
اخي سامي ... يعطيك العافيه
لم يتغير شي بالمثال
PHP كود :
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
'عند التحقق من قيمه في الريجستري ... تشغيل الفورم الحالي ... اما اذا لم يوجد قيمه تشغيل فورم اخر
End Sub
End Class
(تم الحل) مساعده التحقق في الريجستري - مالكـ - 17-11-12
للرفع
للرفع
(تم الحل) مساعده التحقق في الريجستري - Osama_Ghareeb - 17-11-12
كود :
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(تم الحل) مساعده التحقق في الريجستري - مالكـ - 18-11-12
Osama_Ghareeb
لم يعمل معي الكود
على العموم وضعت مثال
احتاج في حدث Form1_Load
اذا كانت القيمه موجوده .... فتح الفورم 1 كما هو
واذا لم تكن القيمه موجوده فتح فورم 2
مع الشكر
(تم الحل) مساعده التحقق في الريجستري - amgadtamer - 18-11-12
التحقق يكون هكذا
PHP كود :
If Registry.CurrentUser.GetValue("Test") Is Nothing Then
'فى حالة عدم وجود القيمة
Else
'فى حالة وجود القيمة
End If
(تم الحل) مساعده التحقق في الريجستري - مالكـ - 18-11-12
يعطيك العافيه
الكود يعمل معي جيدآ
حبيت اخذ رائيك في هذا الكود .... الكود يعمل معي ... هل هو صحيح 100% ام يفضل الكود السابق.؟
PHP كود :
Dim str As String = Registry.CurrentUser.GetValue("Test")
If (str Is Nothing) = 0 Then
Else
MsgBox("لم يتم تفعيل الريجستري")
Me.Close()
End If
(تم الحل) مساعده التحقق في الريجستري - amgadtamer - 18-11-12
كلاهما صحيح ولا يوجد فرق كبير بينهما وإن كان الكود الأول أفضل لأنه قام بالتأكد من وجود القيمة مباشرة دون الحاجة لتعريف متغير وحفظه فى الذاكرة
وإن كنت أفضل أن تقوم بعمل مفتاح خاص بتطبيقك يتم إضافة أى قيم تحتاج لتخزينها
تحياتى