📄 frmadconfig.frm
字号:
Height = 255
Index = 0
Left = 2040
TabIndex = 2
Top = 1560
Width = 255
End
Begin VB.CommandButton cmdCutLine
Caption = "<"
Height = 255
Index = 0
Left = 2040
TabIndex = 1
Top = 1080
Width = 255
End
Begin VB.Label Label5
Caption = "第三轴轴号："
Height = 255
Index = 2
Left = -74280
TabIndex = 83
Top = 2880
Width = 1095
End
Begin VB.Label Label5
Caption = "第二轴轴号："
Height = 255
Index = 1
Left = -74280
TabIndex = 82
Top = 2040
Width = 1095
End
Begin VB.Label Label5
Caption = "第一轴轴号："
Height = 255
Index = 0
Left = -74280
TabIndex = 80
Top = 1200
Width = 1095
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "寻点"
Height = 180
Index = 5
Left = 360
TabIndex = 48
Top = 3480
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "上下"
Height = 180
Index = 4
Left = 360
TabIndex = 47
Top = 3000
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "洗弧"
Height = 180
Index = 3
Left = 360
TabIndex = 46
Top = 2520
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "洗线"
Height = 180
Index = 2
Left = 360
TabIndex = 45
Top = 2040
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "切弧"
Height = 180
Index = 1
Left = 360
TabIndex = 44
Top = 1560
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "切线"
Height = 180
Index = 0
Left = 360
TabIndex = 43
Top = 1080
Width = 360
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = "∞"
Height = 255
Index = 5
Left = 5280
TabIndex = 30
Top = 3480
Width = 615
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = "∞"
Height = 255
Index = 4
Left = 5280
TabIndex = 29
Top = 3000
Width = 615
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = "∞"
Height = 255
Index = 3
Left = 5280
TabIndex = 28
Top = 2520
Width = 615
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = "∞"
Height = 255
Index = 2
Left = 5280
TabIndex = 27
Top = 2040
Width = 615
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = "∞"
Height = 255
Index = 1
Left = 5280
TabIndex = 26
Top = 1560
Width = 615
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = "∞"
Height = 255
Index = 0
Left = 5280
TabIndex = 25
Top = 1080
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "0"
Height = 255
Index = 5
Left = 1320
TabIndex = 24
Top = 3480
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "0"
Height = 255
Index = 4
Left = 1320
TabIndex = 23
Top = 3000
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "0"
Height = 255
Index = 3
Left = 1320
TabIndex = 22
Top = 2520
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "0"
Height = 255
Index = 2
Left = 1320
TabIndex = 21
Top = 2040
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "0"
Height = 255
Index = 1
Left = 1320
TabIndex = 20
Top = 1560
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "0"
Height = 255
Index = 0
Left = 1320
TabIndex = 19
Top = 1080
Width = 615
End
End
End
Attribute VB_Name = "frmAdConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCutArc_Click(index As Integer)
If index < 2 Then
CutArcSpeedNode(index) = CombCutArcSpeedNode(index).Text
End If
frmProcessSpeedInput.LblUse.Caption = "切弧线"
If index = 0 Then
frmProcessSpeedInput.LblRegion.Caption = "0 ---- " & CutArcSpeedNode(0)
End If
If index = 1 Then
frmProcessSpeedInput.LblRegion.Caption = CutArcSpeedNode(0) & " ---- " & CutLineSpeedNode(1)
End If
If index = 2 Then
frmProcessSpeedInput.LblRegion.Caption = CutArcSpeedNode(1) & " ---- ∞"
End If
frmProcessSpeedInput.Show
End Sub
Private Sub cmdCutLine_Click(index As Integer)
If index < 2 Then
CutLineSpeedNode(index) = CombCutLineSpeedNode(index).Text
End If
frmProcessSpeedInput.LblUse.Caption = "切直线"
If index = 0 Then
frmProcessSpeedInput.LblRegion.Caption = "0 ---- " & CutLineSpeedNode(0)
End If
If index = 1 Then
frmProcessSpeedInput.LblRegion.Caption = CutLineSpeedNode(0) & " ---- " & CutLineSpeedNode(1)
End If
If index = 2 Then
frmProcessSpeedInput.LblRegion.Caption = CutLineSpeedNode(1) & " ---- ∞"
End If
frmProcessSpeedInput.lblParam.Caption = index
frmProcessSpeedInput.Show
End Sub
Private Sub CmdFindPoint_Click(index As Integer)
If index < 2 Then
FindPointSpeedNode(index) = CombFindPointSpeedNode(index).Text
End If
frmProcessSpeedInput.LblUse.Caption = "寻点"
If index = 0 Then
frmProcessSpeedInput.LblRegion.Caption = "0 ---- " & FindPointSpeedNode(0)
End If
If index = 1 Then
frmProcessSpeedInput.LblRegion.Caption = FindPointSpeedNode(0) & " ---- " & FindPointSpeedNode(1)
End If
If index = 2 Then
frmProcessSpeedInput.LblRegion.Caption = FindPointSpeedNode(1) & " ---- ∞"
End If
frmProcessSpeedInput.Show
End Sub
Private Sub CmdPointMove_Click(index As Integer)
If index < 2 Then
UpdownMoveSpeedNode(index) = CombUpdownMoveSpeedNode(index).Text
End If
frmProcessSpeedInput.LblUse.Caption = "提放刀"
If index = 0 Then
frmProcessSpeedInput.LblRegion.Caption = "0 ---- " & UpdownMoveSpeedNode(0)
End If
If index = 1 Then
frmProcessSpeedInput.LblRegion.Caption = UpdownMoveSpeedNode(0) & " ---- " & UpdownMoveSpeedNode(1)
End If
If index = 2 Then
frmProcessSpeedInput.LblRegion.Caption = UpdownMoveSpeedNode(1) & " ---- ∞"
End If
frmProcessSpeedInput.Show
End Sub
Private Sub CmdWashArc_Click(index As Integer)
If index < 2 Then
WashArcSpeedNode(index) = CombWashArcSpeedNode(index).Text
End If
frmProcessSpeedInput.LblUse.Caption = "洗弧线"
If index = 0 Then
frmProcessSpeedInput.LblRegion.Caption = "0 ---- " & WashArcSpeedNode(0)
End If
If index = 1 Then
frmProcessSpeedInput.LblRegion.Caption = WashArcSpeedNode(0) & " ---- " & WashArcSpeedNode(1)
End If
If index = 2 Then
frmProcessSpeedInput.LblRegion.Caption = WashArcSpeedNode(1) & " ---- ∞"
End If
frmProcessSpeedInput.Show
End Sub
Private Sub CmdWashLine_Click(index As Integer)
If index < 2 Then
WashLineSpeedNode(index) = CombWashLineSpeedNode(index).Text
End If
frmProcessSpeedInput.LblUse.Caption = "洗直线"
If index = 0 Then
frmProcessSpeedInput.LblRegion.Caption = "0 ---- " & WashLineSpeedNode(0)
End If
If index = 1 Then
frmProcessSpeedInput.LblRegion.Caption = WashLineSpeedNode(0) & " ---- " & WashLineSpeedNode(1)
End If
If index = 2 Then
frmProcessSpeedInput.LblRegion.Caption = WashLineSpeedNode(1) & " ---- ∞"
End If
frmProcessSpeedInput.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -