Message Box فارسی - نسخه بروز شده - Modal Message Box

[amirzandi]

سلام
این نسخه جدید از کامپوننت Message Box فارسی هست که به صورت مودال هم کار می کنه.

[sahand100]

سلام
این نسخه جدید از کامپوننت Message Box فارسی هست که به صورت مودال هم کار می کنه.

ممنون که کامپوننت های خود را برای ما رایگان به اشتراک می کذارید.

[amirzandi]

بزودی امکانات انیمیشن هم در این کامپوننت قرار خواهد گرفت. لطفا این نسخه را امتحان کنید.

[amirzandi]

دوستانی که استفاده کردن ، لطفا نظراتتون رو بگین

ممنون

[JaVa]

دوستانی که استفاده کردن ، لطفا نظراتتون رو بگین

حقیقتش رو بخوای زیاد حال نکردم باهاش.!؟؟
یعنی زیاد توی مایع های حرفه ای نبود.

پیشنهادات بنده :

Dim az As New MsgBoxStyle
With az
.Title = "عنوان مسیج باکس"
.Message = "پیام مسیج باکس"
.ModalMessageBox = True
.FormFocusAfterMessageBox = Me
.ShowTimer = True
.ModalOpacity = 0.7
.Buttons = MsgBoxStyle.MSGButtons.YesNo
.FormBorder = Windows.Forms.FormBorderStyle.FixedToolWindow
.TitleBackgroundColor = Color.Red
.TitleForeColor = Color.Black
.Icons = MsgBoxStyle.MSGIcons.Security
.Sound = Media.SystemSounds.Exclamation
.ShowBox()
End With

خدا وکیلی خودت قضاوت کن این همه کد برای نمایش یه پیغام ؟؟؟؟؟؟!!!!!!!
من که ترجیح میدم این شکلی باشه:
MessageBox.Show("پیام", "عنوان", MessageBoxButtons.OK, MessageBoxIcon.Warning)

ظاهرش رو باید بیشتر کار کنی مثلا ایکن برای عنوان پنجره

عرض مسیج باکس متناسب با پیغام عوض بشه نه اینکه فقط ثابت باشه.

اگه مشکلی بود بازم میگم
فقط حتما اینو عملی کن که یه تابع باشه مثل خود وی بی نه اینکه 200 خط بنویسی برای یه پیغام
موفق باشی

[amirzandi]

شما درست می گین ولی می تونین فقط مسیج رو set کنین با buttons و icons

من همه اونا رو نوشتم که مشخص شه property هایی که داره وگر نه با تنظیم Message هم این کار می کنه.

عرض مگر تغییر نمی کنه؟ یادمه که تنظیمش کرده بودم

ممنون از نظرت

[amirzandi]

اینم به حالتی که درخواست داده بودید...
البته به هر دو حالت تابع و Properties کار می کنه...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim az As New MsgBoxStyle
'az.Title = "Farsi Message Box"
'az.Message = "مسیج باکس فارسی"
'az.ModalMessageBox = True
'az.FormFocusAfterMessageBox = Me
'az.ShowTimer = True
'az.ModalOpacity = 0.7
'az.Buttons = MsgBoxStyle.MSGButtons.YesNo
'az.FormBorder = Windows.Forms.FormBorderStyle.FixedToolWindow
'az.TitleBackgroundColor = Color.Red
'az.TitleForeColor = Color.Black
'az.Icons = MsgBoxStyle.MSGIcons.Security
'az.Sound = Media.SystemSounds.Exclamation
'az.ShowBox()
Dim az As New MsgBoxStyle
az.ShowBox("Farsi Message Box", "تست فارسی", MsgBoxStyle.MSGButtons.OkCancel, MsgBoxStyle.MSGIcons.Warning)

End Sub

[alimanam]

با سلام

در ابتدا ازتون تشکر میکنم بابت نوشتن تابع مسج باکس فارسیتون .

لطفاً اگر دلیل خاصی نداره پروژه رو با نسخه های پایین تر کامپایل کنین تا انعطاف پذیری بیشتری برای استفاده داشته باشه چون خیلی ها هستن که هنوز دارن با ویژوال استودیو 2005 یا 2008 برنامه مینویسن و اینجوری نمیتون از رفرنس شما استفاده کنن .

موفق باشید./

[amirzandi]

حتما بزودی این کار رو انجام می دم...

[amirzandi]

این نسخه برای دات نت 3 نوشته شده ، امید وارم خوب باشه...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim az As New AZComponents.AZMessageBoxStyle
az.ShowBox("مسیج باکس امتحانی", AZComponents.AZMessageBoxStyle.AZButtons.YesNoCanc el, AZComponents.AZMessageBoxStyle.AZIcons.ShutDown, True)

End Sub


90954

[amirzandi]

نسخه 3.5 و 4 هم اینجا گذاشتم.