📄 form1.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form1
BorderStyle = 3 'Fixed Dialog
Caption = "图框编辑"
ClientHeight = 3540
ClientLeft = 45
ClientTop = 330
ClientWidth = 4335
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3540
ScaleWidth = 4335
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin MSComDlg.CommonDialog FileDiag
Left = 120
Top = 3000
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "零件文件(*.CATPart)|*.CATPart|所有文件(*.*)|*.*"
End
Begin VB.Frame Frame2
Caption = "插入图框："
Height = 1575
Left = 60
TabIndex = 14
Top = 1380
Width = 4215
Begin VB.TextBox txtCheckDate
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 315
Left = 2640
TabIndex = 9
Top = 1020
Width = 1275
End
Begin VB.TextBox txtAPPRDate
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 315
Left = 2640
TabIndex = 7
Top = 660
Width = 1275
End
Begin VB.TextBox txtCheckBy
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 315
Left = 780
TabIndex = 8
Text = "李四"
Top = 1020
Width = 1275
End
Begin VB.TextBox txtAPPR
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 315
Left = 780
TabIndex = 6
Text = "张三"
Top = 660
Width = 1275
End
Begin VB.TextBox txtTitle
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 315
Left = 780
TabIndex = 5
Text = "图框编辑示例"
Top = 300
Width = 3135
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "日期："
Height = 180
Left = 2100
TabIndex = 19
Top = 1080
Width = 540
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "日期："
Height = 180
Left = 2100
TabIndex = 18
Top = 720
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "检查："
Height = 180
Left = 240
TabIndex = 17
Top = 1080
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "审核："
Height = 180
Left = 240
TabIndex = 16
Top = 720
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "标题："
Height = 180
Left = 240
TabIndex = 15
Top = 360
Width = 540
End
End
Begin VB.Frame Frame1
Caption = "生成视图："
Height = 795
Left = 60
TabIndex = 13
Top = 480
Width = 4215
Begin VB.CheckBox chkTopView
Caption = "顶视图"
Height = 495
Left = 2940
TabIndex = 4
Top = 180
Value = 1 'Checked
Width = 1035
End
Begin VB.CheckBox chkLeftView
Caption = "左视图"
Height = 495
Left = 1620
TabIndex = 3
Top = 180
Value = 1 'Checked
Width = 1035
End
Begin VB.CheckBox chkFrontView
Caption = "主视图"
Enabled = 0 'False
Height = 495
Left = 300
TabIndex = 2
Top = 180
Value = 1 'Checked
Width = 975
End
End
Begin VB.TextBox txtFile
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 315
Left = 60
Locked = -1 'True
TabIndex = 0
Text = "未选择文件"
Top = 60
Width = 2955
End
Begin VB.CommandButton cmdComfirm
Caption = "确定(&O)"
Default = -1 'True
Height = 375
Left = 1200
TabIndex = 10
Top = 3060
Width = 975
End
Begin VB.CommandButton cmdApply
Caption = "应用(&A)"
Height = 375
Left = 3240
TabIndex = 12
Top = 3060
Width = 975
End
Begin VB.CommandButton cmdCancel
Caption = "取消(&C)"
Height = 375
Left = 2220
TabIndex = 11
Top = 3060
Width = 975
End
Begin VB.CommandButton cmdFile
Caption = "选择文件..."
Height = 315
Left = 3060
TabIndex = 1
Top = 60
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'应用按纽
Private Sub cmdApply_Click()
'若图形已生成则修改图形
If bDrawingHasGened Then
InitVars
ModifyText
ModifyViews
'图形未生成，检查零件文件是否已选
ElseIf bFileSelected Then
InitVars
GenNewSheet
ModifyText
'零件文件未选择，提示用户
Else
MsgBox "请选择零件文档！", vbCritical
End If
End Sub
'取消按钮
Private Sub cmdCancel_Click()
Unload Me
End Sub
'确定按钮
Private Sub cmdComfirm_Click()
'若图形已生成则修改图形
If bDrawingHasGened Then
InitVars
ModifyViews
ModifyText
Unload Me
'图形未生成，检查零件文件是否已选
ElseIf bFileSelected Then
InitVars
GenNewSheet
ModifyText
Unload Me
'零件文件未选择，提示用户
Else
MsgBox "请选择零件文档！", vbCritical
End If
End Sub
'选择文件按钮
Private Sub cmdFile_Click()
FileDiag.FileName = ""
FileDiag.ShowOpen
If FileDiag.FileName <> "" Then
txtFile.Text = FileDiag.FileName
bFileSelected = True
End If
End Sub
Private Sub Form_Load()
MakeMeOnTop Me.hwnd
Me.Move Screen.Width - Me.Width - 1000, Screen.Height - Me.Height - 1000
Me.Show
txtAPPRDate.Text = Date
txtCheckDate.Text = Date
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -