home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR4 / TBTN20.ZIP / FORM1.FRM < prev    next >
Text File  |  1993-10-20  |  2KB  |  71 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Toolbar Button Demo"
  4.    ClientHeight    =   1884
  5.    ClientLeft      =   1704
  6.    ClientTop       =   1992
  7.    ClientWidth     =   4140
  8.    Height          =   2304
  9.    Left            =   1656
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1884
  12.    ScaleWidth      =   4140
  13.    Top             =   1620
  14.    Width           =   4236
  15.    Begin ToolBarButton TBtn1 
  16.       Enabled         =   -1  'True
  17.       Height          =   1452
  18.       Left            =   192
  19.       Picture         =   FORM1.FRX:0000
  20.       Top             =   192
  21.       Width           =   1740
  22.    End
  23.    Begin CommandButton Command2 
  24.       Caption         =   "Hide"
  25.       Height          =   396
  26.       Left            =   2400
  27.       TabIndex        =   1
  28.       Top             =   1056
  29.       Width           =   1260
  30.    End
  31.    Begin CommandButton Command1 
  32.       Caption         =   "Disable"
  33.       Height          =   396
  34.       Left            =   2400
  35.       TabIndex        =   0
  36.       Top             =   480
  37.       Width           =   1260
  38.    End
  39. End
  40.  
  41. Sub Command1_Click ()
  42.  
  43.   If TBtn1.Enabled Then
  44.     TBtn1.Enabled = False
  45.     Command1.Caption = "Enable"
  46.   Else
  47.     TBtn1.Enabled = True
  48.     Command1.Caption = "Disable"
  49.   End If
  50.   
  51. End Sub
  52.  
  53. Sub Command2_Click ()
  54.  
  55.   If TBtn1.Visible Then
  56.     TBtn1.Visible = False
  57.     Command2.Caption = "Unhide"
  58.   Else
  59.     TBtn1.Visible = True
  60.     Command2.Caption = "Hide"
  61.   End If
  62.   
  63. End Sub
  64.  
  65. Sub TBtn1_Click ()
  66.  
  67.   MsgBox "TBtn1_Click", 0, "Click"
  68.  
  69. End Sub
  70.  
  71.