2 تا سوال

saeed-n

Member
سلام
من یه برنامه کاربردی با vb6 نوشتم اگه ممکنه 2 تا سوال دلشتم
1 چطور ocx و adodc های این برنامه رو به کامپیوتر های دیگه نصب کنیم ضمنا با iexpress ویندوز ستاپ ساختم که متاسفانه تو سیستم های دیگه جواب نداد و ارور داد
2 چطور خطاهای احتمالی که تو برنامه رخ خواهد داد را مدیریت کنیم
 

the_king

مدیرکل انجمن
چرا کسی جواب نمیده ؟

C7 - پیش از پاسخگویی سایر کاربران به آخرین پاسخی که خودتان ایجاد کرده اید پاسخی ندهید.
برای بالا آوردن مبحثی که خودتان ایجاد کرده اید پاسخ های بی مورد ارسال نکنید، برای دریافت کردن پاسخ از سایر کاربران باید صبور باشید. ارسال کردن مطالب بی مورد و اضافی اسپم محسوب شده و ممنوع است.

سلام
من یه برنامه کاربردی با vb6 نوشتم اگه ممکنه 2 تا سوال دلشتم
1 چطور ocx و adodc های این برنامه رو به کامپیوتر های دیگه نصب کنیم ضمنا با iexpress ویندوز ستاپ ساختم که متاسفانه تو سیستم های دیگه جواب نداد و ارور داد

اول باید فایل های مورد نیاز برنامه رو تشخیص دهید تا در Setup اضافه شون کنید.

معمولا در Setup ساز های درست و حسابی میشه فایل های مورد نیاز برای نرم افزار رو از طریق Import کردن
فایل vbp پروژه یا یک قابلیت Dependency Analyzer داخلی Setup ساز پیدا کرد، اما به هر حال باید
فایل های OCX و DLL مورد نیاز برای پروژه رو در پوشه برنامه یا مسیر System32 ویندوز کپی کرده و با خود
Setup ساز یا Regsvr32 در حافظه Registry ویندوز ثبت کنید. معمولا در Setup ساز می توانید در تنظیمات
فایل های OCX و DLL مشخصه Register شدن رو فعال کنید. بهتره که فایل هایی که Register می شوند
در System32 باشند، نه پوشه برنامه.

2 چطور خطاهای احتمالی که تو برنامه رخ خواهد داد را مدیریت کنیم
محل بروز خطا ها معمولا مشخص اند، جاهایی که با فایل ها و پوشه ها سر و کار دارید، جاهایی که مقداری
از کاربر دریافت میشه، جاهایی که عددی بر عددی تقسیم یا ضرب میشه و ...
در محل هایی که احتمال بروز خطا هست، به یک کد On Error Goto احتیاج دارید :
کد:
[COLOR="Gray"]Private Sub Form_Load()[/COLOR]
[COLOR="Blue"][B]    On Error GoTo LErr[/B][/COLOR]
    Open "ZZZ:" For Input As #1
    Close #1
[B][COLOR="Blue"]    Exit Sub
LErr:
    MsgBox "Error " & CStr(Err.Number) & " :" & vbNewLine & Err.Description, vbExclamation, "Error"[/COLOR][/B]
[COLOR="Gray"]End Sub[/COLOR]
 

جدیدترین ارسال ها

بالا