options.frm

此文件为OPC client VBTend 源代码,在VB开发环境下调试运行

VERSION 5.00
Begin VB.Form Options 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Retrieve Trend"
   ClientHeight    =   2064
   ClientLeft      =   2760
   ClientTop       =   3756
   ClientWidth     =   3636
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2064
   ScaleWidth      =   3636
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox Edit_Samples 
      Height          =   375
      Left            =   960
      TabIndex        =   4
      Text            =   "20"
      Top             =   240
      Width           =   855
   End
   Begin VB.Frame Read 
      Caption         =   "Read"
      Height          =   1095
      Left            =   120
      TabIndex        =   2
      Top             =   840
      Width           =   1695
      Begin VB.OptionButton Async 
         Caption         =   "&Asynchronous"
         Enabled         =   0   'False
         Height          =   375
         Left            =   240
         TabIndex        =   6
         Top             =   600
         Width           =   1335
      End
      Begin VB.OptionButton Sync 
         Caption         =   "&Synchronous"
         Height          =   375
         Left            =   240
         TabIndex        =   5
         Top             =   240
         Value           =   -1  'True
         Width           =   1335
      End
   End
   Begin VB.CommandButton CancelButton 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   2160
      TabIndex        =   1
      Top             =   720
      Width           =   1215
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "OK"
      Height          =   375
      Left            =   2160
      TabIndex        =   0
      Top             =   240
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "Samples:"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   300
      Width           =   735
   End
End
Attribute VB_Name = "Options"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'///////////////////////////////////////////////////////////////////////////
'
'  OPC Trend VB Client: options.frm
'                       (Source File)
'
'///////////////////////////////////////////////////////////////////////////
'
'          Author: Raphael Imhof
'    Initial Date: 11/04/98
'       $Workfile: Options.frm $
'       $Revision: 1 $
'           $Date: 7/27/99 5:13p $
'   Target System: Microsoft Windows NT 4.0
'     Environment: Visual Basic 6.0 / OPC DataAccess 2.0
'         Remarks:
'
'///////////////////////////////////////////////////////////////////////////
'
'     Description: implementation of the options form.
'
'
'///////////////////////////////////////////////////////////////////////////
'
'  History of Changes     (Please remove very old comments and blank lines!)
'            $Log: /IDK/OPCServer/clients/VB/Trend/Options.frm $
' 
' 1     7/27/99 5:13p Imhof
' 
' 1     7/27/99 4:37p Imhof
' 
' 3     1/20/99 3:09p Imhof
' Header: updated log
'
'
'  $Nokeywords:$ (To avoid useless search while checking in.)
'///////////////////////////////////////////////////////////////////////////
'  Copyright (C) 1999, Siemens Building Technologies, Inc. Landis Division
'
'  SIEMENS BUILDING TECHNOLOGIES, INC. IS PROVIDING THE FOLLOWING EXAMPLES
'  OF CODE AS SAMPLE ONLY.
'  SIEMENS BUILDING TECHNOLOGIES, INC. MAKES NO REPRESENTATIONS OR WARRANTIES
'  OF ANY KIND WITH RESPECT TO THE VALIDTY OF THE CODES OR DESIRED RESULTS
'  AND DISCLAIMS ALL SUCH REPRESENTATIONS AND WARRANTIES, INCLUDING FOR EXAMPLE,
'  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
'  SIEMENS BUILIDNG TECHNOLOGIES, INC. DOES NOT REPRESENT OR WARRANT THAT
'  THE FOLLOWING CODE SAMPLES ARE ACCURATE, VALID, COMPLETE OR CURRENT.
'
'///////////////////////////////////////////////////////////////////////////

Option Explicit
Public Samples As Long
Public ReadMode As Integer
Public iButtonPressed As Integer

Private Sub CancelButton_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    iButtonPressed = -1
End Sub

Private Sub OKButton_Click()
    If Edit_Samples < 10 Then
        MsgBox "10 samples minimum !"
    Else
        Samples = Edit_Samples
        If Sync.Value = True Then
            ReadMode = 0 'sync
        ElseIf Async.Value = True Then
            ReadMode = 1 'async
        Else
            ReadMode = -1 'undefined
        End If
        iButtonPressed = 1
    End If
    
    Unload Me
End Sub