home *** CD-ROM | disk | FTP | other *** search
/ PC User 1997 July / PCU_JULY97.ISO / interact / tooltips / toolbar.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-03-05  |  7.4 KB  |  218 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Toolbar buttons and tips"
  4.    ClientHeight    =   5925
  5.    ClientLeft      =   1425
  6.    ClientTop       =   1455
  7.    ClientWidth     =   9540
  8.    Height          =   6330
  9.    Left            =   1365
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   6817.808
  12.    ScaleMode       =   0  'User
  13.    ScaleWidth      =   9540
  14.    Top             =   1110
  15.    Width           =   9660
  16.    Begin VB.PictureBox Picture1 
  17.       Height          =   2055
  18.       Left            =   5640
  19.       Picture         =   "toolbar.frx":0000
  20.       ScaleHeight     =   1995
  21.       ScaleWidth      =   3195
  22.       TabIndex        =   0
  23.       Top             =   960
  24.       Visible         =   0   'False
  25.       Width           =   3255
  26.    End
  27.    Begin Threed.SSPanel SSPanel1 
  28.       Align           =   1  'Align Top
  29.       Height          =   630
  30.       Left            =   0
  31.       TabIndex        =   1
  32.       Top             =   0
  33.       Width           =   9540
  34.       _Version        =   65536
  35.       _ExtentX        =   16828
  36.       _ExtentY        =   1111
  37.       _StockProps     =   15
  38.       BackColor       =   9476264
  39.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  40.          Name            =   "MS Sans Serif"
  41.          Size            =   8.25
  42.          Charset         =   0
  43.          Weight          =   400
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       BorderWidth     =   1
  49.       BevelOuter      =   1
  50.       BevelInner      =   1
  51.       Begin Threed.SSRibbon ssButton 
  52.          Height          =   450
  53.          Index           =   2
  54.          Left            =   2160
  55.          TabIndex        =   7
  56.          Tag             =   "Underline message"
  57.          Top             =   90
  58.          Width           =   450
  59.          _Version        =   65536
  60.          _ExtentX        =   794
  61.          _ExtentY        =   794
  62.          _StockProps     =   65
  63.          BackColor       =   9476264
  64.          GroupNumber     =   4
  65.          GroupAllowAllUp =   -1  'True
  66.          Autosize        =   1
  67.          PictureUp       =   "toolbar.frx":F92A
  68.       End
  69.       Begin Threed.SSRibbon ssButton 
  70.          Height          =   450
  71.          Index           =   1
  72.          Left            =   1560
  73.          TabIndex        =   6
  74.          Tag             =   "Italic message"
  75.          Top             =   90
  76.          Width           =   450
  77.          _Version        =   65536
  78.          _ExtentX        =   794
  79.          _ExtentY        =   794
  80.          _StockProps     =   65
  81.          BackColor       =   9476264
  82.          GroupNumber     =   3
  83.          GroupAllowAllUp =   -1  'True
  84.          Autosize        =   1
  85.          PictureUp       =   "toolbar.frx":FED0
  86.       End
  87.       Begin Threed.SSRibbon ssButton 
  88.          Height          =   450
  89.          Index           =   0
  90.          Left            =   960
  91.          TabIndex        =   5
  92.          Tag             =   "Bold Message"
  93.          Top             =   90
  94.          Width           =   450
  95.          _Version        =   65536
  96.          _ExtentX        =   794
  97.          _ExtentY        =   794
  98.          _StockProps     =   65
  99.          BackColor       =   9476264
  100.          GroupNumber     =   2
  101.          GroupAllowAllUp =   -1  'True
  102.          Autosize        =   1
  103.          PictureUp       =   "toolbar.frx":10476
  104.       End
  105.       Begin Threed.SSCommand buttonQuit 
  106.          Cancel          =   -1  'True
  107.          Height          =   375
  108.          Left            =   6360
  109.          TabIndex        =   4
  110.          Tag             =   "Quit Program"
  111.          Top             =   120
  112.          Width           =   1455
  113.          _Version        =   65536
  114.          _ExtentX        =   2566
  115.          _ExtentY        =   661
  116.          _StockProps     =   78
  117.          Caption         =   "&Quit"
  118.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  119.             Name            =   "MS Sans Serif"
  120.             Size            =   8.24
  121.             Charset         =   0
  122.             Weight          =   400
  123.             Underline       =   0   'False
  124.             Italic          =   0   'False
  125.             Strikethrough   =   0   'False
  126.          EndProperty
  127.       End
  128.       Begin Threed.SSRibbon buttonPicture 
  129.          Height          =   450
  130.          Left            =   360
  131.          TabIndex        =   3
  132.          Tag             =   "Background Graphic"
  133.          Top             =   90
  134.          Width           =   450
  135.          _Version        =   65536
  136.          _ExtentX        =   794
  137.          _ExtentY        =   794
  138.          _StockProps     =   65
  139.          BackColor       =   0
  140.          GroupAllowAllUp =   -1  'True
  141.          Autosize        =   1
  142.          PictureUp       =   "toolbar.frx":10A1C
  143.       End
  144.    End
  145.    Begin VB.Label lblTooltip 
  146.       Alignment       =   2  'Center
  147.       BackColor       =   &H00C0FFFF&
  148.       Height          =   375
  149.       Left            =   2760
  150.       TabIndex        =   8
  151.       Top             =   2040
  152.       Visible         =   0   'False
  153.       Width           =   2055
  154.    End
  155.    Begin VB.Label lblDisplayText 
  156.       Alignment       =   2  'Center
  157.       BackStyle       =   0  'Transparent
  158.       Caption         =   "Welcome!"
  159.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  160.          Name            =   "Arial"
  161.          Size            =   72
  162.          Charset         =   0
  163.          Weight          =   400
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       Height          =   1815
  169.       Left            =   1440
  170.       TabIndex        =   2
  171.       Top             =   3240
  172.       Width           =   6855
  173.    End
  174. Attribute VB_Name = "Form1"
  175. Attribute VB_Creatable = False
  176. Attribute VB_Exposed = False
  177. Sub ShowToolTip(left As Integer, text$)
  178.     lbltooltip.Caption = text$
  179.     lbltooltip.Move left + 400, 800, TextWidth(text$) + 80, 275
  180.     lbltooltip.Visible = True
  181. End Sub
  182. Private Sub buttonPicture_Click(Value As Integer)
  183.     If Value = False Then
  184.         Form1.Picture = LoadPicture()
  185.     Else
  186.         Form1.Picture = Picture1.Picture
  187.     End If
  188. End Sub
  189. Private Sub buttonPicture_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  190.     Call ShowToolTip(buttonPicture.left, buttonPicture.Tag)
  191. End Sub
  192. Private Sub buttonQuit_Click()
  193.     Unload Me
  194.     End
  195. End Sub
  196. Private Sub buttonQuit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  197.     Call ShowToolTip(buttonQuit.left, buttonQuit.Tag)
  198. End Sub
  199. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  200.     lbltooltip.Visible = False
  201. End Sub
  202. Private Sub ssButton_Click(Index As Integer, Value As Integer)
  203.     Select Case Index
  204.         Case 0
  205.             lblDisplayText.FontBold = Not (lblDisplayText.FontBold)
  206.         Case 1
  207.             lblDisplayText.FontItalic = Not (lblDisplayText.FontItalic)
  208.         Case 2
  209.             lblDisplayText.FontUnderline = Not (lblDisplayText.FontUnderline)
  210.     End Select
  211. End Sub
  212. Private Sub ssButton_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  213.     Call ShowToolTip(ssButton(Index).left, ssButton(Index).Tag)
  214. End Sub
  215. Private Sub SSPanel1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  216.     lbltooltip.Visible = False
  217. End Sub
  218.