home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / hlp_auth / pophel / pophelp2.frm (.txt) next >
Encoding:
Visual Basic Form  |  1994-04-16  |  3.9 KB  |  125 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Poplup Help"
  4.    ClientHeight    =   2670
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   5085
  8.    Height          =   3075
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2670
  12.    ScaleWidth      =   5085
  13.    Top             =   1140
  14.    Width           =   5205
  15.    Begin PictureBox Picture1 
  16.       Align           =   2  'Align Bottom
  17.       BackColor       =   &H00C0C0C0&
  18.       Height          =   495
  19.       Left            =   0
  20.       ScaleHeight     =   465
  21.       ScaleWidth      =   5055
  22.       TabIndex        =   1
  23.       Top             =   2175
  24.       Width           =   5085
  25.       Begin Timer Timer2 
  26.          Enabled         =   0   'False
  27.          Interval        =   50
  28.          Left            =   6825
  29.          Top             =   30
  30.       End
  31.       Begin Timer Timer1 
  32.          Enabled         =   0   'False
  33.          Interval        =   850
  34.          Left            =   6300
  35.          Top             =   1000
  36.       End
  37.    End
  38.    Begin PictureBox picToolbar 
  39.       Align           =   1  'Align Top
  40.       BackColor       =   &H00C0C0C0&
  41.       Height          =   510
  42.       Left            =   0
  43.       ScaleHeight     =   480
  44.       ScaleWidth      =   5055
  45.       TabIndex        =   0
  46.       Top             =   0
  47.       Width           =   5085
  48.       Begin SSRibbon pshToolBtn 
  49.          Height          =   345
  50.          Index           =   0
  51.          Left            =   90
  52.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  53.          Top             =   60
  54.          Width           =   405
  55.       End
  56.       Begin PictureClip PicClip1 
  57.          Cols            =   7
  58.          Location        =   "1890,240,75,2625"
  59.          Picture         =   POPHELP2.FRX:0000
  60.       End
  61.    End
  62.    Begin Label labHelpMessage 
  63.       AutoSize        =   -1  'True
  64.       BackColor       =   &H0080FFFF&
  65.       BorderStyle     =   1  'Fixed Single
  66.       Caption         =   "labHelpMessage"
  67.       Height          =   225
  68.       Left            =   2280
  69.       TabIndex        =   2
  70.       Top             =   720
  71.       Visible         =   0   'False
  72.       Width           =   1440
  73.    End
  74. Option Explicit
  75.    DefInt A-Z
  76.    Dim gNumBtns
  77.    Dim CurrentButton
  78. Sub Form_Load ()
  79.    Dim I As Integer
  80.    Dim gCurrBtn
  81.    gNumBtns = picClip1.Cols
  82.    gCurrBtn = -1
  83. '--LOAD TOOLBAR BUTTONS
  84.    For I = 0 To gNumBtns - 1
  85.       If I > 0 Then
  86.          Load pshToolBtn(I)
  87.          pshToolBtn(I).Left = pshToolBtn(I - 1).Left + pshToolBtn(I - 1).Width - 1
  88.          pshToolBtn(I).Visible = True
  89.       End If
  90.       pshToolBtn(I).PictureUp = picClip1.GraphicCell(I)
  91.    Next I
  92. '--USE TAG TO HOLD HELP MESSAGE
  93.    pshToolBtn(0).Tag = "Clear workspace"
  94.    pshToolBtn(1).Tag = "Open previous workspace"
  95.    pshToolBtn(2).Tag = "Save current workspace"
  96.    pshToolBtn(3).Tag = "Calculate"
  97.    pshToolBtn(4).Tag = "Cut to Clipboard"
  98.    pshToolBtn(5).Tag = "Insert Excel Object"
  99.    pshToolBtn(6).Tag = "Exit demo program"
  100. End Sub
  101. Sub picToolbar_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  102.    labHelpMessage.Visible = False
  103.    Timer1.Enabled = False
  104. End Sub
  105. Sub pshToolBtn_Click (Index As Integer, Value As Integer)
  106. '--POP BUTTON BACK
  107.    pshToolBtn(Index).Value = False
  108. '--THE EXIT BUTTON REALLY WORKS
  109.    If Index = gNumBtns - 1 Then
  110.       End
  111.    End If
  112. End Sub
  113. Sub pshToolBtn_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  114.    CurrentButton = Index
  115.    labHelpMessage.Visible = False
  116.    Timer1.Enabled = False
  117.    Timer1.Enabled = True
  118. End Sub
  119. Sub Timer1_Timer ()
  120.    labHelpMessage = pshToolBtn(CurrentButton).Tag
  121.    labHelpMessage.Left = pshToolBtn(CurrentButton).Left
  122.    labHelpMessage.Visible = True
  123.    Timer1.Enabled = False
  124. End Sub
  125.