home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / crwdemo / boolcon.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-12-05  |  5.1 KB  |  158 lines
  1. VERSION 2.00
  2. Begin Form BoolCond 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Boolean Condition"
  5.    ClientHeight    =   5925
  6.    ClientLeft      =   5400
  7.    ClientTop       =   1455
  8.    ClientWidth     =   4230
  9.    Height          =   6330
  10.    Left            =   5340
  11.    LinkTopic       =   "Form3"
  12.    ScaleHeight     =   5925
  13.    ScaleWidth      =   4230
  14.    Top             =   1110
  15.    Width           =   4350
  16.    Begin SSPanel StatusBar 
  17.       Alignment       =   1  'Left Justify - MIDDLE
  18.       BevelWidth      =   2
  19.       BorderWidth     =   1
  20.       Height          =   510
  21.       Left            =   0
  22.       TabIndex        =   11
  23.       Top             =   5445
  24.       Width           =   4245
  25.    End
  26.    Begin CommandButton Command1 
  27.       Caption         =   "Ok"
  28.       Height          =   420
  29.       Left            =   1530
  30.       TabIndex        =   9
  31.       Top             =   4860
  32.       Width           =   1275
  33.    End
  34.    Begin SSPanel Panel3D1 
  35.       Alignment       =   1  'Left Justify - MIDDLE
  36.       BevelInner      =   1  'Inset
  37.       BevelWidth      =   2
  38.       BorderWidth     =   1
  39.       Height          =   4335
  40.       Left            =   180
  41.       TabIndex        =   0
  42.       Top             =   405
  43.       Width           =   3795
  44.       Begin SSFrame Frame3D2 
  45.          ForeColor       =   &H00000000&
  46.          Height          =   2940
  47.          Left            =   180
  48.          TabIndex        =   2
  49.          Top             =   900
  50.          Width           =   3435
  51.          Begin SSOption Option3D1 
  52.             Caption         =   "Change when Next is No"
  53.             Height          =   240
  54.             Index           =   5
  55.             Left            =   180
  56.             TabIndex        =   8
  57.             TabStop         =   0   'False
  58.             Top             =   2340
  59.             Width           =   2445
  60.          End
  61.          Begin SSOption Option3D1 
  62.             Caption         =   "Change when Next is Yes"
  63.             Height          =   330
  64.             Index           =   4
  65.             Left            =   180
  66.             TabIndex        =   7
  67.             TabStop         =   0   'False
  68.             Top             =   1890
  69.             Width           =   2715
  70.          End
  71.          Begin SSOption Option3D1 
  72.             Caption         =   "On every No"
  73.             Height          =   330
  74.             Index           =   3
  75.             Left            =   180
  76.             TabIndex        =   6
  77.             TabStop         =   0   'False
  78.             Top             =   1485
  79.             Width           =   2265
  80.          End
  81.          Begin SSOption Option3D1 
  82.             Caption         =   "On every Yes"
  83.             Height          =   375
  84.             Index           =   2
  85.             Left            =   180
  86.             TabIndex        =   5
  87.             TabStop         =   0   'False
  88.             Top             =   1035
  89.             Width           =   2175
  90.          End
  91.          Begin SSOption Option3D1 
  92.             Caption         =   "Change from Yes to No"
  93.             Height          =   375
  94.             Index           =   1
  95.             Left            =   180
  96.             TabIndex        =   4
  97.             TabStop         =   0   'False
  98.             Top             =   630
  99.             Width           =   2265
  100.          End
  101.          Begin SSOption Option3D1 
  102.             Caption         =   "Change from No to Yes"
  103.             Height          =   375
  104.             Index           =   0
  105.             Left            =   180
  106.             TabIndex        =   3
  107.             Top             =   225
  108.             Value           =   -1  'True
  109.             Width           =   2895
  110.          End
  111.       End
  112.       Begin SSFrame Frame3D1 
  113.          ForeColor       =   &H00000000&
  114.          Height          =   600
  115.          Left            =   180
  116.          TabIndex        =   1
  117.          Top             =   225
  118.          Width           =   3435
  119.          Begin Label Label1 
  120.             BackColor       =   &H00C0C0C0&
  121.             Caption         =   "Select Group Boolean Condition"
  122.             Height          =   240
  123.             Left            =   90
  124.             TabIndex        =   10
  125.             Top             =   225
  126.             Width           =   2895
  127.          End
  128.       End
  129.    End
  130. Sub Command1_Click ()
  131.  'Set the group condition based on the boolean condition set in the radio buttons
  132.  If PESetGroupCondition(JobNum, 3000, GroupCond.Text1.Text, BoolCond1, Sortdir) = False Then
  133.       RCode = GetErrorString(JobNum)
  134.       MsgBox "PESetGroupCondition Error #: " + Str(ErrorCode) + " - " + RCode
  135.  Else
  136.      GroupCond!Statusbar.Caption = "Group Condition has been set."
  137.      GroupCond.Command1.Visible = False
  138.  End If
  139.  Unload Me
  140. End Sub
  141. Sub Option3D1_Click (Index As Integer, Value As Integer)
  142.    'Specify Boolean Condition
  143.    Select Case Index
  144.     Case 0:
  145.       BoolCond1 = 1
  146.     Case 1:
  147.       BoolCond1 = 2
  148.     Case 2:
  149.       BoolCond1 = 3
  150.     Case 3:
  151.       BoolCond1 = 4
  152.     Case 4:
  153.       BoolCond1 = 5
  154.     Case 5
  155.       BoolCond1 = 6
  156.    End Select
  157. End Sub
  158.