📄 frmmesh.frm
字号:
VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
Begin VB.Form FrmMesh
BorderStyle = 3 'Fixed Dialog
Caption = "三维显示参数"
ClientHeight = 4764
ClientLeft = 36
ClientTop = 324
ClientWidth = 7944
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 397
ScaleMode = 3 'Pixel
ScaleWidth = 662
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox PicturePar
Appearance = 0 'Flat
BackColor = &H80000001&
ForeColor = &H80000008&
Height = 4572
Left = 120
ScaleHeight = 4548
ScaleWidth = 1908
TabIndex = 1
Top = 120
Width = 1932
Begin VB.CommandButton CommandOK
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 11.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
MousePointer = 1 'Arrow
TabIndex = 8
Top = 3120
Width = 1572
End
Begin VB.TextBox TextZ
Height = 375
Left = 120
MaxLength = 10
MousePointer = 3 'I-Beam
TabIndex = 7
Text = "1"
Top = 2160
Width = 1332
End
Begin VB.TextBox TextAngleZ
Height = 375
Left = 120
MaxLength = 5
MousePointer = 3 'I-Beam
TabIndex = 5
Text = "45"
Top = 1320
Width = 1332
End
Begin VB.TextBox TextAngleXY
Height = 375
Left = 120
MaxLength = 5
MousePointer = 3 'I-Beam
TabIndex = 3
Text = "45"
Top = 480
Width = 1332
End
Begin ComCtl2.UpDown UpDownAngleZ
Height = 372
Left = 1440
TabIndex = 9
Top = 1320
Width = 276
_ExtentX = 445
_ExtentY = 656
_Version = 327681
Enabled = -1 'True
End
Begin ComCtl2.UpDown UpDownZ
Height = 372
Left = 1440
TabIndex = 10
Top = 2160
Width = 276
_ExtentX = 445
_ExtentY = 656
_Version = 327681
Enabled = -1 'True
End
Begin ComCtl2.UpDown UpDownAngleXY
Height = 372
Left = 1440
TabIndex = 11
Top = 480
Width = 276
_ExtentX = 445
_ExtentY = 656
_Version = 327681
Enabled = -1 'True
End
Begin VB.Label LabelZ
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Z坐标放大系数"
Height = 252
Left = 120
TabIndex = 6
Top = 1920
Width = 1572
End
Begin VB.Label LabelAngleZ
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "视线俯视角(度)"
Height = 252
Left = 120
TabIndex = 4
Top = 1080
Width = 1572
End
Begin VB.Label LabelAngle
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "视线方位角(度)"
Height = 252
Left = 120
TabIndex = 2
Top = 240
Width = 1572
End
End
Begin VB.PictureBox PictureMeshT
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 4572
Left = 2160
ScaleHeight = 379
ScaleMode = 3 'Pixel
ScaleWidth = 469
TabIndex = 0
Top = 120
Width = 5652
End
End
Attribute VB_Name = "FrmMesh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CommandOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
Call NewFont(1)
Call ReadContouFile(TheContouPath)
TextAngleXY.Text = Format(AngXY, "##0.0")
TextAngleZ.Text = Format(AngZ, "##0.0")
TextZ.Text = Format(KZ, "###0.0####")
Set PictureMesh = PictureMeshT
Call MoveMesh
End Sub
Private Sub Form_Unload(Cancel As Integer)
Erase Xcontou, Ycontou, Zcontou
Erase Zgrid, bZgrid
Erase ID1, ID2, ID3
Erase BorderX, BorderY
Close
End Sub
Private Sub TextAngleXY_Change()
AngXY = Val(TextAngleXY.Text)
End Sub
Private Sub TextAngleXY_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 13) Then
Call MoveMesh
End If
End Sub
Private Sub TextAngleZ_Change()
AngZ = Val(TextAngleZ.Text)
End Sub
Private Sub TextAngleZ_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 13) Then
Call MoveMesh
End If
End Sub
Private Sub TextZ_Change()
KZ = Val(TextZ.Text)
End Sub
Private Sub TextZ_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 13) Then
Call MoveMesh
End If
End Sub
Private Sub UpDownAngleXY_DownClick()
V = Val(TextAngleXY.Text) - 5
If (V > 360) Then V = 0
If (V < 0) Then V = 360
TextAngleXY.Text = Format(V, "##0.0")
Call MoveMesh
End Sub
Private Sub UpDownAngleXY_UpClick()
V = Val(TextAngleXY.Text) + 5
If (V > 360) Then V = 0
If (V < 0) Then V = 360
TextAngleXY.Text = Format(V, "##0.0")
Call MoveMesh
End Sub
Private Sub UpDownAngleZ_DownClick()
V = Val(TextAngleZ.Text) - 5
If (V > 90) Then V = 0
If (V < 0) Then V = 90
TextAngleZ.Text = Format(V, "##0.0")
Call MoveMesh
End Sub
Private Sub UpDownAngleZ_UpClick()
V = Val(TextAngleZ.Text) + 5
If (V > 90) Then V = 0
If (V < 0) Then V = 90
TextAngleZ.Text = Format(V, "##0.0")
Call MoveMesh
End Sub
Private Sub UpDownZ_DownClick()
V = Val(TextZ.Text) - 1
If (V < 0) Then V = 1
TextZ.Text = Format(V, "##0.0")
Call MoveMesh
End Sub
Private Sub UpDownZ_UpClick()
V = Val(TextZ.Text) + 1
If (V < 0) Then V = 1
TextZ.Text = Format(V, "##0.0")
Call MoveMesh
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -