Hi
I am building a large application where we use the combobox feature a
lot.
Its an office addin for office XP.
I am using Visual studio 2003 VB.
In outlook and excel it works perfect all the time, but in Word it
stops work after a randomly amount of time?
(The Event ".Change" does apparently not fire).
Does anyone have some ideas what can cause this problem?
Below are some code snippets from my application.
Any help appriciated.
Kind Regards:
Karsten Markmann
<GuidAttribute( "9132AA66-FDA6-4023-BCEB-75BA61D2997C"),
ProgIdAttribute ("KiCSystem.Con nect")_
Public Class Connect
Implements Extensibility.I DTExtensibility 2
Private WithEvents cmbSearchCoveo As CommandBarCombo Box
----
cbrNewToolbar = KiCData.hostApp .CommandBars.Ad d(Name:="KiC LRØ
system 2", Position:=msoBa rTop, Temporary:=True )
----
cmbSearchCoveo =
cbrNewToolbar.C ontrols.Add(Typ e:=MsoControlTy pe.msoControlCo mboBox)
With cmbSearchCoveo
.BeginGroup = True
.Visible = True
.Style = MsoComboStyle.m soComboLabel
.Caption = "Fritekst søgning:"
.TooltipText = "Fritekst søgefelt i KiC systemet.
Søger i alle dokumenter efter det skrevne."
.Tag = "SearchCove o"
End With
----
Private Sub cmbSearchCoveo_ Change(ByVal Ctrl As
Microsoft.Offic e.Core.CommandB arComboBox) Handles
cmbSearchCoveo. Change
ShowIEURL(HTTPS EARCH & cmbSearchCoveo. Text)
End Sub
---
I am building a large application where we use the combobox feature a
lot.
Its an office addin for office XP.
I am using Visual studio 2003 VB.
In outlook and excel it works perfect all the time, but in Word it
stops work after a randomly amount of time?
(The Event ".Change" does apparently not fire).
Does anyone have some ideas what can cause this problem?
Below are some code snippets from my application.
Any help appriciated.
Kind Regards:
Karsten Markmann
<GuidAttribute( "9132AA66-FDA6-4023-BCEB-75BA61D2997C"),
ProgIdAttribute ("KiCSystem.Con nect")_
Public Class Connect
Implements Extensibility.I DTExtensibility 2
Private WithEvents cmbSearchCoveo As CommandBarCombo Box
----
cbrNewToolbar = KiCData.hostApp .CommandBars.Ad d(Name:="KiC LRØ
system 2", Position:=msoBa rTop, Temporary:=True )
----
cmbSearchCoveo =
cbrNewToolbar.C ontrols.Add(Typ e:=MsoControlTy pe.msoControlCo mboBox)
With cmbSearchCoveo
.BeginGroup = True
.Visible = True
.Style = MsoComboStyle.m soComboLabel
.Caption = "Fritekst søgning:"
.TooltipText = "Fritekst søgefelt i KiC systemet.
Søger i alle dokumenter efter det skrevne."
.Tag = "SearchCove o"
End With
----
Private Sub cmbSearchCoveo_ Change(ByVal Ctrl As
Microsoft.Offic e.Core.CommandB arComboBox) Handles
cmbSearchCoveo. Change
ShowIEURL(HTTPS EARCH & cmbSearchCoveo. Text)
End Sub
---
Comment