نوشته شده توسط
R2du-soft
داداشی محسن اگه تو کد بالا که گفتی key
HKEY_CURRENT_CONFIG\reza\2
وجود نداشته باشه اونوقت کلا دیگه نه
HKEY_CURRENT_CONFIG\reza\1
و نه
HKEY_CURRENT_CONFIG\reza\3
ثبت میشه داخل textBox !!!!!
کلا اگه چیزی که تعریف کردی وجود نداشته باشه و چند تای دیگه وجود داشته باشه textbox خالی میمونه !!!!
چطور میشه اگه یکیش هم وجود نداشت بقیه رو ثبت کنه؟
مرسی گلم
در صورت نبود کلید های تعریف شده برنامه تولید خطا میکند اما چون دستگیره های خطا خاموش است خطایی ظاهر نمی شود، کد زیر را بررسی کنید:
Private Sub Form_Load()
On Error Resume Next
Dim WshShell As Object, sV1$, sV2$, sV3$
Set WshShell = CreateObject("WScript.Shell")
sV1$ = WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\1")
sV2$ = WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\2")
sV3$ = WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\3")
Text4.Text = sV1$ & sV2$ & sV3$
End Sub