📄 history.frm
字号:
VERSION 5.00
Object = "{D940E4E4-6079-11CE-88CB-0020AF6845F6}#1.6#0"; "cwui.ocx"
Begin VB.Form form2
Caption = "显示历史数据"
ClientHeight = 7740
ClientLeft = 60
ClientTop = 450
ClientWidth = 9750
LinkTopic = "Form1"
ScaleHeight = 7740
ScaleWidth = 9750
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command2
Caption = "退出"
Height = 615
Left = 8280
TabIndex = 6
Top = 6480
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "显示历史数据"
Height = 735
Left = 6600
TabIndex = 4
Top = 6480
Width = 1215
End
Begin VB.DriveListBox Drive1
Height = 315
Left = 480
TabIndex = 3
Top = 4920
Width = 2895
End
Begin VB.DirListBox Dir1
Height = 2115
Left = 480
TabIndex = 2
Top = 5400
Width = 2895
End
Begin VB.FileListBox File1
Height = 2625
Left = 3600
TabIndex = 1
Top = 4920
Width = 2775
End
Begin CWUIControlsLib.CWGraph CWGraph1
Height = 4095
Left = 240
TabIndex = 0
Top = 360
Width = 7695
_Version = 524288
_ExtentX = 13573
_ExtentY = 7223
_StockProps = 71
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Reset_0 = 0 'False
CompatibleVers_0= 524288
Graph_0 = 1
ClassName_1 = "CCWGraphFrame"
opts_1 = 62
C[0]_1 = 0
Event_1 = 2
ClassName_2 = "CCWGFPlotEvent"
Owner_2 = 1
Plots_1 = 3
ClassName_3 = "CCWDataPlots"
Array_3 = 1
Editor_3 = 4
ClassName_4 = "CCWGFPlotArrayEditor"
Owner_4 = 1
Array[0]_3 = 5
ClassName_5 = "CCWDataPlot"
opts_5 = 4194367
Name_5 = "Plot-1"
C[0]_5 = 65280
C[1]_5 = 255
C[2]_5 = 16711680
C[3]_5 = 16776960
Event_5 = 2
X_5 = 6
ClassName_6 = "CCWAxis"
opts_6 = 575
Name_6 = "XAxis"
Orientation_6 = 2944
format_6 = 7
ClassName_7 = "CCWFormat"
Scale_6 = 8
ClassName_8 = "CCWScale"
opts_8 = 90112
rMin_8 = 38
rMax_8 = 486
dMax_8 = 500
discInterval_8 = 1
Radial_6 = 0
Enum_6 = 9
ClassName_9 = "CCWEnum"
Editor_9 = 10
ClassName_10 = "CCWEnumArrayEditor"
Owner_10 = 6
Font_6 = 0
tickopts_6 = 2711
major_6 = 50
minor_6 = 25
Caption_6 = 11
ClassName_11 = "CCWDrawObj"
opts_11 = 62
C[0]_11 = -2147483640
Image_11 = 12
ClassName_12 = "CCWTextImage"
font_12 = 0
Animator_11 = 0
Blinker_11 = 0
Y_5 = 13
ClassName_13 = "CCWAxis"
opts_13 = 1599
Name_13 = "YAxis-1"
Orientation_13 = 2067
format_13 = 14
ClassName_14 = "CCWFormat"
Scale_13 = 15
ClassName_15 = "CCWScale"
opts_15 = 122880
rMin_15 = 12
rMax_15 = 245
dMax_15 = 10
discInterval_15 = 1
Radial_13 = 0
Enum_13 = 16
ClassName_16 = "CCWEnum"
Editor_16 = 17
ClassName_17 = "CCWEnumArrayEditor"
Owner_17 = 13
Font_13 = 0
tickopts_13 = 2711
major_13 = 1
minor_13 = .5
Caption_13 = 18
ClassName_18 = "CCWDrawObj"
opts_18 = 62
C[0]_18 = -2147483640
Image_18 = 19
ClassName_19 = "CCWTextImage"
font_19 = 0
Animator_18 = 0
Blinker_18 = 0
LineStyle_5 = 1
LineWidth_5 = 1
BasePlot_5 = 0
DefaultXInc_5 = 1
DefaultPlotPerRow_5= -1 'True
Axes_1 = 20
ClassName_20 = "CCWAxes"
Array_20 = 2
Editor_20 = 21
ClassName_21 = "CCWGFAxisArrayEditor"
Owner_21 = 1
Array[0]_20 = 6
Array[1]_20 = 13
DefaultPlot_1 = 22
ClassName_22 = "CCWDataPlot"
opts_22 = 4194367
Name_22 = "[Template]"
C[0]_22 = 65280
C[1]_22 = 255
C[2]_22 = 16711680
C[3]_22 = 16776960
Event_22 = 2
X_22 = 6
Y_22 = 13
LineStyle_22 = 1
LineWidth_22 = 1
BasePlot_22 = 0
DefaultXInc_22 = 1
DefaultPlotPerRow_22= -1 'True
Cursors_1 = 23
ClassName_23 = "CCWCursors"
Editor_23 = 24
ClassName_24 = "CCWGFCursorArrayEditor"
Owner_24 = 1
TrackMode_1 = 4
ChartStyle_1 = 1
GraphFrameStyle_1= 1
GraphBackground_1= 0
GraphFrame_1 = 25
ClassName_25 = "CCWDrawObj"
opts_25 = 62
Image_25 = 26
ClassName_26 = "CCWPictImage"
opts_26 = 1280
Rows_26 = 1
Cols_26 = 1
Pict_26 = 450
F_26 = -2147483633
B_26 = -2147483633
ColorReplaceWith_26= 8421504
ColorReplace_26 = 8421504
Tolerance_26 = 2
Animator_25 = 0
Blinker_25 = 0
PlotFrame_1 = 27
ClassName_27 = "CCWDrawObj"
opts_27 = 62
C[1]_27 = 0
Image_27 = 28
ClassName_28 = "CCWPictImage"
opts_28 = 1280
Rows_28 = 1
Cols_28 = 1
Pict_28 = 1
F_28 = -2147483633
B_28 = 0
ColorReplaceWith_28= 8421504
ColorReplace_28 = 8421504
Tolerance_28 = 2
Animator_27 = 0
Blinker_27 = 0
Caption_1 = 29
ClassName_29 = "CCWDrawObj"
opts_29 = 62
C[0]_29 = -2147483640
Image_29 = 30
ClassName_30 = "CCWTextImage"
font_30 = 0
Animator_29 = 0
Blinker_29 = 0
DefaultXInc_1 = 1
DefaultPlotPerRow_1= -1 'True
Bindings_1 = 31
ClassName_31 = "CCWBindingHolderArray"
Editor_31 = 32
ClassName_32 = "CCWBindingHolderArrayEditor"
Owner_32 = 1
Annotations_1 = 33
ClassName_33 = "CCWAnnotations"
Editor_33 = 34
ClassName_34 = "CCWAnnotationArrayEditor"
Owner_34 = 1
AnnotationTemplate_1= 35
ClassName_35 = "CCWAnnotation"
opts_35 = 63
Name_35 = "[Template]"
Plot_35 = 22
Text_35 = "[Template]"
TextXPoint_35 = 6.7
TextYPoint_35 = 6.7
TextColor_35 = 16777215
TextFont_35 = 36
ClassName_36 = "CCWFont"
bFont_36 = -1 'True
BeginProperty Font_36 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ShapeXPoints_35 = 37
ClassName_37 = "CDataBuffer"
Type_37 = 5
m_cDims;_37 = 1
m_cElts_37 = 1
Element[0]_37 = 3.3
ShapeYPoints_35 = 38
ClassName_38 = "CDataBuffer"
Type_38 = 5
m_cDims;_38 = 1
m_cElts_38 = 1
Element[0]_38 = 3.3
ShapeFillColor_35= 16777215
ShapeLineColor_35= 16777215
ShapeLineWidth_35= 1
ShapeLineStyle_35= 1
ShapePointStyle_35= 10
ShapeImage_35 = 39
ClassName_39 = "CCWDrawObj"
opts_39 = 62
Image_39 = 40
ClassName_40 = "CCWPictImage"
opts_40 = 1280
Rows_40 = 1
Cols_40 = 1
Pict_40 = 7
F_40 = -2147483633
B_40 = -2147483633
ColorReplaceWith_40= 8421504
ColorReplace_40 = 8421504
Tolerance_40 = 2
Animator_39 = 0
Blinker_39 = 0
ArrowVisible_35 = -1 'True
ArrowColor_35 = 16777215
ArrowWidth_35 = 1
ArrowLineStyle_35= 1
ArrowHeadStyle_35= 1
End
Begin VB.Label Label1
Caption = "可用鼠标拖动或放大！"
Height = 1455
Left = 8040
TabIndex = 5
Top = 1680
Width = 1575
End
End
Attribute VB_Name = "form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Dim tempSize As Long
Dim flag As Long
Dim outdata() As Double
tempSize = FileSize(FilePathName) '此函数返回的是字节计数的文件大小，要特别注意。
ReDim outdata(tempSize / 8)
flag = ReadArray(FilePathName, tempSize / 8, outdata(0))
If flag <> 0 Then
MsgBox "读盘失败！"
Unload Me
End If
CWGraph1.PlotY (outdata)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub File1_Click()
FilePathName = Dir1.Path & "\" & File1.fileName
End Sub
Private Sub Form_Load()
Drive1.Drive = "d:\"
File1.Pattern = "*.dat"
End Sub
'路径操作
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
'文件操作
Private Sub Dir1_Change()
File1.fileName = Dir1.Path
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -