maxtools
یک شنبه 31 مرداد 1389, 17:12 عصر
چرا به این ایراد میگیره ویژوال بیسیک
دستور زیر یک مسیر از ویژوال بیسیک می خونه بعد تو یک تکس چاپ می کنه
wshshell به ایراد می گیره
فقط تو قسمت جنرال این کد قرار داره Option Explicit اما اگه نباشه قسمت دیگه برنامه از کار می افته وقتی پاکش می کنم کد زیر کار می کنه ؟
خواهشا کمک
Private Sub Form_Load()
Set wshshell = CreateObject("WScript.Shell")
Text1.Text = wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\ProductId")
End Sub
دستور زیر یک مسیر از ویژوال بیسیک می خونه بعد تو یک تکس چاپ می کنه
wshshell به ایراد می گیره
فقط تو قسمت جنرال این کد قرار داره Option Explicit اما اگه نباشه قسمت دیگه برنامه از کار می افته وقتی پاکش می کنم کد زیر کار می کنه ؟
خواهشا کمک
Private Sub Form_Load()
Set wshshell = CreateObject("WScript.Shell")
Text1.Text = wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\ProductId")
End Sub