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

[shahryari]

با سلام
اگر من بخواهم با این کد، از یک فرم بعنوان ام اس جی باکس استفاده کنم:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Forms.MsgBox_1.Label1.Text = "این یک ام اس جی باکس آزمایشی است"
My.Forms.MsgBox_1.Text = "پیام سیستم"
My.Forms.MsgBox_1.ShowDialog()
End Sub
چگونه میتوانم این ساب را به یک فانکشن تبدیل کنم
نحوه تعریف پارمتر ها بطوری که با کدی شبیه کدی زیر قابل فراخوانی باشد.


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call msg_1("پیام سیستم", "این یک ام اس جی باکس آزمایشی است")
End Sub
با تشکر

[ROSTAM2]

از Module استفاده كنيد تا عمومي بشه
Add New --> Module


Function CustomMsgBox(Text As String, Title As String) As MsgBoxDialogResult
With MsgBox_1
.Label1.Text = Text
.Text = Title
Return = .ShowDialog()
End With


صدا زدن


Select Case CustomMsgBox
Case Ok
' Actions
Case Cancel
' Actions
End Select

[ROSTAM2]

يادم رفت بگم كه DialogResult از فرم رو برابر با MsgBoxDialogResult كني تا هر كليدي از MessageBox رو كه بخوايد واستون تداعي كنه ...

چي گفتم تداعي ؟ :بامزه:

[shahryari]

با تشكر فراوان از حسن توجه

DialogResult از فرم رو برابر با MsgBoxDialogResult كن
در پروپرتي فرم يا باتن دنبال اين ويژگي بگردم؟

[ROSTAM2]

بايد يك پراپرتي Property واسه فرم مورد نظر بسازيد با نوع داده MsgBoxDialogResult

كه از اين طريق مي تونيد چندتا كليد بسازيد با هر كدوم از مقادير اون پراپرتي

مثال: اگه نام پراپرتي بشه CustomDialogResult


Private Button1_Click(....) handles .....
Me.CustomDialogResult = Ignore
Me.Close
End Sub