home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / T_BUTTON / FORM1.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1993-11-18  |  3.1 KB  |  118 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 CommandButton Command3 
  16.       Caption         =   "Toggle"
  17.       Height          =   444
  18.       Left            =   2208
  19.       TabIndex        =   4
  20.       Top             =   1248
  21.       Width           =   1260
  22.    End
  23.    Begin ToolBarButton TBtn2 
  24.       Enabled         =   -1  'True
  25.       Height          =   540
  26.       Left            =   672
  27.       Picture         =   FORM1.FRX:0000
  28.       Sticky          =   -1  'True
  29.       Toggled         =   0   'False
  30.       Top             =   1200
  31.       Width           =   588
  32.    End
  33.    Begin ToolBarButton TBtn1 
  34.       Enabled         =   -1  'True
  35.       Height          =   540
  36.       Left            =   672
  37.       Picture         =   FORM1.FRX:01FA
  38.       Sticky          =   0   'False
  39.       Toggled         =   0   'False
  40.       Top             =   336
  41.       Width           =   588
  42.    End
  43.    Begin CommandButton Command2 
  44.       Caption         =   "Hide"
  45.       Height          =   396
  46.       Left            =   2208
  47.       TabIndex        =   1
  48.       Top             =   672
  49.       Width           =   1260
  50.    End
  51.    Begin CommandButton Command1 
  52.       Caption         =   "Disable"
  53.       Height          =   396
  54.       Left            =   2208
  55.       TabIndex        =   0
  56.       Top             =   192
  57.       Width           =   1260
  58.    End
  59.    Begin Label lblNormal 
  60.       Caption         =   "Sticky"
  61.       Height          =   204
  62.       Index           =   1
  63.       Left            =   672
  64.       TabIndex        =   3
  65.       Top             =   960
  66.       Width           =   876
  67.    End
  68.    Begin Label lblNormal 
  69.       Caption         =   "Normal"
  70.       Height          =   204
  71.       Index           =   0
  72.       Left            =   672
  73.       TabIndex        =   2
  74.       Top             =   96
  75.       Width           =   876
  76.    End
  77. Sub Command1_Click ()
  78.   If TBtn1.Enabled Then
  79.     TBtn1.Enabled = False
  80.     Command1.Caption = "Enable"
  81.   Else
  82.     TBtn1.Enabled = True
  83.     Command1.Caption = "Disable"
  84.   End If
  85. End Sub
  86. Sub Command2_Click ()
  87.   If TBtn1.Visible Then
  88.     TBtn1.Visible = False
  89.     Command2.Caption = "Unhide"
  90.   Else
  91.     TBtn1.Visible = True
  92.     Command2.Caption = "Hide"
  93.   End If
  94. End Sub
  95. Sub Command3_Click ()
  96.   If TBtn2.Toggled Then
  97.     TBtn2.Toggled = False
  98.     Command3.Caption = "Toggle"
  99.   Else
  100.     TBtn2.Toggled = True
  101.     Command3.Caption = "UnToggle"
  102.   End If
  103.   TBtn2.Refresh
  104. End Sub
  105. Sub TBtn1_Click ()
  106.   MsgBox "TBtn1_Click", 0, "Click"
  107. End Sub
  108. Sub TBtn2_Click ()
  109.   Dim aString As String
  110.   aString = "TBtn2_Click is "
  111.   If TBtn2.Toggled Then
  112.     aString = aString + "Toggled"
  113.   Else
  114.     aString = aString + "Untoggled"
  115.   End If
  116.   MsgBox aString, 0, "Click"
  117. End Sub
  118.