Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Klassen- Kampf

Klassen- Kampf
01.06.2003 18:22:15
Romano
Hallo Excelfans,
Ich erzeuge in einem Klssenmodul 20 ControlButton in einer Symbolleiste. Beim 20. Button, tritt das Klick- Ereignis immer doppelt auf. Hat jemand eine Ahnung, woran das liegen könnte?
Hier der Code:
''Standardmodul----------------------------------------------

Option Explicit
Option Base 1
Public Const b As Byte = 20
Public arrButton(b) As New clsMenu
Public Const CBNAME As String = "Test_Menu"
Private M As clsMenu

Sub MenuLeisteInit()
Dim objCB As CommandBar
On Error Resume Next
CommandBars(CBNAME).Delete
On Error GoTo 0
Set objCB = CommandBars.Add(Name:=CBNAME)
Set M = New clsMenu
M.MenuLeiste
With objCB
.Position = msoBarTop
.Visible = True
.Protection = 1 + 8
End With
End Sub

Sub setten()
Dim i As Byte
For i = 1 To b
Set arrButton(i).cmdButton = CommandBars(CBNAME).controls(i)
Next
End Sub

''Klassenmodul clsMenu-----------------------------------
Option Explicit
Public WithEvents cmdButton As CommandBarButton
Sub MenuLeiste()
Dim x As Byte
With CommandBars(CBNAME)
For x = 1 To b
Set cmdButton = .controls.Add(Type:=msoControlButton)
With cmdButton
.Style = msoButtonCaption
.Caption = x
.TooltipText = "Schalter " & x
.Width = 20
.Tag = x
.BeginGroup = True
.Enabled = True
End With
Next
End With
Call setten
End Sub


Private Sub cmdButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
If Ctrl.State = msoButtonDown Then
Ctrl.State = msoButtonUp
Else
Ctrl.State = msoButtonDown
End If
MsgBox Ctrl.TooltipText
End Sub



1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Klassen- Kampf
01.06.2003 21:09:00
L.Vira

Kann es sein, dass du den Code von mir hast? In der Tat ist das bei dem 20. Button so, wie du beschreibst. Leider fehlt mir momentan auch eine Erklärung für diesen Effekt.
Krücke, erstell 21 Button und blende den 21. aus.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige