📄 mditest.frm
字号:
VERSION 4.00
Begin VB.MDIForm mdifomtest
BackColor = &H8000000C&
Caption = "AutoTest - 多台5101B"
ClientHeight = 2715
ClientLeft = 15
ClientTop = 660
ClientWidth = 9540
Height = 3405
Left = -45
LinkTopic = "MDIForm1"
Top = 30
Width = 9660
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 500
Left = 5760
Top = 1680
End
Begin VB.PictureBox Picstatue
Align = 2 'Align Bottom
DrawMode = 1 'Blackness
FillStyle = 0 'Solid
BeginProperty Font
name = "宋体"
charset = 1
weight = 400
size = 11.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 0
ScaleHeight = 240
ScaleWidth = 9480
TabIndex = 1
Top = 2415
Width = 9540
End
Begin VB.PictureBox Picture1
Align = 1 'Align Top
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 615
Left = 0
ScaleHeight = 615
ScaleWidth = 9540
TabIndex = 0
Top = 0
Width = 9540
Begin VB.Label lblToolTip
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
BeginProperty Font
name = "宋体"
charset = 1
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 240
Left = 3720
TabIndex = 2
Top = 120
Visible = 0 'False
Width = 150
End
Begin VB.Image imgadds2
Height = 330
Left = 2430
Picture = "MDITEST.frx":0000
Top = 100
Visible = 0 'False
Width = 615
End
Begin VB.Image imgadds1
Height = 330
Left = 2430
Picture = "MDITEST.frx":0AEC
Top = 100
Width = 615
End
Begin VB.Image imgpaste2
Height = 330
Left = 1770
Picture = "MDITEST.frx":15D8
Top = 105
Visible = 0 'False
Width = 345
End
Begin VB.Image imgpaste1
Height = 330
Left = 1770
Picture = "MDITEST.frx":1C4C
Top = 105
Width = 345
End
Begin VB.Image imgcopy2
Height = 330
Left = 1420
Picture = "MDITEST.frx":22C0
Top = 105
Visible = 0 'False
Width = 345
End
Begin VB.Image imgcopy1
Height = 330
Left = 1420
Picture = "MDITEST.frx":2934
Top = 105
Width = 345
End
Begin VB.Image imgcut2
Height = 330
Left = 1080
Picture = "MDITEST.frx":2FA8
Top = 105
Visible = 0 'False
Width = 345
End
Begin VB.Image imgcut1
Height = 330
Left = 1080
Picture = "MDITEST.frx":361C
Top = 105
Width = 345
End
Begin VB.Image imgsave2
Height = 315
Left = 460
Picture = "MDITEST.frx":3C90
Top = 100
Visible = 0 'False
Width = 345
End
Begin VB.Image imgopen2
Height = 315
Left = 120
Picture = "MDITEST.frx":42BC
Top = 100
Visible = 0 'False
Width = 345
End
Begin VB.Image imgsave1
Height = 315
Left = 460
Picture = "MDITEST.frx":48E8
Top = 100
Width = 345
End
Begin VB.Image imgopen1
Height = 315
Left = 120
Picture = "MDITEST.frx":4F14
Top = 100
Width = 345
End
End
Begin MSComDlg.CommonDialog cmndilgsave
Left = 5760
Top = 1080
_version = 65536
_extentx = 847
_extenty = 847
_stockprops = 0
cancelerror = -1 'True
End
Begin MSComDlg.CommonDialog cmndilgopen
Left = 5760
Top = 600
_version = 65536
_extentx = 847
_extenty = 847
_stockprops = 0
cancelerror = -1 'True
End
Begin VB.Menu mnufile
Caption = "&File"
Begin VB.Menu mnuopen
Caption = "Open"
End
Begin VB.Menu mnusave
Caption = "Save As"
Enabled = 0 'False
End
Begin VB.Menu mnuquit
Caption = "Quit"
End
End
Begin VB.Menu mnuedit
Caption = "&Edit"
Begin VB.Menu mnucopy
Caption = "Copy"
Shortcut = ^C
End
Begin VB.Menu mnucut
Caption = "Cut"
Shortcut = ^X
End
Begin VB.Menu mnupaste
Caption = "Paste"
Shortcut = ^V
End
End
Begin VB.Menu mnumeasure
Caption = "&Measure"
Begin VB.Menu mnumsinpadds
Caption = "InpAdds"
End
Begin VB.Menu mnumsdcv
Caption = "DCV"
Enabled = 0 'False
End
Begin VB.Menu mnumsacv
Caption = "ACV"
Enabled = 0 'False
Begin VB.Menu mnumsacvL
Caption = "< 100 V"
End
Begin VB.Menu mnumsacvH
Caption = "> 100 V"
End
End
Begin VB.Menu mnumsohm
Caption = "OHM"
Enabled = 0 'False
End
Begin VB.Menu mnumsdci
Caption = "DCI"
Enabled = 0 'False
End
Begin VB.Menu mnumsaci
Caption = "ACI"
Enabled = 0 'False
End
End
Begin VB.Menu mnucheck
Caption = "&Check"
Begin VB.Menu mnuchinpadds
Caption = "InpAdds"
End
Begin VB.Menu mnuchdcv
Caption = "DCV"
Enabled = 0 'False
End
Begin VB.Menu mnuchacv
Caption = "ACV"
Enabled = 0 'False
End
Begin VB.Menu mnuchohm
Caption = "OHM"
Enabled = 0 'False
End
Begin VB.Menu mnuchdci
Caption = "DCI"
Enabled = 0 'False
End
Begin VB.Menu separate
Caption = "-"
End
Begin VB.Menu mnuoutspec
Caption = "OutSpec"
End
End
Begin VB.Menu mnuspec
Caption = "&Specification"
Begin VB.Menu mnuspc1
Caption = "6 months"
End
End
Begin VB.Menu mnuwindow
Caption = "&Window"
WindowList = -1 'True
Begin VB.Menu mnucascade
Caption = "&Cascade"
End
Begin VB.Menu mnutileh
Caption = "&Tile H"
End
Begin VB.Menu mnutilev
Caption = "&Tile V"
End
End
Begin VB.Menu mnuabout
Caption = "&About"
End
End
Attribute VB_Name = "mdifomtest"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Option Base 1
Dim order As String
Dim data As String
Dim xl As Excel.Application
Dim xlwb As Excel.Workbook
Dim ToolTipflag As Integer
Sub ShowTip()
Select Case ToolTipflag
' Display the tooltip for the open toolbar button
Case Is = 1
lblToolTip.Top = imgopen1.Top * 3
lblToolTip.Left = imgopen1.Left + 200
lblToolTip.Caption = "打开"
lblToolTip.Visible = True
' Display the tooltip for the save toolbar button
Case Is = 2
lblToolTip.Top = imgsave1.Top * 3
lblToolTip.Left = imgsave1.Left + 200
lblToolTip.Caption = "存盘"
lblToolTip.Visible = True
' Display the tooltip for the cut toolbar button
Case Is = 3
lblToolTip.Top = imgcut1.Top * 3
lblToolTip.Left = imgcut1.Left + 200
lblToolTip.Caption = "剪切"
lblToolTip.Visible = True
' Display the tooltip for the copy toolbar button
Case Is = 4
lblToolTip.Top = imgcopy1.Top * 3
lblToolTip.Left = imgcopy1.Left + 200
lblToolTip.Caption = "复制"
lblToolTip.Visible = True
' Display the tooltip for the paste toolbar button
Case Is = 5
lblToolTip.Top = imgpaste1.Top * 3
lblToolTip.Left = imgpaste1.Left + 200
lblToolTip.Caption = "粘贴"
lblToolTip.Visible = True
' Display the tooltip for the paste toolbar button
Case Is = 6
lblToolTip.Top = imgadds1.Top * 3
lblToolTip.Left = imgadds1.Left + 500
lblToolTip.Caption = "输入地址"
lblToolTip.Visible = True
End Select
End Sub
Private Sub cmdinpadds_Click()
mnumsinpadds_Click
End Sub
Private Sub cmdinpadds_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ToolTipflag = 6
Timer1.Enabled = True
End Sub
Private Sub imgadds1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgadds2.Visible = True
imgadds1.Visible = False
End Sub
Private Sub imgadds1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ToolTipflag = 6
Timer1.Enabled = True
End Sub
Private Sub imgadds2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgadds1.Visible = True
imgadds2.Visible = False
If mnumsinpadds.Visible = True Then
mnumsinpadds_Click
End If
End Sub
Private Sub imgcopy1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgcopy2.Visible = True
imgcopy1.Visible = False
End Sub
Private Sub imgcopy1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ToolTipflag = 4
Timer1.Enabled = True
End Sub
Private Sub imgcopy2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgcopy1.Visible = True
imgcopy2.Visible = False
If mnucopy.Enabled = True Then
mnucopy_Click
End If
End Sub
Private Sub imgcut1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgcut2.Visible = True
imgcut1.Visible = False
End Sub
Private Sub imgcut1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ToolTipflag = 3
Timer1.Enabled = True
End Sub
Private Sub imgcut2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgcut1.Visible = True
imgcut2.Visible = False
If mnucut.Enabled = True Then
mnucut_Click
End If
End Sub
Private Sub imgopen1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgopen2.Visible = True
imgopen1.Visible = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -