OFFCE加載項(xiàng)運(yùn)行無結(jié)果

cxloen

Public Class ThisAddIn

    Private Sub ThisAddIn_Startup() Handles Me.Startup
        AddCommandBar()
    End Sub

    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
        If mCommandBar IsNot Nothing Then
            mCommandBar.Delete()
        End If

    End Sub
    Private mCommandbar As Office.CommandBar
    Private Sub AddCommandBar()
        Try
            mCommandbar = Application.CommandBars.Add("1", Office.MsoBarPosition.msoBarTop, True, False)
            If mCommandbar IsNot Nothing Then
                Dim commandBtn As Office.CommandBarButton = mCommandbar.Controls.Add(Office.MsoControlType.msoControlButton)
                With commandBtn
                    .Caption = "試手"
                    .FaceId = 59
                    .Style = Microsoft.Office.Core.MsoButtonStyle.msoButtonCaption
                    .Visible = True
                    AddHandler .Click, AddressOf c1_Click

                End With
         

                mCommandbar.Visible = True

            End If



        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
    Private Sub c1_Click(control As Office.CommandBarButton, ByRef cancel As Boolean)

        MsgBox("1")
    End Sub

End Class

cxloen

請教高人為什么點(diǎn)擊按鈕不彈出一個(gè)對話框

cxloen

已解決 加TAG

淡定強(qiáng)

為什么 只運(yùn)行一次？