-
Notifications
You must be signed in to change notification settings - Fork 3
/
frmAbout.frm
247 lines (240 loc) · 7.37 KB
/
frmAbout.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
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
VERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 1 'Fixed Single
Caption = "关于"
ClientHeight = 7470
ClientLeft = 45
ClientTop = 375
ClientWidth = 5655
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7470
ScaleWidth = 5655
StartUpPosition = 2 'CenterScreen
Begin VB.Frame fraWrapper
Caption = "特别感谢"
Height = 1935
Left = 120
TabIndex = 3
Top = 4320
Width = 5415
Begin VB.Label labTip
AutoSize = -1 'True
Caption = "GCC 编译器 来自"
Height = 195
Index = 8
Left = 120
TabIndex = 12
Top = 960
Width = 1320
End
Begin VB.Label labLinkGCC
Caption = "http://gcc.gnu.org/"
ForeColor = &H00FF0000&
Height = 195
Left = 120
TabIndex = 11
Top = 1200
Width = 5160
End
Begin VB.Label labTip
AutoSize = -1 'True
Caption = "界面是大致仿造VB6的 （虽然不怎么像233）"
Height = 195
Index = 4
Left = 120
TabIndex = 6
Top = 1560
Width = 3495
End
Begin VB.Label labLink
Caption = "http://www.codejock.com/products/"
ForeColor = &H00FF0000&
Height = 195
Left = 120
TabIndex = 5
Top = 600
Width = 5160
End
Begin VB.Label labTip
AutoSize = -1 'True
Caption = "Codejoke Xtreme Suite Pro 控件集 来自"
Height = 195
Index = 3
Left = 120
TabIndex = 4
Top = 360
Width = 2895
End
End
Begin VB.Label labTip
Caption = " 本程序开源，但是我不希望有人随便改改文本修修界面就把这个软件当成自己的软件发布，请尊重作者的劳动成果。"
Height = 555
Index = 10
Left = 120
TabIndex = 16
Top = 3360
Width = 5400
End
Begin VB.Label labQQGroup
AutoSize = -1 'True
Caption = "554272507"
ForeColor = &H00C00000&
Height = 195
Left = 3000
TabIndex = 15
Top = 7080
Width = 810
End
Begin VB.Label labTip
AutoSize = -1 'True
Caption = "作者活跃的QQ群：Inter.Net，号码："
Height = 195
Index = 9
Left = 120
TabIndex = 14
Top = 7080
Width = 2835
End
Begin VB.Image imgEasterEgg
Height = 1920
Left = 14520
Picture = "frmAbout.frx":0000
ToolTipText = "(#^.^#) 我好想有个女朋友啊..."
Top = 1920
Width = 1920
End
Begin VB.Label labEasterEgg
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "哇哦！你发现了一个小彩蛋！"
Height = 195
Left = 14400
TabIndex = 13
Top = 1440
Width = 2340
End
Begin VB.Label labTip
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "2018年4月5日 于珠海"
Height = 195
Index = 7
Left = 3840
TabIndex = 10
Top = 3960
Width = 1665
End
Begin VB.Label labTip
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "欢迎提出Bug和宝贵意见，作者QQ："
Height = 195
Index = 6
Left = 120
TabIndex = 9
Top = 6720
Width = 2865
End
Begin VB.Label labQQ
AutoSize = -1 'True
Caption = "1257472418"
ForeColor = &H00C00000&
Height = 180
Left = 3000
TabIndex = 8
Top = 6720
Width = 960
End
Begin VB.Label labTip
AutoSize = -1 'True
Caption = "我知道我的UI不好看！我知道我的程序有Bug！"
Height = 195
Index = 5
Left = 120
TabIndex = 7
Top = 6360
Width = 3690
End
Begin VB.Label labTip
BackStyle = 0 'Transparent
Caption = $"frmAbout.frx":1084A
Height = 2460
Index = 2
Left = 120
TabIndex = 2
Top = 960
Width = 5490
End
Begin VB.Label labTip
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "致 敬爱的用户"
Height = 195
Index = 1
Left = 120
TabIndex = 1
Top = 600
Width = 1125
End
Begin VB.Label labTip
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "关于拖控件大法 by 冰棍"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 0
Left = 120
TabIndex = 0
ToolTipText = "emmm..."
Top = 120
Width = 2520
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_KeyPress(KeyAscii As Integer)
'响应Esc键
If KeyAscii = vbKeyEscape Then
Unload Me
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmMain.Enabled = True
End Sub
Private Sub labLink_Click()
Shell "Explorer http://www.codejock.com/products/", vbNormalFocus
End Sub
Private Sub labLinkGCC_Click()
Shell "Explorer http://gcc.gnu.org/", vbNormalFocus
End Sub
Private Sub labQQ_Click()
Clipboard.Clear
Clipboard.SetText "1257472418"
MsgBox "已将QQ号复制到剪贴板。", 64, "提示"
End Sub
Private Sub labQQGroup_Click()
Clipboard.Clear
Clipboard.SetText "554272507"
MsgBox "已将QQ群号复制到剪贴板。", 64, "提示"
End Sub
Private Sub labTip_Click(Index As Integer)
'Guess what's this? (#^.^#)
If Index = 0 Then
SetWindowLong Me.hWnd, GWL_STYLE, GetWindowLong(Me.hWnd, GWL_STYLE) Or WS_THICKFRAME
End If
End Sub