📄 frmmain1.frm
字号:
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "测井时间自"
Height = 180
Index = 4
Left = 360
TabIndex = 51
Top = 600
Width = 900
End
End
Begin VB.OptionButton Option1
Caption = "液面"
Height = 315
Index = 0
Left = -74880
TabIndex = 10
Top = 420
Width = 1335
End
Begin VB.OptionButton Option1
Caption = "套压"
Height = 315
Index = 1
Left = -73380
TabIndex = 9
Top = 420
Width = 1335
End
Begin VB.OptionButton Option1
Caption = "液面套压"
Height = 315
Index = 2
Left = -71760
TabIndex = 8
Top = 420
Value = -1 'True
Width = 1335
End
Begin VB.HScrollBar HScroll1
Height = 375
LargeChange = 500
Left = -74940
SmallChange = 20
TabIndex = 7
Tag = "sh"
Top = 360
Width = 6735
End
Begin VB.TextBox txtZs
Height = 330
Left = -73980
TabIndex = 6
Text = "0"
Top = 352
Width = 855
End
Begin VB.TextBox txtHs
Height = 330
Left = -72540
TabIndex = 5
Text = "0"
Top = 352
Width = 855
End
Begin VB.CommandButton Command3
Caption = "确定"
Enabled = 0 'False
Height = 375
Left = -69360
TabIndex = 4
Tag = "mh"
Top = 360
Width = 1155
End
Begin VB.Label lbZs
Caption = "油层中深"
Height = 255
Left = -74940
TabIndex = 12
Top = 420
Width = 855
End
Begin VB.Label lbHs
Caption = "含水"
Height = 255
Left = -73020
TabIndex = 11
Top = 420
Width = 675
End
End
Begin VB.PictureBox PicMain
AutoRedraw = -1 'True
BackColor = &H80000009&
Enabled = 0 'False
Height = 4515
Left = 1920
ScaleHeight = 4455
ScaleWidth = 6675
TabIndex = 2
Tag = "sa"
Top = 2880
Width = 6735
Begin VB.Line Line1
Visible = 0 'False
X1 = 0
X2 = 0
Y1 = 0
Y2 = 2160
End
End
Begin ComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 8
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":0054
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":036E
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":0688
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":09A2
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":0CBC
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":0FD6
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":12F0
Key = ""
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":14CA
Key = ""
EndProperty
EndProperty
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
Const COMMANDLINE = "CommandLine="
Dim curPiont As Long
Dim oldStabWidth As Long
Dim oldStabHeight As Long
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
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
End Sub
Private Sub HScroll1_Change()
mPic.Cls
drawFrequency mPic, HScroll1.Value
If Line1.Visible Then
curPiont = xToIndex(Line1.x1, 3)
drawPiont curPiont, 3
End If
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_LinkExecute(CmdStr As String, Cancel As Integer)
'Static lngCount As Long
'Dim Info As String
'
'Select Case CmdStr
' Case "Max"
' Me.WindowState = 2
' Info = Info + vbNewLine + "窗体已被最大化"
' Case "ShowTime"
' Info = Info + vbNewLine + "最后一次运行这个程序的时间是：" + Str(Now)
' Case "Count"
' lngCount = lngCount + 1
' Info = Info + vbNewLine + "你已经第" + Str(lngCount) + "次重复调用这个程序。" _
' + vbNewLine + "但怕您不多给工资，所以只运行了一个 ^_^"
'
'End Select
'
'If Left(CmdStr, Len(COMMANDLINE)) = COMMANDLINE Then
' Info = Info + vbNewLine + "新程序曾以命令行形式运行" + vbNewLine + "命令行为：" _
' + vbNewLine + Right(CmdStr, Len(CmdStr) - Len(COMMANDLINE))
'End If
'
'
'MsgBox Info
'
'Cancel = False
End Sub
Private Sub Form_Load()
If App.PrevInstance Then ' 程序是否已经运行
'
' Me.LinkTopic = "" '这两行用于清除新运行的程序的DDE服务器属性，
' Me.LinkMode = 0 '否则在连接DDE程序时会出乱子的
' LinkAndSendMessage "Max"
' If Command <> "" Then '如果有命令行参数，就传递过去
' LinkAndSendMessage COMMANDLINE + Command
' End If
' '结束新程序的运行
End
End If
PicFlag = 1
Set mList = Me.ListDde
Set mPic = Me.PicMain
Set mDialog = Me.CommonDialog1
ResizeInit Me
iniRep
setForm
End Sub
Private Sub LinkAndSendMessage(ByVal msg As String)
'Dim t As Long
'PicMain.LinkMode = 0 '
'PicMain.LinkTopic = App.EXEName & "|FormDDE" ' |______连接DDE程序并发送数据/参数"
'PicMain.LinkMode = 2
'PicMain.LinkExecute msg
'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -