📄 frmmain.frm
字号:
Left = 5220
TabIndex = 64
Top = 2670
Width = 990
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "泵深(m)"
Height = 180
Index = 13
Left = 787
TabIndex = 63
Top = 3210
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "泵径(mm)"
Height = 180
Index = 14
Left = 2310
TabIndex = 62
Top = 3210
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "时标(s)"
Height = 180
Index = 16
Left = 5400
TabIndex = 61
Top = 3210
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "备 注:"
Height = 180
Index = 17
Left = 360
TabIndex = 60
Top = 3855
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "饱和压力(Mpa)"
Height = 180
Index = 15
Left = 3570
TabIndex = 59
Top = 3210
Width = 1170
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "项 目"
Height = 180
Index = 0
Left = 360
TabIndex = 58
Top = 1530
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "开 井"
Height = 180
Index = 1
Left = 1455
TabIndex = 57
Top = 1530
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "测动液面"
Height = 180
Index = 2
Left = 2535
TabIndex = 56
Top = 1530
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "关 井"
Height = 180
Index = 3
Left = 3570
TabIndex = 55
Top = 1530
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "测试完毕"
Height = 180
Index = 4
Left = 4605
TabIndex = 54
Top = 1530
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "起 抽"
Height = 180
Index = 5
Left = 5640
TabIndex = 53
Top = 1530
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "时间(h:min)"
Height = 180
Index = 6
Left = 360
TabIndex = 52
Top = 1785
Width = 990
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "油 压"
Height = 180
Index = 7
Left = 360
TabIndex = 51
Top = 2085
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "套 压"
Height = 180
Index = 8
Left = 360
TabIndex = 50
Top = 2385
Width = 810
End
End
Begin VB.Label lbZs
Caption = "油层中深"
Height = 255
Left = -74880
TabIndex = 91
Top = 405
Width = 855
End
Begin VB.Label lbHs
Caption = "含水"
Height = 255
Left = -73080
TabIndex = 90
Top = 390
Width = 435
End
End
Begin VB.Menu m_f
Caption = "文件"
Begin VB.Menu m_f_open
Caption = "打开"
End
Begin VB.Menu m_f_close
Caption = "关闭"
End
Begin VB.Menu m_w_f1
Caption = "-"
End
Begin VB.Menu m_f_mer
Caption = "合并"
End
Begin VB.Menu m_w_f2
Caption = "-"
End
Begin VB.Menu m_exit
Caption = "退出"
End
End
Begin VB.Menu m_v
Caption = "视图"
Begin VB.Menu m_v_v
Caption = "液面套压"
Checked = -1 'True
Index = 0
End
Begin VB.Menu m_v_v
Caption = "静液面"
Index = 1
End
Begin VB.Menu m_v_v
Caption = "动液面"
Index = 2
End
Begin VB.Menu m_v_v
Caption = "数据"
Index = 3
End
End
Begin VB.Menu m_work
Caption = "工作"
Begin VB.Menu m_w_t
Caption = "通讯"
End
Begin VB.Menu m_f1
Caption = "-"
End
Begin VB.Menu m_w_j
Caption = "检定"
End
Begin VB.Menu m_f2
Caption = "-"
End
Begin VB.Menu m_w_print
Caption = "打印"
End
End
Begin VB.Menu m_about
Caption = "关于"
Begin VB.Menu m_a_a
Caption = "关于"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim curPiont As Long
Dim oldStabWidth As Long
Dim oldStabHeight As Long
Dim FreqDisPlay As Long
Dim Drawing As Boolean
Private Sub Command1_Click()
'openFile "E:\work\地面测试仪070920\01-2-N1225.dmy"
'openFile "E:\work\地面测试仪070920\1.dmy"
'openFile "E:\work\地面测试仪070920\0_all.dmy"
'addList "E:\work\地面测试仪070920\01-2-N1225.dmy", Me.ListDde
'addList "E:\work\地面测试仪070920\N4-2-B49a.dmy"
'addList "E:\work\地面测试仪070920\0_all.dmy", Me.ListDde
'saveFile TempDmyData, "c:\aa.dmy"
'GetJpress 100, 10
'drawYt Me.Picture1, 2
'drawJp Me.Picture1 ', True
'drawFrequency Me.Picture1, 1, False
'drawJp Printer, True
'Printer.EndDoc
'drawReport PicMain
'TempDmyData.dmyRep(1) = "1"
'TempDmyData.dmyRep(2) = "2"
'
'SaveRep TempDmyData.dmyRep, "E:\work\sjndmy\0_all.dmy"
'havaRep "E:\work\sjndmy\0_all.dmy"
'drawDataReport PicMain
Dim temp() As Byte
Dim temps As dmyData
temp = DataToByte(TempDmyData)
saveFile ByteToData(temp, 1), "c:\aa.dmy"
End Sub
Sub iniRep()
Dim obj As Object
oldStabWidth = Me.SSTab1.Width
oldStabHeight = Me.SSTab1.Height
For Each obj In Me.Controls
Select Case obj.Name
Case "Text1", "Text2", "Label1", "Label2", "Command4"
obj.Tag = obj.Left & " " & obj.Top & " " & obj.Width & " " & obj.Height
' Debug.Print obj.Tag
End Select
Next
End Sub
Sub ResizeRep()
Dim ScaleX As Double, ScaleY As Double
Dim Pos() As String
Dim obj As Object
ScaleX = SSTab1.Width / oldStabWidth
ScaleY = SSTab1.Height / oldStabHeight
For Each obj In Me.Controls
' Debug.Print obj.Name
Select Case obj.Name
Case "Text1", "Text2", "Label1", "Label2", "Command4"
Pos = Split(obj.Tag)
' obj.FontSize = obj.FontSize * ScaleY
obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3)
End Select
Next
iniRep
End Sub
Private Sub Command2_Click()
addList "E:\work\地面测试仪070920\0_all.dmy"
'saveFile TempDmyData, "c:\aa.dmy"
End Sub
Private Sub Command3_Click()
If IsNumeric(txtHs.Text) Or IsNumeric(txtZs.Text) Then
mPic.Cls
GetJpress CInt(txtZs.Text), CInt(txtHs.Text)
writeOp txtHs.Text, txtZs.Text, TempDmyData.fileName
drawJp mPic
Else
MsgBox ""
End If
End Sub
Private Sub Command4_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case 0
For i = 1 To 35
TempDmyData.dmyRep(i + 2) = Text1(i - 1).Text 'Trim(Text1(i - 1).Text)
Next
TempDmyData.dmyRep(1) = Text2(0).Text
TempDmyData.dmyRep(2) = Text2(1).Text
Case 1
For i = 1 To 35
If i = 1 Or i = 5 Or i = 6 Or i = 7 Or i = 9 Or i = 17 Then
Else
TempDmyData.dmyRep(i + 2) = ""
Text1(i - 1).Text = ""
End If
Next
TempDmyData.dmyRep(1) = ""
TempDmyData.dmyRep(2) = ""
Text2(0).Text = ""
Text2(1).Text = ""
End Select
SaveRep TempDmyData.dmyRep, TempDmyData.fileName
End Sub
Private Sub Form_Activate()
SSTab1_Click SSTab1.Tab
If Command <> "" Then
FOpenfile Command
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
''回写 ctrl+alt+w
'If Shift = 6 And KeyCode = vbKeyW Then
' FrmComm.CommFlag = True
' FrmComm.Show 1
'End If
End Sub
Private Sub HScroll1_Change()
If HScroll1.Max <> 1 Then
mPic.Cls
drawFrequency mPic, HScroll1.Value, , FreqDisPlay
If Line1.Visible Then
curPiont = xToIndex(Line1.x1, 3)
drawPiont curPiont, 3
showLab curPiont, 3
End If
End If
End Sub
Private Sub LbDisplay_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'避免鼠标落到自己身上
LbDisplay.Caption = ""
End Sub
Private Sub m_a_a_Click()
frmAbout.Show 1
End Sub
Private Sub m_f_close_Click()
FClose
End Sub
Private Sub m_exit_Click()
FExit
End Sub
Private Sub m_f_mer_Click()
FMergeData
End Sub
Private Sub m_f_open_Click()
FOpenfile
End Sub
Private Sub Form_Load()
'-----------------
RegSet
'------------------
PicFlag = 1
Set mList = Me.ListDde
Set mPic = Me.PicMain
Set mDialog = Me.CommonDialog1
ResizeInit Me
iniRep
setForm
End Sub
Private Sub Form_Resize()
ResizeForm Me
ResizeRep
setTitle
SSTab1_Click 0
End Sub
Private Sub ListDde_GotFocus()
'Debug.Print "ListDde_GotFocus"
End Sub
Private Sub ListDde_ItemClick(ByVal Item As MSComctlLib.ListItem)
If TempDmyData.fileName <> Item.ToolTipText Then FOpenfile Item.ToolTipText
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -