Silahkan Copy
Dim action As New DevExpress.XtraBars.Docking2010.Views.WindowsUI.FlyoutAction() With {.Caption = "Informasi", .Description = "Proses Simpan Ditolak, Data Belum Lengkap !", .Image = My.Resources.Informasi}
Dim predicatea As Predicate(Of DialogResult) '= AddressOf canCloseFunc
Dim command1 As New DevExpress.XtraBars.Docking2010.Views.WindowsUI.FlyoutCommand() With {.Text = "Kembali", .Result = System.Windows.Forms.DialogResult.Yes}
action.Commands.Add(command1)
Dim properties As New FlyoutProperties()
properties.ButtonSize = New Size(100, 40)
properties.Style = FlyoutStyle.MessageBox
properties.AppearanceDescription.Font = New System.Drawing.Font("Segoe UI", 13)
If FlyoutDialog.Show(Frm_Utama, action, properties, predicatea) = System.Windows.Forms.DialogResult.Yes Then
Exit Sub
End If
