| View previous topic :: View next topic |
| Author |
Message |
Rayaneh.farda
مهمون يكي دو روزه
Joined: 16 Aug 2006
Posts: 22
|
 Posted: Mon Sep 04, 2006 1:42 pm Post subject: طريقه نحو error |
 |
|
چطور ميتوان error برنامه را محو كردن و بجاي آن يك msgbox نمايش دهد
Last edited by Rayaneh.farda on Tue Sep 05, 2006 8:54 am; edited 1 time in total |
|
| Back to top |
|
 |
arash
مدير بخش سي
Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com
|
| Posted: Mon Sep 04, 2006 7:59 pm Post subject: |
|
|
لطفا عنوان مرتبط انتخاب کنید
در vb6 می تونی از دستورات زیر استفاده کنی
On Error GoTo line
On Error Resume Next
On Error GoTo 0
و این هم یک نمونه مثال برای اینکه بدونی طریقه استفادش چیه
|
Sub InitializeMatrix(Var1, Var2, Var3, Var4)
On Error GoTo ErrorHandler
. . .
Exit Sub
ErrorHandler:
. . .
Resume Next
End Sub
|
این کدی که گزاشتم راحت ترین راهی که می شه یه برنامه رو دیباگ کرد
کافیه داخل هر رویه On Error GoTo ErrorHandler رو بنویسی که این ErrorHandler می تونه یک عدد یا یک برچسب باشه . بعد کد معمولی خودت رو می نویسی و در انتهای کد ها Exit Sub رو می زاری بعد برچسب رو می نویسی و بعد دونقطه می زاری و کدی رو که زمان خطا می خوای نشون بدی می نویسی و در نهایت هم end sub |
|
| Back to top |
|
|
Rayaneh.farda
مهمون يكي دو روزه
Joined: 16 Aug 2006
Posts: 22
|
| Posted: Tue Sep 05, 2006 8:53 am Post subject: Re: طريقه نحو error |
|
|
| Rayaneh.farda wrote: | | چطور ميتوان error برنامه را محو كردن و بجاي آن يك msgbox نمايش دهد |
|
|
| Back to top |
|
|
arash
مدير بخش سي
Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com
|
| Posted: Tue Sep 05, 2006 11:31 pm Post subject: |
|
|
| 1)Sub InitializeMatrix(Var1, Var2, Var3, Var4)
2) On Error GoTo ErrorHandler
3) . . .
4) Exit Sub
5)ErrorHandler:
6) . . .
7)End Sub |
خط یک و هفت همیشه هست. یعنی تو به هر حال اگه بخوای یه برنامه بنویسی مجبوری توی یک رویه یا تابع کد نویسی کنی. بعد از این که فهمیدی تو کدوم رویه یا تابع ( که با Sub شروع و بهend Sub تموم می شه )می خوای error گیری کنی کدی که تو خط 2 نوشتم رو می نویسی. این دستور می گه وقتی error رخ داد برو به جایی که اسمش رو ErrorHandler گزاشتم در ضمن این ErrorHandler می تونه یک عدد باشه یا یک برچسب ( نوشته مثلا همین ErrorHandler ).
در پایان کدهای خودت ( برای مثال در خط 3 کد هایی که می خواهی چک بشن خطا می دن یا نه ) .
بعد از این که کدهای مورد نظرت برای اجرا شدن رو گزاشتی مثال خط 4 دستور Exit Sub رو می نویسی. این برای اینه باقی کدها اجرا نشه چون باقی کدها برای زمانی هستش که کدت خطا بده برای همین نمی خوایم همیشه اجرا بشن
حالا مثل خط 5 اسم برچسب یا عددی رو که انتخاب کرده بودی ( مثلا ErrorHandler ) رو می نویسی بعدش هم یک عدد : می گزاری
مثل خط 6 در خطوط بعد کدهایی رو می نویسی که در زمان خطا می خوای اجرا شن
مثلا بنویس ("msgbox("error
همین |
|
| Back to top |
|
|
Rayaneh.farda
مهمون يكي دو روزه
Joined: 16 Aug 2006
Posts: 22
|
| Posted: Wed Sep 06, 2006 11:04 am Post subject: |
|
|
| Private Sub Command1_Click()
On Error GoTo ErrorHandler
Shell "Regsvr32 COMCT332.OCX"
Exit Sub
ErrorHandler:
MsgBox "مشكل دارد"
End Sub
|
مرسي از راهنمايت
ولي من در اينجا مشكل دارم |
|
| Back to top |
|
|
arash
مدير بخش سي
Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com
|
| Posted: Wed Sep 06, 2006 9:33 pm Post subject: |
|
|
این error به خاطر این هستش که COMCT332.OCX رو باید تو دایکتوری زیر کپی می کردی بعد این دستور رو می نوشتی
در واقع این error هیچ ربطی به vb نداره بلکه error داسه
برای حل شدن مشکل COMCT332.OCX رو تو دایکتوری ویندوز طرف تو فلدر /windows/system32/ کپی کن مشکل حل می شه |
|
| Back to top |
|
|
|
Profile 
Log in to check your private messages | 
FAQ 
Search 
Memberlist 
Usergroups 
Log in
Register
