opcbar_bmgeneral.pag

关于OPC的相关资料:OPC技术介绍.pdf,入门学习资料及VB源码

VERSION 5.00
Begin VB.PropertyPage BMGeneral 
   Caption         =   "通用"
   ClientHeight    =   2472
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6576
   LockControls    =   -1  'True
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   2472
   ScaleWidth      =   6576
   Begin VB.ComboBox cboDrawDirection 
      Height          =   300
      ItemData        =   "OPCBar_BMGeneral.pgx":0000
      Left            =   240
      List            =   "OPCBar_BMGeneral.pgx":0002
      Style           =   2  'Dropdown List
      TabIndex        =   7
      Top             =   1800
      Width           =   2175
   End
   Begin VB.TextBox txtValueMax 
      Height          =   270
      Left            =   240
      TabIndex        =   3
      Top             =   1080
      Width           =   2970
   End
   Begin VB.TextBox txtValueMin 
      Height          =   270
      Left            =   3360
      TabIndex        =   5
      Top             =   1080
      Width           =   2970
   End
   Begin VB.TextBox txtValue 
      Height          =   270
      Left            =   240
      TabIndex        =   1
      Top             =   360
      Width           =   2970
   End
   Begin VB.Label lblDrawDirection 
      Caption         =   "棒的增长方向(&D):"
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   1560
      Width           =   3015
   End
   Begin VB.Label lblMaxValue 
      Caption         =   "最大值(&X):"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   840
      Width           =   3015
   End
   Begin VB.Label lblMinValue 
      Caption         =   "最小值(&N):"
      Height          =   255
      Left            =   3360
      TabIndex        =   4
      Top             =   840
      Width           =   2895
   End
   Begin VB.Label lblValue 
      Caption         =   "现在值(&V):"
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   3015
   End
End
Attribute VB_Name = "BMGeneral"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub PropertyPage_ApplyChanges()
    Dim objControl As Object
    For Each objControl In SelectedControls
       objControl.Value = txtValue.Text
       objControl.ValueMax = txtValueMax.Text
       objControl.ValueMin = txtValueMin.Text
       objControl.DrawDirection = cboDrawDirection.ListIndex
    Next
End Sub

Private Sub PropertyPage_SelectionChanged()
    ' 初始化
    txtValue.Text = SelectedControls(0).Value
    txtValueMax.Text = SelectedControls(0).ValueMax
    txtValueMin.Text = SelectedControls(0).ValueMin

    cboDrawDirection.Clear
    cboDrawDirection.AddItem opcbarUp & " - opcbarUp"
    cboDrawDirection.AddItem opcbarDown & " - opcbarDown"
    cboDrawDirection.AddItem opcbarRight & " - opcbarRight"
    cboDrawDirection.AddItem opcbarLeft & " - opcbarLeft"
    cboDrawDirection.ListIndex = SelectedControls(0).DrawDirection
End Sub

Private Sub txtValue_Change()
    Changed = True
End Sub

Private Sub txtValueMax_Change()
    Changed = True
End Sub

Private Sub txtValueMin_Change()
    Changed = True
End Sub

Private Sub cboDrawDirection_Click()
    Changed = True
End Sub