propertypage1.pag

毕业设计 单片机 采集温度rs232上传 电脑显示温度曲线 包含源码 可以数据保存

VERSION 5.00
Begin VB.PropertyPage pgRTCurve 
   Caption         =   "PropertyPage1"
   ClientHeight    =   4155
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5865
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   4155
   ScaleWidth      =   5865
   Begin VB.TextBox txtYParFormat 
      Height          =   330
      Left            =   3000
      TabIndex        =   23
      Top             =   3720
      Width           =   2700
   End
   Begin VB.TextBox txtXParFormat 
      Height          =   330
      Left            =   90
      TabIndex        =   21
      Top             =   3705
      Width           =   2700
   End
   Begin VB.TextBox txtCaption 
      Height          =   330
      Left            =   3000
      TabIndex        =   19
      Top             =   2970
      Width           =   2700
   End
   Begin VB.TextBox txtmCurRecordNUM 
      Height          =   330
      Left            =   3000
      TabIndex        =   17
      Top             =   2320
      Width           =   2700
   End
   Begin VB.TextBox txtMaxRecord 
      Height          =   330
      Left            =   3000
      TabIndex        =   15
      Top             =   1670
      Width           =   2700
   End
   Begin VB.TextBox txtYInitMaxV 
      Height          =   330
      Left            =   3000
      TabIndex        =   13
      Top             =   1020
      Width           =   2700
   End
   Begin VB.TextBox txtYInitMinV 
      Height          =   330
      Left            =   3000
      TabIndex        =   11
      Top             =   370
      Width           =   2700
   End
   Begin VB.TextBox txtXInitMaxV 
      Height          =   330
      Left            =   90
      TabIndex        =   9
      Top             =   2970
      Width           =   2700
   End
   Begin VB.TextBox txtXInitMinV 
      Height          =   330
      Left            =   90
      TabIndex        =   7
      Top             =   2320
      Width           =   2700
   End
   Begin VB.TextBox txtToolTipText 
      Height          =   330
      Left            =   90
      TabIndex        =   5
      Top             =   1670
      Width           =   2700
   End
   Begin VB.TextBox txtYParName 
      Height          =   330
      Left            =   90
      TabIndex        =   3
      Top             =   1020
      Width           =   2700
   End
   Begin VB.TextBox txtXParName 
      Height          =   330
      Left            =   90
      TabIndex        =   1
      Top             =   370
      Width           =   2700
   End
   Begin VB.Label lblYParFormat 
      Caption         =   "YParFormat:"
      Height          =   240
      Left            =   3000
      TabIndex        =   22
      Top             =   3465
      Width           =   2700
   End
   Begin VB.Label lblXParFormat 
      Caption         =   "XParFormat:"
      Height          =   240
      Left            =   90
      TabIndex        =   20
      Top             =   3450
      Width           =   2700
   End
   Begin VB.Label lblCaption 
      Caption         =   "Caption:"
      Height          =   240
      Left            =   3000
      TabIndex        =   18
      Top             =   2720
      Width           =   2700
   End
   Begin VB.Label lblmCurRecordNUM 
      Caption         =   "mCurRecordNUM:"
      Height          =   240
      Left            =   3000
      TabIndex        =   16
      Top             =   2070
      Width           =   2700
   End
   Begin VB.Label lblMaxRecord 
      Caption         =   "MaxRecord:"
      Height          =   240
      Left            =   3000
      TabIndex        =   14
      Top             =   1420
      Width           =   2700
   End
   Begin VB.Label lblYInitMaxV 
      Caption         =   "YInitMaxV:"
      Height          =   240
      Left            =   3000
      TabIndex        =   12
      Top             =   770
      Width           =   2700
   End
   Begin VB.Label lblYInitMinV 
      Caption         =   "YInitMinV:"
      Height          =   240
      Left            =   3000
      TabIndex        =   10
      Top             =   120
      Width           =   2700
   End
   Begin VB.Label lblXInitMaxV 
      Caption         =   "XInitMaxV:"
      Height          =   240
      Left            =   90
      TabIndex        =   8
      Top             =   2720
      Width           =   2700
   End
   Begin VB.Label lblXInitMinV 
      Caption         =   "XInitMinV:"
      Height          =   240
      Left            =   90
      TabIndex        =   6
      Top             =   2070
      Width           =   2700
   End
   Begin VB.Label lblToolTipText 
      Caption         =   "ToolTipText:"
      Height          =   240
      Left            =   90
      TabIndex        =   4
      Top             =   1420
      Width           =   2700
   End
   Begin VB.Label lblYParName 
      Caption         =   "YParName:"
      Height          =   240
      Left            =   90
      TabIndex        =   2
      Top             =   770
      Width           =   2700
   End
   Begin VB.Label lblXParName 
      Caption         =   "XParName:"
      Height          =   240
      Left            =   90
      TabIndex        =   0
      Top             =   120
      Width           =   2700
   End
End
Attribute VB_Name = "pgRTCurve"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub txtYParFormat_Change()
    Changed = True
End Sub


Private Sub txtXParFormat_Change()
    Changed = True
End Sub


Private Sub txtCaption_Change()
    Changed = True
End Sub


Private Sub txtmCurRecordNUM_Change()
    Changed = True
End Sub


Private Sub txtMaxRecord_Change()
    Changed = True
End Sub


Private Sub txtYInitMaxV_Change()
    Changed = True
End Sub


Private Sub txtYInitMinV_Change()
    Changed = True
End Sub


Private Sub txtXInitMaxV_Change()
    Changed = True
End Sub


Private Sub txtXInitMinV_Change()
    Changed = True
End Sub


Private Sub txtToolTipText_Change()
    Changed = True
End Sub


Private Sub txtYParName_Change()
    Changed = True
End Sub


Private Sub txtXParName_Change()
    Changed = True
End Sub


Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).YParFormat = txtYParFormat.Text
    SelectedControls(0).XParFormat = txtXParFormat.Text
    SelectedControls(0).Caption = txtCaption.Text
    SelectedControls(0).mCurRecordNUM = txtmCurRecordNUM.Text
    SelectedControls(0).MaxRecord = txtMaxRecord.Text
    SelectedControls(0).YInitMaxV = txtYInitMaxV.Text
    SelectedControls(0).YInitMinV = txtYInitMinV.Text
    SelectedControls(0).XInitMaxV = txtXInitMaxV.Text
    SelectedControls(0).XInitMinV = txtXInitMinV.Text
    SelectedControls(0).ToolTipText = txtToolTipText.Text
    SelectedControls(0).YParName = txtYParName.Text
    SelectedControls(0).XParName = txtXParName.Text
End Sub


Private Sub PropertyPage_SelectionChanged()
    txtYParFormat.Text = SelectedControls(0).YParFormat
    txtXParFormat.Text = SelectedControls(0).XParFormat
    txtCaption.Text = SelectedControls(0).Caption
    txtmCurRecordNUM.Text = SelectedControls(0).mCurRecordNUM
    txtMaxRecord.Text = SelectedControls(0).MaxRecord
    txtYInitMaxV.Text = SelectedControls(0).YInitMaxV
    txtYInitMinV.Text = SelectedControls(0).YInitMinV
    txtXInitMaxV.Text = SelectedControls(0).XInitMaxV
    txtXInitMinV.Text = SelectedControls(0).XInitMinV
    txtToolTipText.Text = SelectedControls(0).ToolTipText
    txtYParName.Text = SelectedControls(0).YParName
    txtXParName.Text = SelectedControls(0).XParName
End Sub