home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / CONTROLS / BUTTON.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1997-01-23  |  4.0 KB  |  134 lines
  1. VERSION 5.00
  2. Begin VB.Form frmButton 
  3.    Caption         =   "
  4.    ClientHeight    =   2790
  5.    ClientLeft      =   1815
  6.    ClientTop       =   2205
  7.    ClientWidth     =   4770
  8.    BeginProperty Font 
  9.       Name            =   "
  10.       Size            =   9
  11.       Charset         =   134
  12.       Weight          =   700
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    LinkTopic       =   "Form3"
  18.    ScaleHeight     =   2790
  19.    ScaleWidth      =   4770
  20.    Begin VB.CommandButton cmdClose 
  21.       Caption         =   "
  22. (&C)"
  23.       BeginProperty Font 
  24.          Name            =   "
  25.          Size            =   9
  26.          Charset         =   134
  27.          Weight          =   400
  28.          Underline       =   0   'False
  29.          Italic          =   0   'False
  30.          Strikethrough   =   0   'False
  31.       EndProperty
  32.       Height          =   495
  33.       Left            =   3000
  34.       TabIndex        =   1
  35.       Top             =   1320
  36.       Width           =   1215
  37.    End
  38.    Begin VB.CommandButton cmdChange 
  39.       Caption         =   "
  40. (&S)"
  41.       Default         =   -1  'True
  42.       BeginProperty Font 
  43.          Name            =   "
  44.          Size            =   9
  45.          Charset         =   134
  46.          Weight          =   400
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   495
  52.       Left            =   600
  53.       TabIndex        =   0
  54.       Top             =   1320
  55.       Width           =   1815
  56.    End
  57.    Begin VB.Label lblHelp 
  58.       Caption         =   "
  59.       BeginProperty Font 
  60.          Name            =   "
  61.          Size            =   9
  62.          Charset         =   134
  63.          Weight          =   400
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       Height          =   495
  69.       Left            =   600
  70.       TabIndex        =   2
  71.       Top             =   2040
  72.       Width           =   3615
  73.    End
  74.    Begin VB.Image imgRed 
  75.       Appearance      =   0  'Flat
  76.       Height          =   480
  77.       Left            =   2160
  78.       Picture         =   "button.frx":0000
  79.       Top             =   480
  80.       Visible         =   0   'False
  81.       Width           =   480
  82.    End
  83.    Begin VB.Image imgYellow 
  84.       Height          =   480
  85.       Left            =   2160
  86.       Picture         =   "button.frx":030A
  87.       Top             =   480
  88.       Visible         =   0   'False
  89.       Width           =   480
  90.    End
  91.    Begin VB.Image imgGreen 
  92.       Height          =   480
  93.       Left            =   2160
  94.       Picture         =   "button.frx":0614
  95.       Top             =   480
  96.       Width           =   480
  97.    End
  98. Attribute VB_Name = "frmButton"
  99. Attribute VB_GlobalNameSpace = False
  100. Attribute VB_Creatable = False
  101. Attribute VB_PredeclaredId = True
  102. Attribute VB_Exposed = False
  103. Private Sub ChangeSignal()
  104.     If imgGreen.Visible = True Then
  105.         imgGreen.Visible = False
  106.         imgYellow.Visible = True
  107.     ElseIf imgYellow.Visible = True Then
  108.         imgYellow.Visible = False
  109.         imgRed.Visible = True
  110.     Else
  111.         imgRed.Visible = False
  112.         imgGreen.Visible = True
  113.     End If
  114. End Sub
  115. Private Sub cmdChange_Click()
  116.     Call ChangeSignal        ' 
  117.  ChangeSignal 
  118. End Sub
  119. Private Sub cmdClose_Click()
  120.    Unload Me            ' 
  121. End Sub
  122. Private Sub imgGreen_Click()
  123.     Call ChangeSignal        ' 
  124.  ChangeSignal 
  125. End Sub
  126. Private Sub imgRed_Click()
  127.     Call ChangeSignal        ' 
  128.  ChangeSignal 
  129. End Sub
  130. Private Sub imgYellow_Click()
  131.     Call ChangeSignal        ' 
  132.  ChangeSignal 
  133. End Sub
  134.