-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathForm9.frm
192 lines (192 loc) · 6.29 KB
/
Form9.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
VERSION 5.00
Begin VB.Form Form9
Caption = "Form9"
ClientHeight = 3135
ClientLeft = 60
ClientTop = 405
ClientWidth = 4680
LinkTopic = "Form9"
ScaleHeight = 12495
ScaleWidth = 22920
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.CommandButton Command1
Caption = "返回"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 11000
TabIndex = 8
Top = 10000
Width = 2500
End
Begin VB.Frame Frame1
Caption = "设计流程"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 8100
Left = 12000
TabIndex = 0
Top = 1000
Width = 10500
Begin VB.Label Label7
Caption = "7、 确定毛边槽形式：h=1.6mm，h1=4mm，b=8mm，b1=25mm，r=1mm，投影面积126mm^2。"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1000
Left = 500
TabIndex = 7
Top = 6200
Width = 9500
End
Begin VB.Label Label6
Caption = "6、 确定锻锤吨位：根据公式计算可知，G=αβF=720kg，选用1t锻锤。"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 800
Left = 500
TabIndex = 6
Top = 5200
Width = 9500
End
Begin VB.Label Label5
Caption = $"Form9.frx":0000
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1500
Left = 500
TabIndex = 5
Top = 3800
Width = 9500
End
Begin VB.Label Label4
Caption = "4、 确定圆角半径：锻件高度余量为1.15mm，则需要倒角的圆角半径为3.15mm，取3mm，其余部位圆角半径取1.5mm。"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1000
Left = 500
TabIndex = 4
Top = 3000
Width = 9500
End
Begin VB.Label Label3
Caption = "3、 确定模锻斜度：技术要求注明模锻斜度7°。"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 500
Left = 500
TabIndex = 3
Top = 2500
Width = 6735
End
Begin VB.Label Label2
Caption = $"Form9.frx":00E5
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1000
Left = 500
TabIndex = 2
Top = 1500
Width = 9500
End
Begin VB.Label Label1
Caption = "1、 确定分模位置：上下对称的直线分模"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 500
Left = 500
TabIndex = 1
Top = 1000
Width = 6000
End
End
Begin VB.Image Image1
Height = 5295
Left = 120
Top = 1200
Width = 8775
End
End
Attribute VB_Name = "Form9"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\7.jpg")
Image1.Stretch = False
End Sub
Private Sub Command1_Click()
form1.Show
form2.Hide
form3.Hide
form4.Hide
Form5.Hide
Form6.Hide
Form7.Hide
Form8.Hide
Form9.Hide
End Sub