K
Karsten_Markmann
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.Connect")> _
Public Class Connect
Implements Extensibility.IDTExtensibility2
Private WithEvents cmbSearchCoveo As CommandBarComboBox
----
cbrNewToolbar = KiCData.hostApp.CommandBars.Add(Name:="KiC LRØ
system 2", Position:=msoBarTop, Temporary:=True)
----
cmbSearchCoveo =
cbrNewToolbar.Controls.Add(Type:=MsoControlType.msoControlComboBox)
With cmbSearchCoveo
.BeginGroup = True
.Visible = True
.Style = MsoComboStyle.msoComboLabel
.Caption = "Fritekst søgning:"
.TooltipText = "Fritekst søgefelt i KiC systemet.
Søger i alle dokumenter efter det skrevne."
.Tag = "SearchCoveo"
End With
----
Private Sub cmbSearchCoveo_Change(ByVal Ctrl As
Microsoft.Office.Core.CommandBarComboBox) Handles
cmbSearchCoveo.Change
ShowIEURL(HTTPSEARCH & 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.Connect")> _
Public Class Connect
Implements Extensibility.IDTExtensibility2
Private WithEvents cmbSearchCoveo As CommandBarComboBox
----
cbrNewToolbar = KiCData.hostApp.CommandBars.Add(Name:="KiC LRØ
system 2", Position:=msoBarTop, Temporary:=True)
----
cmbSearchCoveo =
cbrNewToolbar.Controls.Add(Type:=MsoControlType.msoControlComboBox)
With cmbSearchCoveo
.BeginGroup = True
.Visible = True
.Style = MsoComboStyle.msoComboLabel
.Caption = "Fritekst søgning:"
.TooltipText = "Fritekst søgefelt i KiC systemet.
Søger i alle dokumenter efter det skrevne."
.Tag = "SearchCoveo"
End With
----
Private Sub cmbSearchCoveo_Change(ByVal Ctrl As
Microsoft.Office.Core.CommandBarComboBox) Handles
cmbSearchCoveo.Change
ShowIEURL(HTTPSEARCH & cmbSearchCoveo.Text)
End Sub
---