-
Notifications
You must be signed in to change notification settings - Fork 0
/
vw.frm
120 lines (119 loc) · 3.69 KB
/
vw.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
VERSION 5.00
Begin VB.Form vw
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "版权信息"
ClientHeight = 6375
ClientLeft = 45
ClientTop = 375
ClientWidth = 7185
Icon = "vw.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6375
ScaleWidth = 7185
StartUpPosition = 1 '所有者中心
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "未经本人许可,请勿乱载! 请尊重学生的知识产权!"
BeginProperty Font
Name = "华文新魏"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 120
TabIndex = 3
Top = 5400
Width = 6855
End
Begin VB.Image Image3
Height = 2655
Left = 4080
Picture = "vw.frx":068A
Stretch = -1 'True
Top = 2520
Width = 2775
End
Begin VB.Image Image2
Height = 2175
Left = 3960
Picture = "vw.frx":33DC8
Stretch = -1 'True
Top = 240
Width = 3015
End
Begin VB.Image Image1
Height = 2685
Left = 120
Picture = "vw.frx":37409
Stretch = -1 'True
Top = 2520
Width = 3705
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "寓教于乐, 就用CJSoft的 ETB"
BeginProperty Font
Name = "幼圆"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000040&
Height = 1455
Left = 360
TabIndex = 2
Top = 960
Width = 3255
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "作者主页:http://home.chuyihao.com"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 210
Left = 150
TabIndex = 1
Top = 600
Width = 3570
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "编写 by 大连市第三十七中学 CJSoft褚逸豪"
Height = 180
Left = 240
TabIndex = 0
Top = 240
Width = 3510
End
End
Attribute VB_Name = "vw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Label1.Caption = "编写 by 大连市第三十七中学 CJSoft褚逸豪"
End Sub
Public Sub Label2_Click()
Shell "explorer.exe http://home.chuyihao.com", vbNormalFocus
End Sub