工具条

开发平台：

Visual Basic

FloatTbr.bas：源码内容

							Attribute VB_Name = "FloatTbr"
'FloatTbr - Floating toolbar demo for Visual Basic 5
'Copyright (c) 1994-97 SoftCircuits Programming (R)
'Redistributed by Permission.
'
'This program demonstrates how to create a floating toolbar in Visual
'Basic. The primary requirements for the toolbar was that it sits "on
'top" of the main window without necessarily sitting on top of windows in
'other applications. To customize the toolbar, change the imgButtons
'bitmap and the the IMAGE_COLS and IMAGE_ROWS constants at the top of
'FloatTbr.frm.
'
'This program may be distributed on the condition that it is
'distributed in full and unchanged, and that no fee is charged for
'such distribution with the exception of reasonable shipping and media
'charged. In addition, the code in this program may be incorporated
'into your own programs and the resulting programs may be distributed
'without payment of royalties.
'
'This example program was provided by:
' SoftCircuits Programming
' http://www.softcircuits.com
' P.O. Box 16262
' Irvine, CA 92623
'
'Thanks also to Karl Peterson for his helpful suggestions.
Option Explicit
'These variables save the toolbar location while unloaded
Public g_xToolbarPos As Integer
Public g_yToolbarPos As Integer
'Toolbar visible state
Public g_bToolbarVisible As Boolean

						