opctrend_tggeneral.pag

用vb写的一个opc的客户端控件

VERSION 5.00
Begin VB.PropertyPage TGGeneral 
   Caption         =   "通用"
   ClientHeight    =   2475
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6570
   LockControls    =   -1  'True
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   2475
   ScaleWidth      =   6570
   Begin VB.TextBox txtPointSize 
      Height          =   270
      Left            =   240
      TabIndex        =   5
      Top             =   1800
      Width           =   2970
   End
   Begin VB.TextBox txtRangeY 
      Height          =   270
      Left            =   240
      TabIndex        =   3
      Top             =   1080
      Width           =   2970
   End
   Begin VB.TextBox txtRangeX 
      Height          =   270
      Left            =   240
      TabIndex        =   1
      Top             =   360
      Width           =   2970
   End
   Begin VB.Label lblPointSize 
      Caption         =   "刷新点大小(&S):"
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   1560
      Width           =   3135
   End
   Begin VB.Label lblRengeY 
      Caption         =   "Y轴范围(&Y):"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   840
      Width           =   3135
   End
   Begin VB.Label lblRengeX 
      Caption         =   "X轴范围(&X):"
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   3135
   End
End
Attribute VB_Name = "TGGeneral"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private Sub PropertyPage_ApplyChanges()
    Dim objControl As Object
    For Each objControl In SelectedControls
        objControl.RangeX = txtRangeX.Text
        objControl.RangeY = txtRangeY.Text
        objControl.PointSize = txtPointSize.Text
    Next
End Sub

Private Sub PropertyPage_SelectionChanged()
    ' 初始化
    txtRangeX.Text = SelectedControls(0).RangeX
    txtRangeY.Text = SelectedControls(0).RangeY
    txtPointSize.Text = SelectedControls(0).PointSize
End Sub

Private Sub txtRangeX_Change()
    Changed = True
End Sub

Private Sub txtRangeY_Change()
    Changed = True
End Sub

Private Sub txtPointSize_Change()
    Changed = True
End Sub