کنترل خطاها بصورت فارسی

[gh_fereydonpoor]

سلام به همه دوستان
من می خواهم یک کلاس بصورت کلی بنویسم که هر زمان به آن EX پاس دادی مقدار Message آنرا بصورت فارسی برگرداند.
آیا از دوستان کسی این کار را انجام داده.
خوشحال می شوم که کمکم کنید.
مرسی ممنون
یاعلی

[Morteza Manafpour]

کسی از دوستان روش این کار رو بلد نیست

[amirsajjadi]

با سلام
این کدها رو توی فرمت بنویس :

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
MsgBox(1 / "a")
Catch ex As Exception
Err_Control(ex)
MsgBox(ex.Message)
EndTry
EndSub

این کدها رو توی ماژول بنویس :

PublicSub Err_Control(ByRef ex As Exception)
If ex.Message = "Conversion from string ""a"" to type 'Double' is not valid."Then
Dim er AsNew Exception("نمیتواند a را به دابل تبدیل کند")
ex = er
EndIf
EndSub

[Morteza Manafpour]

آیا راهی برای دسترسی به کلاس ex وجود داره تا بشه کلیه خطاها رو ترجمه کرد تا خودش پیامها رو فارسی نشون بده

[linux]

آیا راهی برای دسترسی به کلاس ex وجود داره تا بشه کلیه خطاها رو ترجمه کرد تا خودش پیامها رو فارسی نشون بده

شما احتیاج دارید که کلیه خطاهای موجود سیستم را ترجمه کنید به این صورت که
شماره خطا:ترجمه پیغام به فارسی ، و در یک فایل مثلا بصورت xml ذخیره کنید و بر اساس شماره خطا فایل را بخوانید و پیغام را نمایش بدهید.

[saman_itc]

با این فرم و ماژولی که نوشتم
شما میتونی مقدار YEs No به صورت (بله خیر)از کاربر بگیری مثل MSGBOX پیغام فارسی بدی و خودت ICon بزاری


Msgbox_Custom("!ثبت شد", 1, 1, " ذخیره شماره")


این کد نگاه کن تو مثال.بقیش میاد دست

[Morteza Manafpour]

از کجا لیست شماره خطاها و نوشته های خطا رو بدست بیاریم