home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap30 / sstools.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-27  |  2.0 KB  |  58 lines
  1. VERSION 4.00
  2. Begin VB.Form frmsstool 
  3.    Caption         =   "Sheridan Tool Bar "
  4.    ClientHeight    =   1320
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6690
  8.    Height          =   1725
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1320
  12.    ScaleWidth      =   6690
  13.    Top             =   1170
  14.    Width           =   6810
  15.    Begin VBX.SSToolbar SSToolbar1 
  16.       Prop58          =   "SSTOOLS.frx":0000
  17.       AllowToolbarMove=   -1  'True
  18.       BackColor       =   &H00C0C0C0&
  19.       BackColorDock   =   &H00C0C0C0&
  20.       BackColorHelp   =   &H0080FFFF&
  21.       BevelColorFace  =   &H8000000F&
  22.       BevelColorHighlite=   &H00FFFFFF&
  23.       BevelColorShadow=   &H80000010&
  24.       Btns            =   12
  25.       DockRank        =   -1
  26.       FloatingCaption =   "SSToolbar1"
  27.       FloatingWidthInBtns=   0
  28.       ForeColorHelp   =   &H00000000&
  29.       Height          =   465
  30.       Left            =   0
  31.       Outline         =   -1  'True
  32.       ToolsetNumBtnStates=   3
  33.       ToolsetNumTools =   12
  34.       ToolsetPicture  =   "SSTOOLS.frx":03DA
  35.       Top             =   60
  36.       Width           =   6675
  37.    End
  38.    Begin VB.Label Label1 
  39.       Caption         =   "Label1"
  40.       Height          =   435
  41.       Left            =   60
  42.       TabIndex        =   0
  43.       Top             =   780
  44.       Width           =   2655
  45.    End
  46. Attribute VB_Name = "frmsstool"
  47. Attribute VB_Creatable = False
  48. Attribute VB_Exposed = False
  49. Private Sub SSToolbar1_Click(ToolID As String, ToolNum As Integer, Btn As Integer, Value As Integer)
  50.     MsgBox " The following Button was Clicked " & ToolID
  51. End Sub
  52. Private Sub SSToolbar1_MouseEnter(ToolID As String, ToolNum As Integer, Btn As Integer)
  53.     Label1.Caption = SSToolbar1.ToolsetToolDesc(ToolNum)
  54. End Sub
  55. Private Sub SSToolbar1_MouseExit(ToolID As String, ToolNum As Integer, Btn As Integer)
  56.     Label1.Caption = " "
  57. End Sub
  58.