frmaddgroup.frm

opc 通讯 册测试通讯OPC使用 客户端/服务端

VERSION 5.00
Begin VB.Form frmAddGroup 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "增加组"
   ClientHeight    =   2790
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3825
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2790
   ScaleWidth      =   3825
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox GroupName 
      Height          =   285
      Left            =   1200
      MaxLength       =   30
      TabIndex        =   8
      ToolTipText     =   "Enter a group name here or leave blank to allow the server to provide a group name"
      Top             =   180
      Width           =   2295
   End
   Begin VB.CommandButton AbortAdd 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   2130
      TabIndex        =   6
      Top             =   2070
      Width           =   1455
   End
   Begin VB.CommandButton AddGroup 
      Caption         =   "Add Group"
      Height          =   375
      Left            =   570
      TabIndex        =   5
      Top             =   2070
      Width           =   1455
   End
   Begin VB.CheckBox ActiveState 
      Alignment       =   1  'Right Justify
      Caption         =   "Active State："
      Height          =   375
      Left            =   180
      TabIndex        =   4
      ToolTipText     =   "Click here to change the active state of the group"
      Top             =   1380
      Value           =   1  'Checked
      Width           =   1335
   End
   Begin VB.TextBox DeadBand 
      Height          =   285
      Left            =   1200
      TabIndex        =   3
      Text            =   "0"
      ToolTipText     =   "Enter a new Group DeadBand 0 - 100"
      Top             =   930
      Width           =   2295
   End
   Begin VB.TextBox UpdateRate 
      Height          =   285
      Left            =   1200
      TabIndex        =   2
      Text            =   "100"
      ToolTipText     =   "Enter a new Group Update Rate 0 - 2147483647 milliseconds"
      Top             =   570
      Width           =   2295
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "组名称："
      Height          =   180
      Left            =   330
      TabIndex        =   7
      Top             =   240
      Width           =   720
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "比率："
      Height          =   180
      Left            =   510
      TabIndex        =   1
      Top             =   960
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "更新速率："
      Height          =   180
      Left            =   150
      TabIndex        =   0
      Top             =   600
      Width           =   900
   End
End
Attribute VB_Name = "frmAddGroup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Option Base 1

Private Sub AbortAdd_Click()
    fMainForm.tvTreeView.Enabled = True
    
    Unload Me ' Remove the Add OPC Form
End Sub

Private Sub AddGroup_Click()
    fMainForm.AddOPCGroupMain GroupName.Text, (UpdateRate.Text), Val(DeadBand.Text), ActiveState.Value
    fMainForm.tvTreeView.Enabled = True
    
    Unload Me ' Remove the Add OPC Form
End Sub

Private Sub Form_Deactivate()
    frmAddGroup.Show
End Sub