Printable View
سلام. ببخشید این دومین سوالیه که امروز می پرسم
من مب خواستم یه کامپوننت که چند تا OCX و dll روداره از طریق کدنصب کنم و نه با setup انگلیسی خودش
نصب dll رو میدونم بادستور regsvr32 انجام میشه ولی Ocx رو نمیدونم.
کامپوننت رو هم احتملا می شناسید. VSFlexGrid7 هست
ممنون از راهنماییتون
ocx رو هم مثل همون dll ها ميتونيد نصب كنيد فقط بايد ادرس كامل بدين براي اين كار از دستور shell استفاده كنيد
درود به شمانقل قول:
ممکنه دستور نصب ocx و dll برای datagrid رو بنویسید(منظورم کدی که سبب نصب این فایلها میشه)
سپاس
ocx.نام کنترل اکتیو ایکس regsvr32.exe
البنه به جای اکتیو ایکس dll رو هم میتونی بنویسی
[کد:CODE]
نقل قول:
یعنی اینجوری بنویسم::41:کد:call shell(regsvr32.exe datagrid.dll)
تا اونجایی که من میدونم مسیر کامل regsvr32 رو باید بنویسید. این فایل توی system32 هست.نقل قول:
ضمنا تابع shell یک مقدار برمیگردونه یعنی باید به یه متغیر انتساب داده بشه
ازتون سپاسگزارم ولی هر جور می نویسمش error میده
میشه خواهش کنم یکی کد نصب فایلهای مورد نیاز برای datagrid رو به صورت کامل برام بنویسه
خیلی بهش نیاز دارم
ببین اول باید محل نصب ویندوز رو بفهمی. این کار با متغیر محیطی %windir% میشه که فولدر ویندوز رو بر میگردونهنقل قول:
بعد مثل اینه
dim retval as variant
retval=shell(wdir & "/system32.regsvr32.exe " & dllpath)
wdir مسیرفولدر ویندوز
dllpath مسیرکامل dll به همراه نام اون
بعد میتونی چک کنی توی فولدر system32 ببین dll تو اوجا هست یانه. قاعدتا اونجاکپی میشه
کد:
srh124 از لطفت یه دنیا ممنون
ولی من این کد رو نوشتم و بهم error می ده
wdir مقدارش صفر می شه
Private Sub command1_Click()
Dim temp As Variant
temp = Shell(wdir& / system32.regsvr32.exe& / App.path & "/ msadodc.ocx")
End Sub
گفتم که باید متغیر wdir رو با مسیر فولدر ویندوز پر کنی. یه راهش اینه.
با تابع environ اگه اسمش درستیادم مونده باشه، میتونه مقدار یه متغیر محیطی رو بگیری
متغیر محیطی=environment variables
wdir=environ(windir)
یه سرچ توی msdn کنار vb بکنی توضیحات بیشتری داره
موفق باشی