CoolMenu Toolbar Control Documentation (5K)
VB5 Toolbar Complete Source (263K)
VB5 Toolbar Control Binary (78K)
VB5 Toolbar Demonstration (97K)
VB6 Toolbar Complete Source (261K)
VB6 Toolbar Control Binary (80K)
VB6 Toolbar Demonstration (93K)
Bugs: 2 / 2
Issues: 1 / 1
Questions: 0 / 0
11 May 2003
Bug fix release to fix accelerator and chevron problems.
Coolmenu accelerators caused problems - sometimes the menus triggered without the Alt- key being pressed, othertimes they did not trigger when they should. The logic has been rewritten to correct this.
Chevrons created by the toolbar did not trigger when clicked with the mouse. Fixed. The chevron now also uses a Menu window class as a base so it draws in the same way as menus on the system.
Some non-English keys did not work as accelerators. Fixed with code provided by Sergey Pitutin.
The Toolbar, Rebar and ToolbarHost controls could not be hosted on a UserControl. They now can. Thanks to Alexander Stetsenko for the information.
The MDI buttons in the toolbar host control now render using XP Visual Style if appropriate. Thanks to Nguyen Tuan Anh for the suggestion.
SaveLayout and RestoreLayout (beta) methods have been added to the Rebar based on a method suggested by Ralph Brugger at LinkPool. Feedback please!
PopupMenu DLL - Create Unlimited Popup Menus
Subclassing Without The Crashes
vbAccelerator - Contents of code file: mMain.bas
Attribute VB_Name = "mMain"
Option Explicit
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As
Long
Private Const SEM_FAILCRITICALERRORS = &H1
Private Const SEM_NOGPFAULTERRORBOX = &H2
Private Const SEM_NOOPENFILEERRORBOX = &H8000
Private m_bInIDE As Boolean
Public Sub Main()
InitCommonControls
Dim f As New frmSDITest
f.Show
Set f = Nothing
End Sub
Public Sub UnloadApp()
If Not InIDE() Then
SetErrorMode SEM_NOGPFAULTERRORBOX
End If
End Sub
Public Property Get InIDE() As Boolean
Debug.Assert (IsInIDE())
InIDE = m_bInIDE
End Property
Private Function IsInIDE() As Boolean
m_bInIDE = True
IsInIDE = m_bInIDE
End Function