formselectfilter.frm

电动平台, 控制X,Y,Z轴移动,能计数

VERSION 5.00
Begin VB.Form FormSelectFilter 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Select Filter"
   ClientHeight    =   1920
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   3135
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1920
   ScaleWidth      =   3135
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   2160
      Top             =   120
   End
   Begin VB.OptionButton WhichFilter 
      Caption         =   "Filter 3"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   2
      Left            =   120
      TabIndex        =   3
      Top             =   1320
      Width           =   1500
   End
   Begin VB.OptionButton WhichFilter 
      Caption         =   "Filter 2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   1
      Left            =   120
      TabIndex        =   2
      Top             =   720
      Width           =   1500
   End
   Begin VB.OptionButton WhichFilter 
      Caption         =   "Filter 1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   0
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   1500
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "OK"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1800
      TabIndex        =   0
      Top             =   720
      Width           =   1215
   End
End
Attribute VB_Name = "FormSelectFilter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Dim options As Integer
    options = 0
    
    If TestControl.BtnFW1.Visible = True Then
        options = options + 1
        TestControl.WhichFilter = 1
        WhichFilter(0).value = True
    Else
        WhichFilter(0).Enabled = False
    End If
    
    If TestControl.BtnFW2.Visible = True Then
        If options = 0 Then
            TestControl.WhichFilter = 2
            WhichFilter(1).value = True
        End If
        options = options + 1
    Else
        WhichFilter(1).Enabled = False
    End If
    
    If TestControl.BtnFW3.Visible = True Then
        If options = 0 Then
            TestControl.WhichFilter = 3
            WhichFilter(2).value = True
        End If
        options = options + 1
    Else
        WhichFilter(2).Enabled = False
    End If
    If options <= 1 Then
        Timer1.Enabled = True
    End If
End Sub

Private Sub OKButton_Click()
    Unload Me
End Sub

Private Sub Timer1_Timer()
    Unload Me
End Sub

Private Sub WhichFilter_Click(Index As Integer)
    TestControl.WhichFilter = Index + 1
End Sub