下面的示例展示了如何把自定义按钮添加到 AlertControl 中。
两个自定义按钮被添加到 AlertControl.Buttons 集合中。 第一个按钮是常规按钮,在单击它时产生 AlertControl.ButtonClick 事件。 第二个按钮有“选中”和“未选中”两种状态。 单击第二个按钮会引发 AlertControl.ButtonDownChanged 事件。
结果显示如下:
C# | ![]() |
---|---|
using DevExpress.XtraBars.Alerter; // Create a regular custom button. AlertButton btn1 = new AlertButton(Image.FromFile(@"c:\folder-16x16.png")); btn1.Hint = "Open file"; btn1.Name = "buttonOpen"; // Create a check custom button. AlertButton btn2 = new AlertButton(Image.FromFile(@"c:\clock-16x16.png")); btn2.Style = AlertButtonStyle.CheckButton; btn2.Down = true; btn2.Hint = "Alert On"; btn2.Name = "buttonAlert"; // Add buttons to the AlertControl and subscribe to the events to process button clicks alertControl1.Buttons.Add(btn1); alertControl1.Buttons.Add(btn2); alertControl1.ButtonClick += new AlertButtonClickEventHandler(alertControl1_ButtonClick); alertControl1.ButtonDownChanged += new AlertButtonDownChangedEventHandler(alertControl1_ButtonDownChanged); // Show a sample alert window. AlertInfo info = new AlertInfo("New Window", "Text"); alertControl1.Show(this, info); void alertControl1_ButtonDownChanged(object sender, AlertButtonDownChangedEventArgs e) { if (e.ButtonName == "buttonOpen") { //... } } void alertControl1_ButtonClick(object sender, AlertButtonClickEventArgs e) { if (e.ButtonName == "buttonAlert") { //... } } |
Visual Basic | ![]() |
---|---|
Imports DevExpress.XtraBars.Alerter ' Create a regular custom button. Dim btn1 As AlertButton = New AlertButton(Image.FromFile("c:\folder-16x16.png")) btn1.Hint = "Open file" btn1.Name = "buttonOpen" ' Create a check custom button. Dim btn2 As AlertButton = New AlertButton(Image.FromFile("c:\clock-16x16.png")) btn2.Style = AlertButtonStyle.CheckButton btn2.Down = True btn2.Hint = "Alert On" btn2.Name = "buttonAlert" ' Add buttons to the AlertControl and subscribe to the events to process button clicks alertControl1.Buttons.Add(btn1) alertControl1.Buttons.Add(btn2) AddHandler alertControl1.ButtonClick, AddressOf alertControl1_ButtonClick AddHandler alertControl1.ButtonDownChanged, _ AddressOf alertControl1_ButtonDownChanged ' Show a sample alert window. Dim info As AlertInfo = New AlertInfo("New Window", "Text") alertControl1.Show(Me, info) Private Sub alertControl1_ButtonDownChanged(ByVal sender As Object, _ ByVal e As AlertButtonDownChangedEventArgs) If e.ButtonName = "buttonOpen" Then '... End If End Sub Private Sub alertControl1_ButtonClick(ByVal sender As Object, _ ByVal e As AlertButtonClickEventArgs) If e.ButtonName = "buttonAlert" Then '... End If End Sub |