VB5 MDITabs Binary (14K)
VB5 MDITabs Demonstration (50K)
VB5 MDITabs Full Source Code (79K)
VB6 MDITabs Binary (15K)
VB6 MDITabs Demonstration (46K)
VB6 MDITabs Full Source Code (77K)
28 Mar 2003
Correction to colour selection logic; background colour of tabs now renders correctly under all colour schemes.
Minor drawing and tab selection logic fixes.
vbAccelerator Toolbar and CoolMenu Control v3.5
Subclassing Without The Crashes
vbAccelerator - Contents of code file: fAbout.frm
VERSION 5.00
Begin VB.Form frmAbout
BackColor = &H00FFFFFF&
BorderStyle = 3 'Fixed Dialog
Caption = "About vbAccelerator CoolMenu Toolbar/Rebar"
ClientHeight = 4815
ClientLeft = 4110
ClientTop = 3150
ClientWidth = 5625
ClipControls = 0 'False
Icon = "fAbout.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3323.399
ScaleMode = 0 'User
ScaleWidth = 5282.165
ShowInTaskbar = 0 'False
Begin VB.TextBox txtSpecialCopyright
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 675
Left = 1080
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 13
Text = "fAbout.frx":1272
Top = 3240
Width = 4455
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "OK"
Default = -1 'True
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 4260
TabIndex = 0
Top = 4080
Width = 1260
End
Begin VB.Label lblProduct
BackStyle = 0 'Transparent
Caption = "vbAccelerator MDI Tabs Page"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 1080
MouseIcon = "fAbout.frx":127A
MousePointer = 99 'Custom
TabIndex = 14
Tag =
"/j_index_url_codelibcomctlretbar.htm.htm"
Top = 2760
Width = 4395
End
Begin VB.Label lblVersionUpdate
BackStyle = 0 'Transparent
Caption = "Update Information"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 2160
MouseIcon = "fAbout.frx":1584
MousePointer = 99 'Custom
TabIndex = 12
Tag =
"""/j_index_url_codelibcomctltbrv2upd.htm.htm""
"
Top = 2580
Width = 1410
End
Begin VB.Label lblDotLine
BackStyle = 0 'Transparent
Caption = "..................."
BeginProperty Font
Name = "Times New Roman"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 1
Left = 3090
TabIndex = 11
Top = 255
Width = 2475
End
Begin VB.Label lblDotLine
BackStyle = 0 'Transparent
Caption = ".................."
BeginProperty Font
Name = "Times New Roman"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 60
TabIndex = 10
Top = 870
Width = 2115
End
Begin VB.Label lblURL
BackStyle = 0 'Transparent
Caption = "/index.html"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 1080
MouseIcon = "fAbout.frx":188E
MousePointer = 99 'Custom
TabIndex = 9
Tag = "/index.html"
Top = 4200
Width = 3870
End
Begin VB.Label lblCopyright
BackStyle = 0 'Transparent
Caption = "Copyright 2002 Steve McMahon "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 1080
MouseIcon = "fAbout.frx":1B98
MousePointer = 99 'Custom
TabIndex = 8
Tag = "/j_index_url_cright.htm.htm"
Top = 4020
Width = 3990
End
Begin VB.Label lblInfo
BackStyle = 0 'Transparent
Caption = "Demonstrator"
BeginProperty Font
Name = "Tahoma"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 615
Index = 2
Left = 3000
TabIndex = 7
Top = 2040
Width = 2835
End
Begin VB.Label lblInfo
BackStyle = 0 'Transparent
Caption = "Tabs"
BeginProperty Font
Name = "Tahoma"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 615
Index = 0
Left = 2220
TabIndex = 6
Top = 1080
Width = 3555
End
Begin VB.Label lblTitle
BackStyle = 0 'Transparent
Caption = "vbAccelerator"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404000&
Height = 480
Left = 960
TabIndex = 3
Top = 300
Width = 2865
End
Begin VB.Label lblInfo
BackStyle = 0 'Transparent
Caption = "M.D.I."
BeginProperty Font
Name = "Tahoma"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 1
Left = 1500
TabIndex = 5
Top = 660
Width = 2835
End
Begin VB.Shape shpRect
BorderColor = &H000080FF&
BorderWidth = 8
Height = 675
Index = 0
Left = 4500
Top = 540
Width = 615
End
Begin VB.Shape shpRect
BorderColor = &H00C0C000&
BorderWidth = 16
Height = 855
Index = 1
Left = 180
Top = 180
Width = 855
End
Begin VB.Image imgIcon
Height = 240
Left = 360
Picture = "fAbout.frx":1EA2
Top = 360
Width = 240
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
BorderStyle = 6 'Inside Solid
Index = 1
X1 = 1014.176
X2 = 5310.337
Y1 = 1687.583
Y2 = 1687.583
End
Begin VB.Label lblDescription
BackColor = &H00C0E0FF&
ForeColor = &H00000000&
Height = 1170
Left = 1080
TabIndex = 1
Top = 960
Width = 3885
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 0
X1 = 98.6
X2 = 5309.398
Y1 = 1697.936
Y2 = 1697.936
End
Begin VB.Label lblInfo
BackColor = &H0080C0FF&
Height = 225
Index = 4
Left = 1080
TabIndex = 4
Top = 780
Width = 3885
End
Begin VB.Label lblVersion
BackStyle = 0 'Transparent
Caption = "Version: 1.00"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 1080
TabIndex = 2
Top = 2580
Width = 1410
End
Begin VB.Shape shpRect
BorderStyle = 0 'Transparent
FillColor = &H00C0E0FF&
FillStyle = 0 'Solid
Height = 615
Index = 2
Left = 4860
Top = 120
Width = 555
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
End Sub
Private Sub lblCopyright_Click()
'ShellEx lblCopyright.tag
End Sub
Private Sub lblProduct_Click()
'ShellEx lblProduct.tag
End Sub
Private Sub lblURL_Click()
'ShellEx lblUrl.tag
End Sub
Private Sub lblVersionUpdate_Click()
'ShellEx lblVersionUpdate.tag
End Sub