visual-studio - 每个 VisualStudio 的 Outlook 插件 - 按钮事件处理程序
问题描述
几天以来我一直在寻找解决方案,但我总是得到几乎解决我问题的代码。我想通过 VisualStudio 在 Outlook 中创建几个按钮。这些按钮应该执行相同的子程序。但是当我使用显示的代码创建按钮时,只有最后一个创建的按钮处理点击事件。
我正在使用 VisualStudio (15.0) 和 Outlook (16.0, 32bit)
非常感谢您的帮助
霍尔格
Public Class ThisAddIn
Dim ButtonControl As Office.CommandBarButton
Dim menuBar As Office.CommandBar
Dim newMenuBar As Office.CommandBarPopup
Private Sub ThisAddIn_Startup() Handles Me.Startup
Dim i As Integer
menuBar = Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar
newMenuBar = menuBar.Controls.Add(Office.MsoControlType.msoControlPopup, Temporary:=True)
If newMenuBar IsNot Nothing Then
newMenuBar.Caption = "Mailverschiebung"
For i = 0 To 3
ButtonControl = newMenuBar.Controls.Add
ButtonControl.Caption = "zeichen" & i
ButtonControl.Tag = "zeichen" & i
AddHandler ButtonControl.Click, AddressOf ButtonControl_Click
Next
End If
End Sub
Sub ButtonControl_Click()
MsgBox("Läuft")
End Sub
Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
End Sub
End Class
解决方案
如果要为所有按钮处理事件,则必须保持对象引用处于活动状态。因此,基本上,您需要在全局范围内定义按钮列表或数组。
Public Class ThisAddIn
Dim ButtonControl As Office.CommandBarButton
Dim ButtonControls As List(Of Office.CommandBarButton) = new List(Of Office.CommandBarButton)()
Dim menuBar As Office.CommandBar
Dim newMenuBar As Office.CommandBarPopup
Private Sub ThisAddIn_Startup() Handles Me.Startup
Dim i As Integer
menuBar = Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar
newMenuBar = menuBar.Controls.Add(Office.MsoControlType.msoControlPopup, Temporary:=True)
If newMenuBar IsNot Nothing Then
newMenuBar.Caption = "Mailverschiebung"
For i = 0 To 3
ButtonControl = newMenuBar.Controls.Add
ButtonControl.Caption = "zeichen" & i
ButtonControl.Tag = "zeichen" & i
AddHandler ButtonControl.Click, AddressOf ButtonControl_Click
ButtonControls.Add(ButtonControl)
Next
End If
End Sub
Sub ButtonControl_Click()
MsgBox("Läuft")
End Sub
Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
End Sub
End Class
请注意,命令栏已被弃用,不应用于自定义 Outlook UI。相反,您应该使用 Fluent UI(又名 Ribbon UI)。在以下系列文章中阅读有关新 UI 的更多信息:
推荐阅读
- python - 是否可以像使用 CSS 设置 HTML 一样设置 Python GUI 的样式?
- c# - 我可以将特定样式应用于 Xamarin 中 ObservableCollection 的第一项吗?
- ecmascript-6 - Javascript中连续出现许多粗箭头?
- java - Kotlin MutableMap 有 putIfAbsent 方法,它是否扩展了 Java 的 Map 接口
- java - 带有 Localstack 的 AWS S3 在 Java 应用程序中返回 500
- r - 如何将特定列值从字符向量转换为数值向量?
- content-security-policy - 尽管定义了 script-src,但仍报告了 Script-src-elem
- linq - 将 Sql 转换为 EF Core Linq 查询
- python - Tensorflow 2.0:模型检查点的自定义指标(平衡准确度得分)不起作用
- python - 如何在管理页面中输入密码类型?