User Interface for .NET Add-Ins?

[Jim M]

I created an addin using VB.Net. I added a windows form to the addin, but I
can not figure out how to have the form open up in the addin.

Is this possible. I only see a file frmMain.vb in the dev environmnet. I
was surprised not to see a frmMain.frm?

How can I have a form as part of an Add-In?

Thanks in advance.

[William Ryan eMVP]

Re: User Interface for .NET Add-Ins?

Jim:

can you show me the code you are using
"Jim M" <anonymouse@dis cussions.micros oft.com> wrote in message
news:%23bt6JMCJ EHA.2836@TK2MSF TNGP10.phx.gbl. ..[color=blue]
> I created an addin using VB.Net. I added a windows form to the addin, but[/color]
I[color=blue]
> can not figure out how to have the form open up in the addin.
>
> Is this possible. I only see a file frmMain.vb in the dev environmnet. I
> was surprised not to see a frmMain.frm?
>
> How can I have a form as part of an Add-In?
>
> Thanks in advance.
>
>[/color]

[William Ryan eMVP]

Re: User Interface for .NET Add-Ins?

Jim:

can you show me the code you are using
"Jim M" <anonymouse@dis cussions.micros oft.com> wrote in message
news:%23bt6JMCJ EHA.2836@TK2MSF TNGP10.phx.gbl. ..[color=blue]
> I created an addin using VB.Net. I added a windows form to the addin, but[/color]
I[color=blue]
> can not figure out how to have the form open up in the addin.
>
> Is this possible. I only see a file frmMain.vb in the dev environmnet. I
> was surprised not to see a frmMain.frm?
>
> How can I have a form as part of an Add-In?
>
> Thanks in advance.
>
>[/color]

[Jim M]

Re: User Interface for .NET Add-Ins?

Thanks for the help. There is not much code, I can not seem to get past
square one. I guess I just want a form to open as the default user
interface when the button is clicked.

Jim


Private Sub MyButton_Click( ByVal Ctrl As
Microsoft.Offic e.Core.CommandB arButton, ByRef CancelDefault As Boolean)
Handles MyButton.Click

MsgBox("Our CommandBar button was pressed!")

HERE IS WHERE I WANT TO DISPLAY A FORM. I HAVE A FORM IN MY PROJECT (VISUAL
STUDIO .NET), BUT I DO NOT KNOW HOW TO GET IT TO DISPLAY ON THE BUTTON
CLICK.

I TRIED

frmMain.show vbModal

BUT IT DID NTO WORK.

End Sub


Imports Microsoft.Offic e.Core

imports Extensibility

imports System.Runtime. InteropServices



#Region " Read me for Add-in installation and setup information. "

' When run, the Add-in wizard prepared the registry for the Add-in.

' At a later time, if the Add-in becomes unavailable for reasons such as:

' 1) You moved this project to a computer other than which is was originally
created on.

' 2) You chose 'Yes' when presented with a message asking if you wish to
remove the Add-in.

' 3) Registry corruption.

' you will need to re-register the Add-in by building the MyCommAddinSetu p
project

' by right clicking the project in the Solution Explorer, then choosing
install.

#End Region

<GuidAttribute( "09C5278D-7B1A-4E15-9F5C-B022E42CE8AF"),
ProgIdAttribute ("MyCommAddin.C onnect")> _

Public Class Connect





Implements Extensibility.I DTExtensibility 2

Dim applicationObje ct As Object

Dim addInInstance As Object

Dim WithEvents MyButton As CommandBarButto n

'(Global Declarations)







Public Sub OnBeginShutdown (ByRef custom As System.Array) Implements
Extensibility.I DTExtensibility 2.OnBeginShutdo wn

On Error Resume Next

' Notify the user you are shutting down, and delete the button.

MsgBox("Our custom Add-in is unloading.")

MyButton.Delete ()

MyButton = Nothing

End Sub

Public Sub OnAddInsUpdate( ByRef custom As System.Array) Implements Extensibi
lity.IDTExtensi bility2.OnAddIn sUpdate

End Sub

Public Sub OnStartupComple te(ByRef custom As System.Array) Implements
Extensibility.I DTExtensibility 2.OnStartupComp lete

Dim oCommandBars As CommandBars

Dim oStandardBar As CommandBar

On Error Resume Next

' Set up a custom button on the "Standard" command bar.

oCommandBars = applicationObje ct.CommandBars

If oCommandBars Is Nothing Then

' Outlook has the CommandBars collection on the Explorer object.

oCommandBars = applicationObje ct.ActiveExplor er.CommandBars

End If

oStandardBar = oCommandBars.It em("Standard")

If oStandardBar Is Nothing Then

' Access names its main toolbar Database.

oStandardBar = oCommandBars.It em("Database")

End If

' In case the button was not deleted, use the exiting one.

MyButton = oStandardBar.Co ntrols.Item("My Custom Button")

If MyButton Is Nothing Then

MyButton = oStandardBar.Co ntrols.Add(1)

With MyButton

..Caption = "My Custom Button"

..Style = MsoButtonStyle. msoButtonCaptio n

' The following items are optional, but recommended.

' The Tag property lets you quickly find the control

' and helps MSO keep track of it when more than

' one application window is visible. The property is required

' by some Office applications and should be provided.

..Tag = "My Custom Button"

' The OnAction property is optional but recommended.

' It should be set to the ProgID of the add-in, so that if

' the add-in is not loaded when a user clicks the button,

' MSO loads the add-in automatically and then raises

' the Click event for the add-in to handle.

..OnAction = "!<MyCOMAddin.C onnect>"

..Visible = True

End With

End If

' Display a simple message to show which application you started in.

MsgBox("Started in " & applicationObje ct.Name & ".")



oStandardBar = Nothing

oCommandBars = Nothing

'frmLogin.



End Sub

Public Sub OnDisconnection (ByVal RemoveMode As
Extensibility.e xt_DisconnectMo de, ByRef custom As System.Array) Implements
Extensibility.I DTExtensibility 2.OnDisconnecti on

On Error Resume Next

If RemoveMode <> Extensibility.e xt_DisconnectMo de.ext_dm_HostS hutdown Then _

Call OnBeginShutdown (custom)

applicationObje ct = Nothing







End Sub

Public Sub OnConnection(By Val application As Object, ByVal connectMode As
Extensibility.e xt_ConnectMode, ByVal addInInst As Object, ByRef custom As
System.Array) Implements Extensibility.I DTExtensibility 2.OnConnection

MsgBox("On Connection In MyAddin")

applicationObje ct = application

addInInstance = addInInst



' If you aren't in startup, manually call OnStartupComple te.

If (connectMode <> Extensibility.e xt_ConnectMode. ext_cm_Startup) Then _

Call OnStartupComple te(custom)



End Sub







"William Ryan eMVP" <bill@NoSp4m.de vbuzz.com> wrote in message
news:emzOXUEJEH A.600@TK2MSFTNG P09.phx.gbl...[color=blue]
> Jim:
>
> can you show me the code you are using
> "Jim M" <anonymouse@dis cussions.micros oft.com> wrote in message
> news:%23bt6JMCJ EHA.2836@TK2MSF TNGP10.phx.gbl. ..[color=green]
> > I created an addin using VB.Net. I added a windows form to the addin,[/color][/color]
but[color=blue]
> I[color=green]
> > can not figure out how to have the form open up in the addin.
> >
> > Is this possible. I only see a file frmMain.vb in the dev environmnet.[/color][/color]
I[color=blue][color=green]
> > was surprised not to see a frmMain.frm?
> >
> > How can I have a form as part of an Add-In?
> >
> > Thanks in advance.
> >
> >[/color]
>
>[/color]

[Andreas Håkansson]

Re: User Interface for .NET Add-Ins?

Jim,

In .NET all windows (forms) are classes, so what you need to do is to
create a variable of the type your window class is and create the object.
Once you have the object you can call the show-method on it.

HTH,

//Andreas

"Jim M" <anonymouse@dis cussions.micros oft.com> skrev i meddelandet
news:OPqLWIMJEH A.4016@tk2msftn gp13.phx.gbl...[color=blue]
> Thanks for the help. There is not much code, I can not seem to get past
> square one. I guess I just want a form to open as the default user
> interface when the button is clicked.
>
> Jim
>
>
> Private Sub MyButton_Click( ByVal Ctrl As
> Microsoft.Offic e.Core.CommandB arButton, ByRef CancelDefault As Boolean)
> Handles MyButton.Click
>
> MsgBox("Our CommandBar button was pressed!")
>
> HERE IS WHERE I WANT TO DISPLAY A FORM. I HAVE A FORM IN MY PROJECT[/color]
(VISUAL[color=blue]
> STUDIO .NET), BUT I DO NOT KNOW HOW TO GET IT TO DISPLAY ON THE BUTTON
> CLICK.
>
> I TRIED
>
> frmMain.show vbModal
>
> BUT IT DID NTO WORK.
>
> End Sub
>
>
> Imports Microsoft.Offic e.Core
>
> imports Extensibility
>
> imports System.Runtime. InteropServices
>
>
>
> #Region " Read me for Add-in installation and setup information. "
>
> ' When run, the Add-in wizard prepared the registry for the Add-in.
>
> ' At a later time, if the Add-in becomes unavailable for reasons such as:
>
> ' 1) You moved this project to a computer other than which is was[/color]
originally[color=blue]
> created on.
>
> ' 2) You chose 'Yes' when presented with a message asking if you wish to
> remove the Add-in.
>
> ' 3) Registry corruption.
>
> ' you will need to re-register the Add-in by building the MyCommAddinSetu p
> project
>
> ' by right clicking the project in the Solution Explorer, then choosing
> install.
>
> #End Region
>
> <GuidAttribute( "09C5278D-7B1A-4E15-9F5C-B022E42CE8AF"),
> ProgIdAttribute ("MyCommAddin.C onnect")> _
>
> Public Class Connect
>
>
>
>
>
> Implements Extensibility.I DTExtensibility 2
>
> Dim applicationObje ct As Object
>
> Dim addInInstance As Object
>
> Dim WithEvents MyButton As CommandBarButto n
>
> '(Global Declarations)
>
>
>
>
>
>
>
> Public Sub OnBeginShutdown (ByRef custom As System.Array) Implements
> Extensibility.I DTExtensibility 2.OnBeginShutdo wn
>
> On Error Resume Next
>
> ' Notify the user you are shutting down, and delete the button.
>
> MsgBox("Our custom Add-in is unloading.")
>
> MyButton.Delete ()
>
> MyButton = Nothing
>
> End Sub
>
> Public Sub OnAddInsUpdate( ByRef custom As System.Array) Implements[/color]
Extensibi[color=blue]
> lity.IDTExtensi bility2.OnAddIn sUpdate
>
> End Sub
>
> Public Sub OnStartupComple te(ByRef custom As System.Array) Implements
> Extensibility.I DTExtensibility 2.OnStartupComp lete
>
> Dim oCommandBars As CommandBars
>
> Dim oStandardBar As CommandBar
>
> On Error Resume Next
>
> ' Set up a custom button on the "Standard" command bar.
>
> oCommandBars = applicationObje ct.CommandBars
>
> If oCommandBars Is Nothing Then
>
> ' Outlook has the CommandBars collection on the Explorer object.
>
> oCommandBars = applicationObje ct.ActiveExplor er.CommandBars
>
> End If
>
> oStandardBar = oCommandBars.It em("Standard")
>
> If oStandardBar Is Nothing Then
>
> ' Access names its main toolbar Database.
>
> oStandardBar = oCommandBars.It em("Database")
>
> End If
>
> ' In case the button was not deleted, use the exiting one.
>
> MyButton = oStandardBar.Co ntrols.Item("My Custom Button")
>
> If MyButton Is Nothing Then
>
> MyButton = oStandardBar.Co ntrols.Add(1)
>
> With MyButton
>
> .Caption = "My Custom Button"
>
> .Style = MsoButtonStyle. msoButtonCaptio n
>
> ' The following items are optional, but recommended.
>
> ' The Tag property lets you quickly find the control
>
> ' and helps MSO keep track of it when more than
>
> ' one application window is visible. The property is required
>
> ' by some Office applications and should be provided.
>
> .Tag = "My Custom Button"
>
> ' The OnAction property is optional but recommended.
>
> ' It should be set to the ProgID of the add-in, so that if
>
> ' the add-in is not loaded when a user clicks the button,
>
> ' MSO loads the add-in automatically and then raises
>
> ' the Click event for the add-in to handle.
>
> .OnAction = "!<MyCOMAddin.C onnect>"
>
> .Visible = True
>
> End With
>
> End If
>
> ' Display a simple message to show which application you started in.
>
> MsgBox("Started in " & applicationObje ct.Name & ".")
>
>
>
> oStandardBar = Nothing
>
> oCommandBars = Nothing
>
> 'frmLogin.
>
>
>
> End Sub
>
> Public Sub OnDisconnection (ByVal RemoveMode As
> Extensibility.e xt_DisconnectMo de, ByRef custom As System.Array) Implements
> Extensibility.I DTExtensibility 2.OnDisconnecti on
>
> On Error Resume Next
>
> If RemoveMode <> Extensibility.e xt_DisconnectMo de.ext_dm_HostS hutdown Then[/color]
_[color=blue]
>
> Call OnBeginShutdown (custom)
>
> applicationObje ct = Nothing
>
>
>
>
>
>
>
> End Sub
>
> Public Sub OnConnection(By Val application As Object, ByVal connectMode As
> Extensibility.e xt_ConnectMode, ByVal addInInst As Object, ByRef custom As
> System.Array) Implements Extensibility.I DTExtensibility 2.OnConnection
>
> MsgBox("On Connection In MyAddin")
>
> applicationObje ct = application
>
> addInInstance = addInInst
>
>
>
> ' If you aren't in startup, manually call OnStartupComple te.
>
> If (connectMode <> Extensibility.e xt_ConnectMode. ext_cm_Startup) Then _
>
> Call OnStartupComple te(custom)
>
>
>
> End Sub
>
>
>
>
>
>
>
> "William Ryan eMVP" <bill@NoSp4m.de vbuzz.com> wrote in message
> news:emzOXUEJEH A.600@TK2MSFTNG P09.phx.gbl...[color=green]
> > Jim:
> >
> > can you show me the code you are using
> > "Jim M" <anonymouse@dis cussions.micros oft.com> wrote in message
> > news:%23bt6JMCJ EHA.2836@TK2MSF TNGP10.phx.gbl. ..[color=darkred]
> > > I created an addin using VB.Net. I added a windows form to the addin,[/color][/color]
> but[color=green]
> > I[color=darkred]
> > > can not figure out how to have the form open up in the addin.
> > >
> > > Is this possible. I only see a file frmMain.vb in the dev[/color][/color][/color]
environmnet.[color=blue]
> I[color=green][color=darkred]
> > > was surprised not to see a frmMain.frm?
> > >
> > > How can I have a form as part of an Add-In?
> > >
> > > Thanks in advance.
> > >
> > >[/color]
> >
> >[/color]
>
>[/color]

[Jim M]

Re: User Interface for .NET Add-Ins?

Thanks for the help. There is not much code, I can not seem to get past
square one. I guess I just want a form to open as the default user
interface when the button is clicked.

Jim


Private Sub MyButton_Click( ByVal Ctrl As
Microsoft.Offic e.Core.CommandB arButton, ByRef CancelDefault As Boolean)
Handles MyButton.Click

MsgBox("Our CommandBar button was pressed!")

HERE IS WHERE I WANT TO DISPLAY A FORM. I HAVE A FORM IN MY PROJECT (VISUAL
STUDIO .NET), BUT I DO NOT KNOW HOW TO GET IT TO DISPLAY ON THE BUTTON
CLICK.

I TRIED

frmMain.show vbModal

BUT IT DID NTO WORK.

End Sub


Imports Microsoft.Offic e.Core

imports Extensibility

imports System.Runtime. InteropServices



#Region " Read me for Add-in installation and setup information. "

' When run, the Add-in wizard prepared the registry for the Add-in.

' At a later time, if the Add-in becomes unavailable for reasons such as:

' 1) You moved this project to a computer other than which is was originally
created on.

' 2) You chose 'Yes' when presented with a message asking if you wish to
remove the Add-in.

' 3) Registry corruption.

' you will need to re-register the Add-in by building the MyCommAddinSetu p
project

' by right clicking the project in the Solution Explorer, then choosing
install.

#End Region

<GuidAttribute( "09C5278D-7B1A-4E15-9F5C-B022E42CE8AF"),
ProgIdAttribute ("MyCommAddin.C onnect")> _

Public Class Connect





Implements Extensibility.I DTExtensibility 2

Dim applicationObje ct As Object

Dim addInInstance As Object

Dim WithEvents MyButton As CommandBarButto n

'(Global Declarations)







Public Sub OnBeginShutdown (ByRef custom As System.Array) Implements
Extensibility.I DTExtensibility 2.OnBeginShutdo wn

On Error Resume Next

' Notify the user you are shutting down, and delete the button.

MsgBox("Our custom Add-in is unloading.")

MyButton.Delete ()

MyButton = Nothing

End Sub

Public Sub OnAddInsUpdate( ByRef custom As System.Array) Implements Extensibi
lity.IDTExtensi bility2.OnAddIn sUpdate

End Sub

Public Sub OnStartupComple te(ByRef custom As System.Array) Implements
Extensibility.I DTExtensibility 2.OnStartupComp lete

Dim oCommandBars As CommandBars

Dim oStandardBar As CommandBar

On Error Resume Next

' Set up a custom button on the "Standard" command bar.

oCommandBars = applicationObje ct.CommandBars

If oCommandBars Is Nothing Then

' Outlook has the CommandBars collection on the Explorer object.

oCommandBars = applicationObje ct.ActiveExplor er.CommandBars

End If

oStandardBar = oCommandBars.It em("Standard")

If oStandardBar Is Nothing Then

' Access names its main toolbar Database.

oStandardBar = oCommandBars.It em("Database")

End If

' In case the button was not deleted, use the exiting one.

MyButton = oStandardBar.Co ntrols.Item("My Custom Button")

If MyButton Is Nothing Then

MyButton = oStandardBar.Co ntrols.Add(1)

With MyButton

..Caption = "My Custom Button"

..Style = MsoButtonStyle. msoButtonCaptio n

' The following items are optional, but recommended.

' The Tag property lets you quickly find the control

' and helps MSO keep track of it when more than

' one application window is visible. The property is required

' by some Office applications and should be provided.

..Tag = "My Custom Button"

' The OnAction property is optional but recommended.

' It should be set to the ProgID of the add-in, so that if

' the add-in is not loaded when a user clicks the button,

' MSO loads the add-in automatically and then raises

' the Click event for the add-in to handle.

..OnAction = "!<MyCOMAddin.C onnect>"

..Visible = True

End With

End If

' Display a simple message to show which application you started in.

MsgBox("Started in " & applicationObje ct.Name & ".")



oStandardBar = Nothing

oCommandBars = Nothing

'frmLogin.



End Sub

Public Sub OnDisconnection (ByVal RemoveMode As
Extensibility.e xt_DisconnectMo de, ByRef custom As System.Array) Implements
Extensibility.I DTExtensibility 2.OnDisconnecti on

On Error Resume Next

If RemoveMode <> Extensibility.e xt_DisconnectMo de.ext_dm_HostS hutdown Then _

Call OnBeginShutdown (custom)

applicationObje ct = Nothing







End Sub

Public Sub OnConnection(By Val application As Object, ByVal connectMode As
Extensibility.e xt_ConnectMode, ByVal addInInst As Object, ByRef custom As
System.Array) Implements Extensibility.I DTExtensibility 2.OnConnection

MsgBox("On Connection In MyAddin")

applicationObje ct = application

addInInstance = addInInst



' If you aren't in startup, manually call OnStartupComple te.

If (connectMode <> Extensibility.e xt_ConnectMode. ext_cm_Startup) Then _

Call OnStartupComple te(custom)



End Sub







"William Ryan eMVP" <bill@NoSp4m.de vbuzz.com> wrote in message
news:emzOXUEJEH A.600@TK2MSFTNG P09.phx.gbl...[color=blue]
> Jim:
>
> can you show me the code you are using
> "Jim M" <anonymouse@dis cussions.micros oft.com> wrote in message
> news:%23bt6JMCJ EHA.2836@TK2MSF TNGP10.phx.gbl. ..[color=green]
> > I created an addin using VB.Net. I added a windows form to the addin,[/color][/color]
but[color=blue]
> I[color=green]
> > can not figure out how to have the form open up in the addin.
> >
> > Is this possible. I only see a file frmMain.vb in the dev environmnet.[/color][/color]
I[color=blue][color=green]
> > was surprised not to see a frmMain.frm?
> >
> > How can I have a form as part of an Add-In?
> >
> > Thanks in advance.
> >
> >[/color]
>
>[/color]

[Andreas Håkansson]

Re: User Interface for .NET Add-Ins?

Jim,

In .NET all windows (forms) are classes, so what you need to do is to
create a variable of the type your window class is and create the object.
Once you have the object you can call the show-method on it.

HTH,

//Andreas

"Jim M" <anonymouse@dis cussions.micros oft.com> skrev i meddelandet
news:OPqLWIMJEH A.4016@tk2msftn gp13.phx.gbl...[color=blue]
> Thanks for the help. There is not much code, I can not seem to get past
> square one. I guess I just want a form to open as the default user
> interface when the button is clicked.
>
> Jim
>
>
> Private Sub MyButton_Click( ByVal Ctrl As
> Microsoft.Offic e.Core.CommandB arButton, ByRef CancelDefault As Boolean)
> Handles MyButton.Click
>
> MsgBox("Our CommandBar button was pressed!")
>
> HERE IS WHERE I WANT TO DISPLAY A FORM. I HAVE A FORM IN MY PROJECT[/color]
(VISUAL[color=blue]
> STUDIO .NET), BUT I DO NOT KNOW HOW TO GET IT TO DISPLAY ON THE BUTTON
> CLICK.
>
> I TRIED
>
> frmMain.show vbModal
>
> BUT IT DID NTO WORK.
>
> End Sub
>
>
> Imports Microsoft.Offic e.Core
>
> imports Extensibility
>
> imports System.Runtime. InteropServices
>
>
>
> #Region " Read me for Add-in installation and setup information. "
>
> ' When run, the Add-in wizard prepared the registry for the Add-in.
>
> ' At a later time, if the Add-in becomes unavailable for reasons such as:
>
> ' 1) You moved this project to a computer other than which is was[/color]
originally[color=blue]
> created on.
>
> ' 2) You chose 'Yes' when presented with a message asking if you wish to
> remove the Add-in.
>
> ' 3) Registry corruption.
>
> ' you will need to re-register the Add-in by building the MyCommAddinSetu p
> project
>
> ' by right clicking the project in the Solution Explorer, then choosing
> install.
>
> #End Region
>
> <GuidAttribute( "09C5278D-7B1A-4E15-9F5C-B022E42CE8AF"),
> ProgIdAttribute ("MyCommAddin.C onnect")> _
>
> Public Class Connect
>
>
>
>
>
> Implements Extensibility.I DTExtensibility 2
>
> Dim applicationObje ct As Object
>
> Dim addInInstance As Object
>
> Dim WithEvents MyButton As CommandBarButto n
>
> '(Global Declarations)
>
>
>
>
>
>
>
> Public Sub OnBeginShutdown (ByRef custom As System.Array) Implements
> Extensibility.I DTExtensibility 2.OnBeginShutdo wn
>
> On Error Resume Next
>
> ' Notify the user you are shutting down, and delete the button.
>
> MsgBox("Our custom Add-in is unloading.")
>
> MyButton.Delete ()
>
> MyButton = Nothing
>
> End Sub
>
> Public Sub OnAddInsUpdate( ByRef custom As System.Array) Implements[/color]
Extensibi[color=blue]
> lity.IDTExtensi bility2.OnAddIn sUpdate
>
> End Sub
>
> Public Sub OnStartupComple te(ByRef custom As System.Array) Implements
> Extensibility.I DTExtensibility 2.OnStartupComp lete
>
> Dim oCommandBars As CommandBars
>
> Dim oStandardBar As CommandBar
>
> On Error Resume Next
>
> ' Set up a custom button on the "Standard" command bar.
>
> oCommandBars = applicationObje ct.CommandBars
>
> If oCommandBars Is Nothing Then
>
> ' Outlook has the CommandBars collection on the Explorer object.
>
> oCommandBars = applicationObje ct.ActiveExplor er.CommandBars
>
> End If
>
> oStandardBar = oCommandBars.It em("Standard")
>
> If oStandardBar Is Nothing Then
>
> ' Access names its main toolbar Database.
>
> oStandardBar = oCommandBars.It em("Database")
>
> End If
>
> ' In case the button was not deleted, use the exiting one.
>
> MyButton = oStandardBar.Co ntrols.Item("My Custom Button")
>
> If MyButton Is Nothing Then
>
> MyButton = oStandardBar.Co ntrols.Add(1)
>
> With MyButton
>
> .Caption = "My Custom Button"
>
> .Style = MsoButtonStyle. msoButtonCaptio n
>
> ' The following items are optional, but recommended.
>
> ' The Tag property lets you quickly find the control
>
> ' and helps MSO keep track of it when more than
>
> ' one application window is visible. The property is required
>
> ' by some Office applications and should be provided.
>
> .Tag = "My Custom Button"
>
> ' The OnAction property is optional but recommended.
>
> ' It should be set to the ProgID of the add-in, so that if
>
> ' the add-in is not loaded when a user clicks the button,
>
> ' MSO loads the add-in automatically and then raises
>
> ' the Click event for the add-in to handle.
>
> .OnAction = "!<MyCOMAddin.C onnect>"
>
> .Visible = True
>
> End With
>
> End If
>
> ' Display a simple message to show which application you started in.
>
> MsgBox("Started in " & applicationObje ct.Name & ".")
>
>
>
> oStandardBar = Nothing
>
> oCommandBars = Nothing
>
> 'frmLogin.
>
>
>
> End Sub
>
> Public Sub OnDisconnection (ByVal RemoveMode As
> Extensibility.e xt_DisconnectMo de, ByRef custom As System.Array) Implements
> Extensibility.I DTExtensibility 2.OnDisconnecti on
>
> On Error Resume Next
>
> If RemoveMode <> Extensibility.e xt_DisconnectMo de.ext_dm_HostS hutdown Then[/color]
_[color=blue]
>
> Call OnBeginShutdown (custom)
>
> applicationObje ct = Nothing
>
>
>
>
>
>
>
> End Sub
>
> Public Sub OnConnection(By Val application As Object, ByVal connectMode As
> Extensibility.e xt_ConnectMode, ByVal addInInst As Object, ByRef custom As
> System.Array) Implements Extensibility.I DTExtensibility 2.OnConnection
>
> MsgBox("On Connection In MyAddin")
>
> applicationObje ct = application
>
> addInInstance = addInInst
>
>
>
> ' If you aren't in startup, manually call OnStartupComple te.
>
> If (connectMode <> Extensibility.e xt_ConnectMode. ext_cm_Startup) Then _
>
> Call OnStartupComple te(custom)
>
>
>
> End Sub
>
>
>
>
>
>
>
> "William Ryan eMVP" <bill@NoSp4m.de vbuzz.com> wrote in message
> news:emzOXUEJEH A.600@TK2MSFTNG P09.phx.gbl...[color=green]
> > Jim:
> >
> > can you show me the code you are using
> > "Jim M" <anonymouse@dis cussions.micros oft.com> wrote in message
> > news:%23bt6JMCJ EHA.2836@TK2MSF TNGP10.phx.gbl. ..[color=darkred]
> > > I created an addin using VB.Net. I added a windows form to the addin,[/color][/color]
> but[color=green]
> > I[color=darkred]
> > > can not figure out how to have the form open up in the addin.
> > >
> > > Is this possible. I only see a file frmMain.vb in the dev[/color][/color][/color]
environmnet.[color=blue]
> I[color=green][color=darkred]
> > > was surprised not to see a frmMain.frm?
> > >
> > > How can I have a form as part of an Add-In?
> > >
> > > Thanks in advance.
> > >
> > >[/color]
> >
> >[/color]
>
>[/color]

[Jim M]

Re: User Interface for .NET Add-Ins?

Thanks. I will try it. Any clue to the syntax for creating a variable for
standard window class?

"Andreas Håkansson" <andy.h (at) telia.com> wrote in message
news:OyNHvmMJEH A.3220@TK2MSFTN GP10.phx.gbl...[color=blue]
> Jim,
>
> In .NET all windows (forms) are classes, so what you need to do is to
> create a variable of the type your window class is and create the object.
> Once you have the object you can call the show-method on it.
>
> HTH,
>
> //Andreas
>
> "Jim M" <anonymouse@dis cussions.micros oft.com> skrev i meddelandet
> news:OPqLWIMJEH A.4016@tk2msftn gp13.phx.gbl...[color=green]
> > Thanks for the help. There is not much code, I can not seem to get past
> > square one. I guess I just want a form to open as the default user
> > interface when the button is clicked.
> >
> > Jim
> >
> >
> > Private Sub MyButton_Click( ByVal Ctrl As
> > Microsoft.Offic e.Core.CommandB arButton, ByRef CancelDefault As Boolean)
> > Handles MyButton.Click
> >
> > MsgBox("Our CommandBar button was pressed!")
> >
> > HERE IS WHERE I WANT TO DISPLAY A FORM. I HAVE A FORM IN MY PROJECT[/color]
> (VISUAL[color=green]
> > STUDIO .NET), BUT I DO NOT KNOW HOW TO GET IT TO DISPLAY ON THE BUTTON
> > CLICK.
> >
> > I TRIED
> >
> > frmMain.show vbModal
> >
> > BUT IT DID NTO WORK.
> >
> > End Sub
> >
> >
> > Imports Microsoft.Offic e.Core
> >
> > imports Extensibility
> >
> > imports System.Runtime. InteropServices
> >
> >
> >
> > #Region " Read me for Add-in installation and setup information. "
> >
> > ' When run, the Add-in wizard prepared the registry for the Add-in.
> >
> > ' At a later time, if the Add-in becomes unavailable for reasons such[/color][/color]
as:[color=blue][color=green]
> >
> > ' 1) You moved this project to a computer other than which is was[/color]
> originally[color=green]
> > created on.
> >
> > ' 2) You chose 'Yes' when presented with a message asking if you wish to
> > remove the Add-in.
> >
> > ' 3) Registry corruption.
> >
> > ' you will need to re-register the Add-in by building the[/color][/color]
MyCommAddinSetu p[color=blue][color=green]
> > project
> >
> > ' by right clicking the project in the Solution Explorer, then choosing
> > install.
> >
> > #End Region
> >
> > <GuidAttribute( "09C5278D-7B1A-4E15-9F5C-B022E42CE8AF"),
> > ProgIdAttribute ("MyCommAddin.C onnect")> _
> >
> > Public Class Connect
> >
> >
> >
> >
> >
> > Implements Extensibility.I DTExtensibility 2
> >
> > Dim applicationObje ct As Object
> >
> > Dim addInInstance As Object
> >
> > Dim WithEvents MyButton As CommandBarButto n
> >
> > '(Global Declarations)
> >
> >
> >
> >
> >
> >
> >
> > Public Sub OnBeginShutdown (ByRef custom As System.Array) Implements
> > Extensibility.I DTExtensibility 2.OnBeginShutdo wn
> >
> > On Error Resume Next
> >
> > ' Notify the user you are shutting down, and delete the button.
> >
> > MsgBox("Our custom Add-in is unloading.")
> >
> > MyButton.Delete ()
> >
> > MyButton = Nothing
> >
> > End Sub
> >
> > Public Sub OnAddInsUpdate( ByRef custom As System.Array) Implements[/color]
> Extensibi[color=green]
> > lity.IDTExtensi bility2.OnAddIn sUpdate
> >
> > End Sub
> >
> > Public Sub OnStartupComple te(ByRef custom As System.Array) Implements
> > Extensibility.I DTExtensibility 2.OnStartupComp lete
> >
> > Dim oCommandBars As CommandBars
> >
> > Dim oStandardBar As CommandBar
> >
> > On Error Resume Next
> >
> > ' Set up a custom button on the "Standard" command bar.
> >
> > oCommandBars = applicationObje ct.CommandBars
> >
> > If oCommandBars Is Nothing Then
> >
> > ' Outlook has the CommandBars collection on the Explorer object.
> >
> > oCommandBars = applicationObje ct.ActiveExplor er.CommandBars
> >
> > End If
> >
> > oStandardBar = oCommandBars.It em("Standard")
> >
> > If oStandardBar Is Nothing Then
> >
> > ' Access names its main toolbar Database.
> >
> > oStandardBar = oCommandBars.It em("Database")
> >
> > End If
> >
> > ' In case the button was not deleted, use the exiting one.
> >
> > MyButton = oStandardBar.Co ntrols.Item("My Custom Button")
> >
> > If MyButton Is Nothing Then
> >
> > MyButton = oStandardBar.Co ntrols.Add(1)
> >
> > With MyButton
> >
> > .Caption = "My Custom Button"
> >
> > .Style = MsoButtonStyle. msoButtonCaptio n
> >
> > ' The following items are optional, but recommended.
> >
> > ' The Tag property lets you quickly find the control
> >
> > ' and helps MSO keep track of it when more than
> >
> > ' one application window is visible. The property is required
> >
> > ' by some Office applications and should be provided.
> >
> > .Tag = "My Custom Button"
> >
> > ' The OnAction property is optional but recommended.
> >
> > ' It should be set to the ProgID of the add-in, so that if
> >
> > ' the add-in is not loaded when a user clicks the button,
> >
> > ' MSO loads the add-in automatically and then raises
> >
> > ' the Click event for the add-in to handle.
> >
> > .OnAction = "!<MyCOMAddin.C onnect>"
> >
> > .Visible = True
> >
> > End With
> >
> > End If
> >
> > ' Display a simple message to show which application you started in.
> >
> > MsgBox("Started in " & applicationObje ct.Name & ".")
> >
> >
> >
> > oStandardBar = Nothing
> >
> > oCommandBars = Nothing
> >
> > 'frmLogin.
> >
> >
> >
> > End Sub
> >
> > Public Sub OnDisconnection (ByVal RemoveMode As
> > Extensibility.e xt_DisconnectMo de, ByRef custom As System.Array)[/color][/color]
Implements[color=blue][color=green]
> > Extensibility.I DTExtensibility 2.OnDisconnecti on
> >
> > On Error Resume Next
> >
> > If RemoveMode <> Extensibility.e xt_DisconnectMo de.ext_dm_HostS hutdown[/color][/color]
Then[color=blue]
> _[color=green]
> >
> > Call OnBeginShutdown (custom)
> >
> > applicationObje ct = Nothing
> >
> >
> >
> >
> >
> >
> >
> > End Sub
> >
> > Public Sub OnConnection(By Val application As Object, ByVal connectMode[/color][/color]
As[color=blue][color=green]
> > Extensibility.e xt_ConnectMode, ByVal addInInst As Object, ByRef custom[/color][/color]
As[color=blue][color=green]
> > System.Array) Implements Extensibility.I DTExtensibility 2.OnConnection
> >
> > MsgBox("On Connection In MyAddin")
> >
> > applicationObje ct = application
> >
> > addInInstance = addInInst
> >
> >
> >
> > ' If you aren't in startup, manually call OnStartupComple te.
> >
> > If (connectMode <> Extensibility.e xt_ConnectMode. ext_cm_Startup) Then _
> >
> > Call OnStartupComple te(custom)
> >
> >
> >
> > End Sub
> >
> >
> >
> >
> >
> >
> >
> > "William Ryan eMVP" <bill@NoSp4m.de vbuzz.com> wrote in message
> > news:emzOXUEJEH A.600@TK2MSFTNG P09.phx.gbl...[color=darkred]
> > > Jim:
> > >
> > > can you show me the code you are using
> > > "Jim M" <anonymouse@dis cussions.micros oft.com> wrote in message
> > > news:%23bt6JMCJ EHA.2836@TK2MSF TNGP10.phx.gbl. ..
> > > > I created an addin using VB.Net. I added a windows form to the[/color][/color][/color]
addin,[color=blue][color=green]
> > but[color=darkred]
> > > I
> > > > can not figure out how to have the form open up in the addin.
> > > >
> > > > Is this possible. I only see a file frmMain.vb in the dev[/color][/color]
> environmnet.[color=green]
> > I[color=darkred]
> > > > was surprised not to see a frmMain.frm?
> > > >
> > > > How can I have a form as part of an Add-In?
> > > >
> > > > Thanks in advance.
> > > >
> > > >
> > >
> > >[/color]
> >
> >[/color]
>
>[/color]

[Jim M]

Re: User Interface for .NET Add-Ins?

Thanks. I will try it. Any clue to the syntax for creating a variable for
standard window class?

"Andreas Håkansson" <andy.h (at) telia.com> wrote in message
news:OyNHvmMJEH A.3220@TK2MSFTN GP10.phx.gbl...[color=blue]
> Jim,
>
> In .NET all windows (forms) are classes, so what you need to do is to
> create a variable of the type your window class is and create the object.
> Once you have the object you can call the show-method on it.
>
> HTH,
>
> //Andreas
>
> "Jim M" <anonymouse@dis cussions.micros oft.com> skrev i meddelandet
> news:OPqLWIMJEH A.4016@tk2msftn gp13.phx.gbl...[color=green]
> > Thanks for the help. There is not much code, I can not seem to get past
> > square one. I guess I just want a form to open as the default user
> > interface when the button is clicked.
> >
> > Jim
> >
> >
> > Private Sub MyButton_Click( ByVal Ctrl As
> > Microsoft.Offic e.Core.CommandB arButton, ByRef CancelDefault As Boolean)
> > Handles MyButton.Click
> >
> > MsgBox("Our CommandBar button was pressed!")
> >
> > HERE IS WHERE I WANT TO DISPLAY A FORM. I HAVE A FORM IN MY PROJECT[/color]
> (VISUAL[color=green]
> > STUDIO .NET), BUT I DO NOT KNOW HOW TO GET IT TO DISPLAY ON THE BUTTON
> > CLICK.
> >
> > I TRIED
> >
> > frmMain.show vbModal
> >
> > BUT IT DID NTO WORK.
> >
> > End Sub
> >
> >
> > Imports Microsoft.Offic e.Core
> >
> > imports Extensibility
> >
> > imports System.Runtime. InteropServices
> >
> >
> >
> > #Region " Read me for Add-in installation and setup information. "
> >
> > ' When run, the Add-in wizard prepared the registry for the Add-in.
> >
> > ' At a later time, if the Add-in becomes unavailable for reasons such[/color][/color]
as:[color=blue][color=green]
> >
> > ' 1) You moved this project to a computer other than which is was[/color]
> originally[color=green]
> > created on.
> >
> > ' 2) You chose 'Yes' when presented with a message asking if you wish to
> > remove the Add-in.
> >
> > ' 3) Registry corruption.
> >
> > ' you will need to re-register the Add-in by building the[/color][/color]
MyCommAddinSetu p[color=blue][color=green]
> > project
> >
> > ' by right clicking the project in the Solution Explorer, then choosing
> > install.
> >
> > #End Region
> >
> > <GuidAttribute( "09C5278D-7B1A-4E15-9F5C-B022E42CE8AF"),
> > ProgIdAttribute ("MyCommAddin.C onnect")> _
> >
> > Public Class Connect
> >
> >
> >
> >
> >
> > Implements Extensibility.I DTExtensibility 2
> >
> > Dim applicationObje ct As Object
> >
> > Dim addInInstance As Object
> >
> > Dim WithEvents MyButton As CommandBarButto n
> >
> > '(Global Declarations)
> >
> >
> >
> >
> >
> >
> >
> > Public Sub OnBeginShutdown (ByRef custom As System.Array) Implements
> > Extensibility.I DTExtensibility 2.OnBeginShutdo wn
> >
> > On Error Resume Next
> >
> > ' Notify the user you are shutting down, and delete the button.
> >
> > MsgBox("Our custom Add-in is unloading.")
> >
> > MyButton.Delete ()
> >
> > MyButton = Nothing
> >
> > End Sub
> >
> > Public Sub OnAddInsUpdate( ByRef custom As System.Array) Implements[/color]
> Extensibi[color=green]
> > lity.IDTExtensi bility2.OnAddIn sUpdate
> >
> > End Sub
> >
> > Public Sub OnStartupComple te(ByRef custom As System.Array) Implements
> > Extensibility.I DTExtensibility 2.OnStartupComp lete
> >
> > Dim oCommandBars As CommandBars
> >
> > Dim oStandardBar As CommandBar
> >
> > On Error Resume Next
> >
> > ' Set up a custom button on the "Standard" command bar.
> >
> > oCommandBars = applicationObje ct.CommandBars
> >
> > If oCommandBars Is Nothing Then
> >
> > ' Outlook has the CommandBars collection on the Explorer object.
> >
> > oCommandBars = applicationObje ct.ActiveExplor er.CommandBars
> >
> > End If
> >
> > oStandardBar = oCommandBars.It em("Standard")
> >
> > If oStandardBar Is Nothing Then
> >
> > ' Access names its main toolbar Database.
> >
> > oStandardBar = oCommandBars.It em("Database")
> >
> > End If
> >
> > ' In case the button was not deleted, use the exiting one.
> >
> > MyButton = oStandardBar.Co ntrols.Item("My Custom Button")
> >
> > If MyButton Is Nothing Then
> >
> > MyButton = oStandardBar.Co ntrols.Add(1)
> >
> > With MyButton
> >
> > .Caption = "My Custom Button"
> >
> > .Style = MsoButtonStyle. msoButtonCaptio n
> >
> > ' The following items are optional, but recommended.
> >
> > ' The Tag property lets you quickly find the control
> >
> > ' and helps MSO keep track of it when more than
> >
> > ' one application window is visible. The property is required
> >
> > ' by some Office applications and should be provided.
> >
> > .Tag = "My Custom Button"
> >
> > ' The OnAction property is optional but recommended.
> >
> > ' It should be set to the ProgID of the add-in, so that if
> >
> > ' the add-in is not loaded when a user clicks the button,
> >
> > ' MSO loads the add-in automatically and then raises
> >
> > ' the Click event for the add-in to handle.
> >
> > .OnAction = "!<MyCOMAddin.C onnect>"
> >
> > .Visible = True
> >
> > End With
> >
> > End If
> >
> > ' Display a simple message to show which application you started in.
> >
> > MsgBox("Started in " & applicationObje ct.Name & ".")
> >
> >
> >
> > oStandardBar = Nothing
> >
> > oCommandBars = Nothing
> >
> > 'frmLogin.
> >
> >
> >
> > End Sub
> >
> > Public Sub OnDisconnection (ByVal RemoveMode As
> > Extensibility.e xt_DisconnectMo de, ByRef custom As System.Array)[/color][/color]
Implements[color=blue][color=green]
> > Extensibility.I DTExtensibility 2.OnDisconnecti on
> >
> > On Error Resume Next
> >
> > If RemoveMode <> Extensibility.e xt_DisconnectMo de.ext_dm_HostS hutdown[/color][/color]
Then[color=blue]
> _[color=green]
> >
> > Call OnBeginShutdown (custom)
> >
> > applicationObje ct = Nothing
> >
> >
> >
> >
> >
> >
> >
> > End Sub
> >
> > Public Sub OnConnection(By Val application As Object, ByVal connectMode[/color][/color]
As[color=blue][color=green]
> > Extensibility.e xt_ConnectMode, ByVal addInInst As Object, ByRef custom[/color][/color]
As[color=blue][color=green]
> > System.Array) Implements Extensibility.I DTExtensibility 2.OnConnection
> >
> > MsgBox("On Connection In MyAddin")
> >
> > applicationObje ct = application
> >
> > addInInstance = addInInst
> >
> >
> >
> > ' If you aren't in startup, manually call OnStartupComple te.
> >
> > If (connectMode <> Extensibility.e xt_ConnectMode. ext_cm_Startup) Then _
> >
> > Call OnStartupComple te(custom)
> >
> >
> >
> > End Sub
> >
> >
> >
> >
> >
> >
> >
> > "William Ryan eMVP" <bill@NoSp4m.de vbuzz.com> wrote in message
> > news:emzOXUEJEH A.600@TK2MSFTNG P09.phx.gbl...[color=darkred]
> > > Jim:
> > >
> > > can you show me the code you are using
> > > "Jim M" <anonymouse@dis cussions.micros oft.com> wrote in message
> > > news:%23bt6JMCJ EHA.2836@TK2MSF TNGP10.phx.gbl. ..
> > > > I created an addin using VB.Net. I added a windows form to the[/color][/color][/color]
addin,[color=blue][color=green]
> > but[color=darkred]
> > > I
> > > > can not figure out how to have the form open up in the addin.
> > > >
> > > > Is this possible. I only see a file frmMain.vb in the dev[/color][/color]
> environmnet.[color=green]
> > I[color=darkred]
> > > > was surprised not to see a frmMain.frm?
> > > >
> > > > How can I have a form as part of an Add-In?
> > > >
> > > > Thanks in advance.
> > > >
> > > >
> > >
> > >[/color]
> >
> >[/color]
>
>[/color]