دکمه های سفارشی تو msgbox یا messagebox

[dotnet]

من برای پیغام برنامه هام یه یوزر کنترل مشتی کامپایل کردم که امکان تغییر همه جوره از عکس و ایکون گرفته تا اسکین و صدا رو میده .
اما ایا کسی میدونه چطور مثل دلفی که میشه توابعش رو دستکاری کرد تابع msgbox رو به صورت سفارشی تغییر داد .
جواب بدین ... ایوالله ... :flower:

[Behrouz_Rad]

اگر منظور شما خود تابع MsgBox در VB.NET هست که امکان نداره.
شما متدها و خاصیت MsgBox سفارشی خودتون رو که ایجاد کردید و تنها می تونید از اونها استفاده کنید.

[saman_itc]

ba salam
shoma bayad ye form be esme Frm_Msgbox.vb besezid
on vaght har karii ke bekhan mitonid ba msg boxeton bokonid

inam tavabashe

Public Sub Msgbox_Custom(ByVal Str_Msg As String, ByVal Button_Msg As Integer, ByVal Icon_Msg As Integer, ByVal Titel_Msg As String)
Frm_Msgbox.Lbl_Msg.Text = Str_Msg
Frm_Msgbox.Text = Titel_Msg
'*****************************
Select Case Button_Msg
Case 1 ' ok
'184; 59
Frm_Msgbox.But_1.Visible = True
Frm_Msgbox.But_2.Visible = False

Frm_Msgbox.But_1.Left = 300
Frm_Msgbox.But_1.Top = 70

Case 2 ' Yes/no
Frm_Msgbox.But_1.Visible = True
Frm_Msgbox.But_2.Visible = True
'////////////////////////
Frm_Msgbox.But_1.Left = 300
Frm_Msgbox.But_1.Top = 70
'///////////////////////
Frm_Msgbox.But_2.Left = 240
Frm_Msgbox.But_2.Top = 70

End Select
'*******************
Select Case Icon_Msg
Case 1 'Error
Frm_Msgbox.PicBox_Info.Visible = True
'My.Computer.Audio.PlaySystemSound(Media.SystemSou nds.Asterisk)
Case 2 'Info
Frm_Msgbox.PicBox_Error.Visible = True
'My.Computer.Audio.PlaySystemSound(Media.SystemSou nds.Hand)
Case 3 'yes/no
Frm_Msgbox.PicBox_Question.Visible = True
'My.Computer.Audio.PlaySystemSound(Media.SystemSou nds.Question)
End Select
Frm_Msgbox.ShowDialog()
End Sub