home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Applicatio195935132001.psc / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-09-01  |  4.1 KB  |  129 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "MySoft Invoices"
  5.    ClientHeight    =   2835
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3420
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2835
  14.    ScaleWidth      =   3420
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.CommandButton Command7 
  18.       Caption         =   "Close"
  19.       Height          =   435
  20.       Left            =   2160
  21.       TabIndex        =   7
  22.       Top             =   2370
  23.       Width           =   1215
  24.    End
  25.    Begin VB.Frame Frame1 
  26.       Caption         =   "Return Value"
  27.       Height          =   585
  28.       Left            =   210
  29.       TabIndex        =   6
  30.       Top             =   1680
  31.       Width           =   2985
  32.       Begin VB.Label lblReturn 
  33.          Alignment       =   2  'Center
  34.          BeginProperty Font 
  35.             Name            =   "MS Sans Serif"
  36.             Size            =   9.75
  37.             Charset         =   0
  38.             Weight          =   700
  39.             Underline       =   0   'False
  40.             Italic          =   0   'False
  41.             Strikethrough   =   0   'False
  42.          EndProperty
  43.          Height          =   285
  44.          Left            =   90
  45.          TabIndex        =   8
  46.          Top             =   210
  47.          Width           =   2835
  48.       End
  49.    End
  50.    Begin VB.CommandButton Command6 
  51.       Caption         =   "Flag 4 Prohibited"
  52.       Height          =   465
  53.       Left            =   1710
  54.       TabIndex        =   5
  55.       Top             =   1080
  56.       Width           =   1605
  57.    End
  58.    Begin VB.CommandButton Command5 
  59.       Caption         =   "Flags 1,2 Prohibited"
  60.       Height          =   465
  61.       Left            =   1710
  62.       TabIndex        =   4
  63.       Top             =   570
  64.       Width           =   1605
  65.    End
  66.    Begin VB.CommandButton Command4 
  67.       Caption         =   "Flag 1 Prohibited"
  68.       Height          =   465
  69.       Left            =   1710
  70.       TabIndex        =   3
  71.       Top             =   60
  72.       Width           =   1605
  73.    End
  74.    Begin VB.CommandButton Command3 
  75.       Caption         =   "Flags 1,2,3,4, Req'd"
  76.       Height          =   465
  77.       Left            =   60
  78.       TabIndex        =   2
  79.       Top             =   1080
  80.       Width           =   1605
  81.    End
  82.    Begin VB.CommandButton Command2 
  83.       Caption         =   "Flags 1,2 Required"
  84.       Height          =   465
  85.       Left            =   60
  86.       TabIndex        =   1
  87.       Top             =   570
  88.       Width           =   1605
  89.    End
  90.    Begin VB.CommandButton Command1 
  91.       Caption         =   "Flag 1 Required"
  92.       Height          =   465
  93.       Left            =   60
  94.       TabIndex        =   0
  95.       Top             =   60
  96.       Width           =   1605
  97.    End
  98. Attribute VB_Name = "Form1"
  99. Attribute VB_GlobalNameSpace = False
  100. Attribute VB_Creatable = False
  101. Attribute VB_PredeclaredId = True
  102. Attribute VB_Exposed = False
  103. Private Sub Command1_Click()
  104. If CPVerify(Form1.Tag, "1") Then lblReturn = "True" Else lblReturn = "False"
  105. End Sub
  106. Private Sub Command2_Click()
  107. If CPVerify(Form1.Tag, "2") Then lblReturn = "True" Else lblReturn = "False"
  108. End Sub
  109. Private Sub Command3_Click()
  110. If CPVerify(Form1.Tag, "3") Then lblReturn = "True" Else lblReturn = "False"
  111. End Sub
  112. Private Sub Command4_Click()
  113. If CPVerify(Form1.Tag, "-1") Then lblReturn = "True" Else lblReturn = "False"
  114. End Sub
  115. Private Sub Command5_Click()
  116. If CPVerify(Form1.Tag, "-2") Then lblReturn = "True" Else lblReturn = "False"
  117. End Sub
  118. Private Sub Command6_Click()
  119. If CPVerify(Form1.Tag, "-3") Then lblReturn = "True" Else lblReturn = "False"
  120. End Sub
  121. Private Sub Command7_Click()
  122. Unload Me
  123. End Sub
  124. Private Sub Form_Load()
  125. ' First, it is a good idea to set some Tag or Global Variable
  126. ' to equal the user name. For this, Form1.Tag will be used.
  127. ' To see the actual code, browse the frmLogin cmdLogin click event.
  128. End Sub
  129.