📄 historyview.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form HistoryView
Caption = "数据回放窗体"
ClientHeight = 8535
ClientLeft = 255
ClientTop = 330
ClientWidth = 12195
Icon = "HistoryView.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 8535
ScaleWidth = 12195
WindowState = 2 'Maximized
Begin ComctlLib.Slider Slider3
Height = 480
Left = 4680
TabIndex = 20
Top = 6840
Width = 9735
_ExtentX = 17171
_ExtentY = 847
_Version = 327682
TickStyle = 3
End
Begin ComctlLib.Slider Slider1
Height = 480
Left = 4080
TabIndex = 3
TabStop = 0 'False
Top = 9000
Width = 10575
_ExtentX = 18653
_ExtentY = 847
_Version = 327682
TickStyle = 3
End
Begin MSComDlg.CommonDialog FileDialog
Left = 14280
Top = 9480
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Timer Timer
Enabled = 0 'False
Interval = 800
Left = 2520
Top = 6840
End
Begin VB.CommandButton Stop_Command
Caption = "停止回放"
Height = 495
Left = 12360
TabIndex = 18
Top = 8160
Width = 1815
End
Begin VB.Frame Frame2
Caption = "文件信息"
Height = 1455
Left = 840
TabIndex = 11
Top = 7200
Width = 2775
Begin VB.ListBox FileHeadText
Height = 1140
ItemData = "HistoryView.frx":0CCA
Left = 120
List = "HistoryView.frx":0CCC
TabIndex = 21
Top = 220
Width = 2535
End
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "HistoryView.frx":0CCE
Left = 7680
List = "HistoryView.frx":0CE4
TabIndex = 7
Top = 7560
Width = 1215
End
Begin VB.Frame Frame1
Caption = "回放模式"
Height = 1335
Left = 4080
TabIndex = 4
Top = 7320
Width = 1815
Begin VB.OptionButton WaveOpt
Caption = "波形回放"
Height = 375
Left = 360
TabIndex = 6
Top = 840
Width = 1095
End
Begin VB.OptionButton DigitOpt
Caption = "数字回放"
Height = 375
Left = 360
TabIndex = 5
Top = 240
Width = 1215
End
End
Begin VB.PictureBox Picture1
BackColor = &H00000000&
Height = 6255
Left = 4680
ScaleHeight = 413
ScaleMode = 3 'Pixel
ScaleWidth = 645
TabIndex = 2
Top = 480
Width = 9735
End
Begin VB.CommandButton Start_Command
Caption = "开始回放"
Height = 495
Left = 12360
TabIndex = 1
Top = 7440
Width = 1815
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid Grid
Height = 6255
Left = 795
TabIndex = 0
Top = 480
Width = 3615
_ExtentX = 6376
_ExtentY = 11033
_Version = 393216
Rows = 25
Cols = 3
RowSizingMode = 1
_NumberOfBands = 1
_Band(0).Cols = 3
End
Begin ComctlLib.Slider Slider2
Height = 480
Left = 4080
TabIndex = 19
TabStop = 0 'False
Top = 9000
Width = 10575
_ExtentX = 18653
_ExtentY = 847
_Version = 327682
TickStyle = 3
End
Begin VB.Label PerChannel
BorderStyle = 1 'Fixed Single
Height = 375
Left = 10320
TabIndex = 17
Top = 8160
Width = 1215
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "通道点数"
Height = 180
Left = 9360
TabIndex = 16
Top = 8280
Width = 720
End
Begin VB.Label ScreenPos
BorderStyle = 1 'Fixed Single
Height = 375
Left = 7680
TabIndex = 15
Top = 8160
Width = 1215
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "屏幕位置"
Height = 180
Left = 6600
TabIndex = 14
Top = 8280
Width = 720
End
Begin VB.Label FileOffset
BorderStyle = 1 'Fixed Single
Height = 375
Left = 2280
TabIndex = 13
Top = 9120
Width = 1335
End
Begin VB.Label Label3
Caption = "文件偏移点"
Height = 375
Left = 960
TabIndex = 12
Top = 9240
Width = 1095
End
Begin VB.Label FileSizeDisp
BorderStyle = 1 'Fixed Single
Height = 375
Left = 10320
TabIndex = 10
Top = 7560
Width = 1335
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "文件长度 点"
Height = 180
Left = 9360
TabIndex = 9
Top = 7680
Width = 2610
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "回放速度"
Height = 180
Left = 6600
TabIndex = 8
Top = 7680
Width = 720
End
Begin VB.Menu FM
Caption = "文件操作"
Begin VB.Menu OpenFile
Caption = "打开数据文件"
End
Begin VB.Menu CloseFile
Caption = "关闭数据文件"
End
Begin VB.Menu t10
Caption = "-"
Index = 1
End
Begin VB.Menu CloseForm
Caption = "关闭本系统"
End
End
Begin VB.Menu DM
Caption = "数据回放"
Begin VB.Menu StartPlay
Caption = "开始回放"
End
Begin VB.Menu StopPlay
Caption = "停止回放"
End
Begin VB.Menu t1
Caption = "-"
Index = 2
End
Begin VB.Menu DigitShow
Caption = "数字回放"
Checked = -1 'True
End
Begin VB.Menu WaveShow
Caption = "波形回放"
Checked = -1 'True
End
End
Begin VB.Menu owindow
Caption = "窗口显示"
WindowList = -1 'True
End
End
Attribute VB_Name = "HistoryView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private ShowMode As Integer '显示方式 1：数字方式 2：波形方式
Private FileObject As Long '文件句柄
Private Hist_Header As File_Header
Private InRegionUser(65535) As Integer
Private m_Offset As Double '偏移量
Private ChannelCount As Integer '通道总量
Private FOpenFlag As Boolean '文件打开标示
Private Rate As Integer
Private already As Boolean
Private hDevice As Long
Dim HeaderSize As Long
Private Sub CloseFile_Click()
Dim flag As Boolean
If FOpenFlag = True Then
flag = USB2013_ReleaseFile(FileObject)
FOpenFlag = False
End If
CloseFile.Enabled = False
OpenFile.Enabled = True
End Sub
Private Sub CloseForm_Click()
Dim flag As Boolean
If FOpenFlag = True Then
flag = USB2013_ReleaseFile(FileObject)
FOpenFlag = False
End If
Unload Me
End Sub
Private Sub Combo1_Click()
Rate = Combo1
End Sub
Private Sub Form_Load()
FOpenFlag = False
WaveOpt = True
Rate = 1
Combo1 = 1
Start_Command.Enabled = False
Stop_Command.Enabled = False
CloseFile.Enabled = False
Slider1.Visible = False
Slider2.Visible = True
already = True
Call file
End Sub
Private Sub Form_Paint()
If FOpenFlag Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -