home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
design
/
toolba
/
toolbar.txt
< prev
next >
Wrap
Text File
|
1995-02-27
|
1KB
|
44 lines
Option Explicit
Dim ToolBarButtons() As ToolbarButtonType
Sub Form_Load ()
PictToolBar.ScaleMode = 3 ' Pixel
PictToolBar.ScaleHeight = 28 ' Hoehe der Toolbar
ReDim ToolBarButtons(0)
End Sub
Sub MnuSub_Click (index As Integer)
On Error Resume Next
Select Case index
Case 1
Dim ToolBarsCount As Integer
ToolBarsCount = UBound(ToolBarButtons) + 1
ReDim Preserve ToolBarButtons(ToolBarsCount)
ToolbarAddButton PictToolBar, ToolBarButtons(ToolBarsCount), ToolBarsCount * 24, ToolBarsCount, PictBitmaps
Case 2
ToolBarHideButton PictToolBar, ToolBarButtons(2), PictBitmaps
Case 3
ToolBarGrayButton PictToolBar, ToolBarButtons(3), PictBitmaps
Case Else
Unload Me
End Select
End Sub
Sub PictToolBar_Click ()
'
'
'
Dim ButtonNr As Integer
ButtonNr = ToolBarGetClicked(PictToolBar, ToolBarButtons())
If ButtonNr > 0 Then MsgBox "Hi, there was then " + Str(ButtonNr) + " Button Clicked)"
End Sub
Sub PictToolBar_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
ToolBarMousedown PictToolBar, ToolBarButtons(), x, y, PictBitmaps
End Sub
Sub PictToolBar_MouseUp (Button As Integer, Shift As Integer, x As Single, y As Single)
ToolBarMouseUp PictToolBar, ToolBarButtons(), x, y, PictBitmaps
End Sub