چگونه آرگومانهای یک تابع ، بصورت DialogBox در می آیند ؟

[habedijoo]

سلام

هنگام صدا زدن MessageBox آرگومانهای آن بصورت DialogBox ظاهر میشوند . من چطور می توانم آرگومان تابع خودم را به این شکل در آورم . ؟

لازم به ذکر است که می خواهم گزینه های آرگومان را خودم تعیین کنم . نه از گزینه های آماده MsgBox استفاده کنم .

[fotrosi]

با سلام
ببخشید من فکر می کنم درست متوجه منظور شما نشدم.

به هر حال اگر بخواهید در توابع خود آرگومانهای اختیاری داشته باشید می توانید به صورت زیر عمل کنید:
<span dir=ltr>
private sub function1(arg1 as integer , optional arg2 as integer=10 )
<span dir=rtl>
که در مثال بالا arg1 اجباری و arg2 اختیاری با مقدار پیش فرض 10 می باشند.

خوب امیدوارم سوال شما را درست فهمیده باشم!</span>

[habedijoo]

با سلام و تشکر از جوابت

نه منظورم آرگومان اختیاری نیست .! ببین وقتی که تابع MsgBox رو صدا می کنی و در موقع انتخاب دکمه های آن یه پنجره باز می شه و یه تعداد گزینه پیش روی شما قرار داده می شه . و شما می تونید از بین یکی از این گزینه ها انتخاب کنید .

در ضمن بوسیله ResaultDialog هم میشه این کارو کرد ولی من می خواهم آرگومان هام جدید باشه .

با تشکر از همه

[linux]

می تونی یه فرم بسازی همه اون چیزهایی که لازم داری داخلش بزاری بعدش اون صدا بزنی

[habedijoo]

سلام

می شه بیشتر توضیح بدی . اگر بتونی یه مثال بزاری که دیگه فوق العاده میشه.

با تشکر ..

[habedijoo]

سلام

می شه بیشتر توضیح بدی . اگر بتونی یه مثال بزاری که دیگه فوق العاده میشه.

با تشکر ..

[علیرضا مداح]

سلام .

ما میخواهیم که DialogBox سفارشی طراحی نماییم . برای اینکار مراحل زیر را طی نمایید :
1 - دو فرم به پروژه خود اضافه نمایید ، نام یکی را MainForm و نام دیگری را DialogForm بگذارید .
2 - وارد فرم DialogForm شوید .
3 - یک کنترل برچسب بر روی فرم قرار داده و متن آن را به <span dir=ltr>"Exit Program?"</span> تغییر دهید .
4 - دو دکمه به نام های btnYes و BtnNo بر روی فرم قرار داده و متن آنها را به ترتیب "Yes" و "No" بگذارید .
5 - خاصیت DialogResult مربوط به کلید btnYes را بر روی Yes و خاصیت DialogResult مربوط به کلید btnNo را بر روی No تنظیم نمایید .
6 - وارد فرم MainForm شده و یک دکمه به نام btnClose بر روی آن قرار دهید .
7 - در داخل رویداد Click مربوط به دکمه کد زیر را بنویسید :


Dim Dialogfrm As New DialogForm
If Dialogfrm.ShowDialog = DialogResult.Yes Then
Application.Exit&#40;&#41;
End If
If Dialogfrm.ShowDialog = DialogResult.No Then
MessageBox.Show&#40;"Keep On Working with program."&#41;
End If

حال شما یک DialogBox سفارشی طراحی کرده اید .

[habedijoo]

سلام
از جوابت ممنون

من راه آسانتر پیدا کردم

ابتدای کد این را اضافه می کنید

Enum Buttons
H1
H2
H3
End Enum

سپس کد خود را بصورت زیر می نویسید

Public Function Tick(ByVal Button As Buttons) As DialogResult
Select Case Button
Case Buttons.H1 : Return 1
Case Buttons.H2 : Return 2
Case Buttons.H3 : Return 3
End Select
End Function

به همین ذاحتی یک تابع با آرگومانهای DialogBox می سازیم .