Skip to content
This repository was archived by the owner on Jan 21, 2026. It is now read-only.

Commit d40b0ea

Browse files
njzjznjzjz
committed
美化主界面
1 parent 26a2f21 commit d40b0ea

File tree

4 files changed

+187
-99
lines changed

4 files changed

+187
-99
lines changed

‎Chemistry.vbp‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -30,7 +30,7 @@ Description="Chemical Tools"
3030
CompatibleMode="0"
3131
MajorVer=2
3232
MinorVer=1
33-
RevisionVer=20
33+
RevisionVer=21
3434
AutoIncrementVer=1
3535
ServerSupportFiles=0
3636
VersionCompanyName="����ʦ����ѧ�Ŷ�һ��"

‎image/ic_launcher.ico‎

-1.12 KB
Binary file not shown.

‎main.frm‎

Lines changed: 186 additions & 98 deletions
Original file line numberDiff line numberDiff line change
@@ -2,90 +2,191 @@ VERSION 5.00
22
Begin VB.Form frmMain
33
BackColor = &H00C0FFFF&
44
BorderStyle = 0 'None
5-
Caption = "化学e+ Designed by 团队一号"
6-
ClientHeight = 5535
5+
Caption = "化学e+"
6+
ClientHeight = 5895
77
ClientLeft = 0
88
ClientTop = 0
9-
ClientWidth = 7425
9+
ClientWidth = 8235
1010
Icon = "main.frx":0000
1111
LinkTopic = "Form1"
1212
MaxButton = 0 'False
13-
ScaleHeight = 5535
14-
ScaleWidth = 7425
13+
ScaleHeight = 5895
14+
ScaleWidth = 8235
1515
StartUpPosition = 1 '所有者中心
16-
Begin VB.Timer tmrFangke
17-
Left = 6480
18-
Top = 5040
19-
End
20-
Begin VB.Timer tmrLogin
21-
Left = 6960
22-
Top = 5040
23-
End
24-
Begin VB.CommandButton cmdGas
25-
Caption = "气体计算"
26-
Height = 615
27-
Left = 2880
16+
Begin VB.CommandButton cmdfrmOpen
17+
BackColor = &H00FFFFFF&
18+
Caption = "关于"
19+
BeginProperty Font
20+
Name = "微软雅黑"
21+
Size = 12
22+
Charset = 134
23+
Weight = 400
24+
Underline = 0 'False
25+
Italic = 0 'False
26+
Strikethrough = 0 'False
27+
EndProperty
28+
Height = 1215
29+
Index = 7
30+
Left = 6240
31+
Picture = "main.frx":1084A
32+
Style = 1 'Graphical
2833
TabIndex = 8
29-
Top = 3720
34+
Top = 4440
3035
Width = 1455
3136
End
32-
Begin VB.CommandButton cmdRelixue
33-
Caption = "热力学计算"
34-
Height = 615
35-
Left = 720
37+
Begin VB.CommandButton cmdfrmOpen
38+
BackColor = &H00FFFFFF&
39+
Caption = "切换用户"
40+
BeginProperty Font
41+
Name = "微软雅黑"
42+
Size = 12
43+
Charset = 134
44+
Weight = 400
45+
Underline = 0 'False
46+
Italic = 0 'False
47+
Strikethrough = 0 'False
48+
EndProperty
49+
Height = 1215
50+
Index = 6
51+
Left = 4320
52+
Picture = "main.frx":2BEDC
53+
Style = 1 'Graphical
3654
TabIndex = 7
37-
Top = 3720
55+
Top = 4440
3856
Width = 1455
3957
End
40-
Begin VB.CommandButton cmdpH
41-
BackColor = &H00C0FFFF&
42-
Caption = "酸碱计算"
43-
Height = 615
44-
Left = 5040
58+
Begin VB.CommandButton cmdfrmOpen
59+
BackColor = &H00FFFFFF&
60+
Caption = "元素记忆"
61+
BeginProperty Font
62+
Name = "微软雅黑"
63+
Size = 12
64+
Charset = 134
65+
Weight = 400
66+
Underline = 0 'False
67+
Italic = 0 'False
68+
Strikethrough = 0 'False
69+
EndProperty
70+
Height = 1215
71+
Index = 5
72+
Left = 2400
73+
Picture = "main.frx":4756E
74+
Style = 1 'Graphical
4575
TabIndex = 6
46-
Top = 2880
76+
Top = 4440
4777
Width = 1455
4878
End
49-
Begin VB.CommandButton cmdSignOut
50-
Caption = "切换用户"
51-
Height = 615
52-
Left = 1680
79+
Begin VB.CommandButton cmdfrmOpen
80+
BackColor = &H00FFFFFF&
81+
Caption = "气体计算"
82+
BeginProperty Font
83+
Name = "微软雅黑"
84+
Size = 12
85+
Charset = 134
86+
Weight = 400
87+
Underline = 0 'False
88+
Italic = 0 'False
89+
Strikethrough = 0 'False
90+
EndProperty
91+
Height = 1215
92+
Index = 4
93+
Left = 480
94+
Picture = "main.frx":62C00
95+
Style = 1 'Graphical
5396
TabIndex = 5
54-
Top = 4560
97+
Top = 4440
5598
Width = 1455
5699
End
57-
Begin VB.CommandButton cmdfrmAbout
58-
Caption = "关于"
59-
Height = 615
60-
Left = 4080
100+
Begin VB.CommandButton cmdfrmOpen
101+
BackColor = &H00FFFFFF&
102+
Caption = "热力学计算"
103+
BeginProperty Font
104+
Name = "微软雅黑"
105+
Size = 12
106+
Charset = 134
107+
Weight = 400
108+
Underline = 0 'False
109+
Italic = 0 'False
110+
Strikethrough = 0 'False
111+
EndProperty
112+
Height = 1215
113+
Index = 3
114+
Left = 6240
115+
Picture = "main.frx":7E292
116+
Style = 1 'Graphical
61117
TabIndex = 4
62-
Top = 4560
118+
Top = 3000
63119
Width = 1455
64120
End
65-
Begin VB.CommandButton cmdfrmExam
66-
Caption = "元素记忆"
67-
Height = 615
68-
Left = 5040
121+
Begin VB.CommandButton cmdfrmOpen
122+
BackColor = &H00FFFFFF&
123+
Caption = "酸碱计算"
124+
BeginProperty Font
125+
Name = "微软雅黑"
126+
Size = 12
127+
Charset = 134
128+
Weight = 400
129+
Underline = 0 'False
130+
Italic = 0 'False
131+
Strikethrough = 0 'False
132+
EndProperty
133+
Height = 1215
134+
Index = 2
135+
Left = 4320
136+
Picture = "main.frx":99924
137+
Style = 1 'Graphical
69138
TabIndex = 3
70-
Top = 3720
139+
Top = 3000
71140
Width = 1455
72141
End
73-
Begin VB.CommandButton cmdfrmElement
74-
BackColor = &H00C0FFFF&
75-
Caption = "元素查询"
76-
Height = 615
77-
Left = 720
78-
Picture = "main.frx":1084A
79-
TabIndex = 1
80-
Top = 2880
81-
Width = 1455
82-
End
83-
Begin VB.CommandButton cmdfrmMass
142+
Begin VB.CommandButton cmdfrmOpen
143+
BackColor = &H00FFFFFF&
84144
Caption = "质量计算"
85-
Height = 615
86-
Left = 2880
145+
BeginProperty Font
146+
Name = "微软雅黑"
147+
Size = 12
148+
Charset = 134
149+
Weight = 400
150+
Underline = 0 'False
151+
Italic = 0 'False
152+
Strikethrough = 0 'False
153+
EndProperty
154+
Height = 1215
155+
Index = 1
156+
Left = 2400
157+
Picture = "main.frx":B4FB6
158+
Style = 1 'Graphical
87159
TabIndex = 2
88-
Top = 2880
160+
Top = 3000
161+
Width = 1455
162+
End
163+
Begin VB.Timer tmrFangke
164+
Left = 6000
165+
Top = 2160
166+
End
167+
Begin VB.Timer tmrLogin
168+
Left = 6480
169+
Top = 2160
170+
End
171+
Begin VB.CommandButton cmdfrmOpen
172+
BackColor = &H00FFFFFF&
173+
Caption = "元素查询"
174+
BeginProperty Font
175+
Name = "微软雅黑"
176+
Size = 12
177+
Charset = 134
178+
Weight = 400
179+
Underline = 0 'False
180+
Italic = 0 'False
181+
Strikethrough = 0 'False
182+
EndProperty
183+
Height = 1215
184+
Index = 0
185+
Left = 480
186+
Picture = "main.frx":D0648
187+
Style = 1 'Graphical
188+
TabIndex = 1
189+
Top = 3000
89190
Width = 1455
90191
End
91192
Begin VB.Label lblWelcome
@@ -103,25 +204,25 @@ Begin VB.Form frmMain
103204
Height = 495
104205
Left = 600
105206
TabIndex = 0
106-
Top = 2280
207+
Top = 2520
107208
Width = 6495
108209
End
109210
Begin VB.Image imgClose
110211
Height = 450
111-
Left = 6960
112-
Picture = "main.frx":2BEDC
212+
Left = 7800
213+
Picture = "main.frx":EBCDA
113214
Stretch = -1 'True
114215
Top = 0
115216
Width = 450
116217
End
117218
Begin VB.Image imgTitle
118219
Appearance = 0 'Flat
119-
Height = 2145
220+
Height = 2385
120221
Left = 0
121-
Picture = "main.frx":2D7D4
222+
Picture = "main.frx":ED5D2
122223
Stretch = -1 'True
123224
Top = 0
124-
Width = 7575
225+
Width = 8295
125226
End
126227
End
127228
Attribute VB_Name = "frmMain"
@@ -130,40 +231,27 @@ Attribute VB_Creatable = False
130231
Attribute VB_PredeclaredId = True
131232
Attribute VB_Exposed = False
132233

133-
Private Sub cmdfrmAbout_Click()
134-
Load frmAbout
135-
frmAbout.Show 1, Me
136-
End Sub
137-
138-
Private Sub cmdfrmElement_Click()
139-
Load frmElement
140-
frmElement.Show
141-
End Sub
142-
143-
Private Sub cmdfrmExam_Click()
144-
Load frmExam
145-
frmExam.Show
146-
End Sub
147-
148-
Private Sub cmdfrmmass_Click()
149-
Load frmMass
150-
frmMass.Show
151-
End Sub
152-
153-
Private Sub cmdGas_Click()
154-
Load frmGas
155-
frmGas.Show
234+
Private Sub cmdfrmOpen_Click(Index As Integer)
235+
Select Case Index
236+
Case 0
237+
frmElement.Show
238+
Case 1
239+
frmMass.Show
240+
Case 2
241+
frmpH.Show
242+
Case 3
243+
frmThermodynamics.Show
244+
Case 4
245+
frmGas.Show
246+
Case 5
247+
frmExam.Show
248+
Case 6
249+
frmLogin.Show
250+
Case 7
251+
frmAbout.Show 1, Me
252+
End Select
156253
End Sub
157254

158-
Private Sub cmdpH_Click()
159-
Load frmpH
160-
frmpH.Show
161-
End Sub
162-
163-
Private Sub cmdRelixue_Click()
164-
Load frmThermodynamics
165-
frmThermodynamics.Show
166-
End Sub
167255

168256
Private Sub cmdSignOut_Click()
169257
'dataSignOut
@@ -175,9 +263,9 @@ End Sub
175263
Private Sub Form_Load()
176264
lblWelcome = "欢迎" & getNickname() & "第" & str(DataUseNumber) & "次使用化学e+！"
177265
If DataUsername = "访客" Or DataUsername = "" Then
178-
cmdSignOut.Caption = "登陆"
266+
cmdfrmOpen(6).Caption = "登陆"
179267
Else
180-
cmdSignOut.Caption = "切换用户"
268+
cmdfrmOpen(6).Caption = "切换用户"
181269
End If
182270
'Call UIAddIcon
183271
End Sub

‎main.frx‎

767 KB
Binary file not shown.

0 commit comments

Comments
 (0)