-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathForm5.frm
158 lines (158 loc) · 5.09 KB
/
Form5.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
VERSION 5.00
Begin VB.Form Form5
Caption = "Form5"
ClientHeight = 3135
ClientLeft = 60
ClientTop = 405
ClientWidth = 4680
LinkTopic = "Form5"
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 = 1000
Left = 11100
TabIndex = 0
Top = 9500
Width = 2500
End
Begin VB.Label Label6
Caption = "形式Ⅵ称为楔形毛边槽，其特点是终锻时水平方向金属流动愈来愈困难，适用形状更复杂的锻件，缺点是切除毛边困难。"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1000
Left = 12000
TabIndex = 6
Top = 7200
Width = 8000
End
Begin VB.Label Label5
Caption = "形式Ⅴ只用于锻模局部，桥部增设阻尼沟，增加金属向仓部流动阻力，迫使金属流向型槽深处或枝芽处。"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1000
Left = 12000
TabIndex = 5
Top = 6000
Width = 8000
End
Begin VB.Label Label4
Caption = "形式Ⅳ使用对象同形式Ⅲ，由于加宽下模毛边槽桥部，因而提高桥部强度，以避免桥部过快地磨损和过早地压塌。"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1000
Left = 12000
TabIndex = 4
Top = 4800
Width = 8000
End
Begin VB.Label Label3
Caption = "形式Ⅲ适用于形状复杂，坯料体积不易计算准确而往往偏多的锻件，由于增大仓部容积，不至于发生上下模压不靠。"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1000
Left = 12000
TabIndex = 3
Top = 3600
Width = 8000
End
Begin VB.Label Label2
Caption = $"Form5.frx":0000
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1000
Left = 12000
TabIndex = 2
Top = 2400
Width = 8000
End
Begin VB.Label Label1
Caption = "形式Ⅰ是使用最广泛的一种，其优点是桥部设在上模块，与坯料接触时间短，吸收热量少，因而温升少，能减轻桥部磨损或避免压塌。"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1000
Left = 12000
TabIndex = 1
Top = 1200
Width = 8000
End
Begin VB.Image Image1
Height = 2000
Left = 2000
Top = 2500
Width = 2500
End
End
Attribute VB_Name = "Form5"
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 & "\4.jpg")
Image1.Stretch = False
End Sub
Private Sub Command1_Click()
form1.Hide
form2.Show
form3.Hide
form4.Hide
Form5.Hide
Form6.Hide
Form7.Hide
Form8.Hide
Form9.Hide
End Sub