Vb.Net:
Imports DevExpress.XtraEditors
Partial Public Class Form1
Public Sub New()
InitializeComponent()
End Sub
Private Sub args_Showing(sender As Object, e As XtraMessageShowingArgs)
e.Buttons(DialogResult.Yes).Text = "Kaydet"
e.Buttons(DialogResult.No).Text = "Sil"
e.Buttons(DialogResult.Cancel).Text = "İptal"
End Sub
Private Sub btnMesaj_Click(sender As Object, e As EventArgs) Handles btnMesaj.Click
Dim args As New XtraMessageBoxArgs
AddHandler args.Showing, AddressOf args_Showing
With args
.Icon = System.Drawing.SystemIcons.Question
.MessageBeepSound = MessageBeepSound.Question
.Caption = "Mesaj Kutusu Başlığı"
.Text = "Mesaj kutusu içeriği. - TurkDevelopers.Net"
.Buttons = New DialogResult() {DialogResult.Yes, DialogResult.No, DialogResult.Cancel}
.DefaultButtonIndex = 2
.AutoCloseOptions.Delay = 30000
.AutoCloseOptions.ShowTimerOnDefaultButton = True
End With
XtraMessageBox.Show(args)
End Sub
End Class