-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathForm1scr.frm
More file actions
200 lines (187 loc) · 5.46 KB
/
Form1scr.frm
File metadata and controls
200 lines (187 loc) · 5.46 KB
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
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00000000&
BorderStyle = 0 'None
ClientHeight = 17730
ClientLeft = 0
ClientTop = 0
ClientWidth = 19650
FillColor = &H000000FF&
FillStyle = 0 'Solid
LinkTopic = "Form1"
ScaleHeight = 51891.85
ScaleMode = 0 'User
ScaleWidth = 19650
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.Timer Timer2
Interval = 2000
Left = 2160
Top = 240
End
Begin VB.Timer Timer1
Interval = 70
Left = 4560
Top = 240
End
Begin VB.Timer Timer4
Interval = 1000
Left = 3360
Top = 240
End
Begin VB.Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Welcome to College Management System"
BeginProperty Font
Name = "Comic Sans MS"
Size = 21.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1005
Left = -1560
TabIndex = 5
Top = 1680
Width = 9135
End
Begin VB.Label Label5
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "Verdana"
Size = 20.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 6120
TabIndex = 4
Top = 5760
Width = 3495
End
Begin VB.Label Label4
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "Verdana"
Size = 26.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1095
Left = 11640
TabIndex = 3
Top = 4200
Width = 1575
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "Verdana"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 11400
TabIndex = 2
Top = 6840
Width = 2055
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "Verdana"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 11400
TabIndex = 1
Top = 5640
Width = 2055
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "Verdana"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 6240
TabIndex = 0
Top = 4440
Width = 3255
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i, j, a, b, r, o As Integer
Private Sub Form_Click()
Unload Me
Me.Hide
Load Form2
Form2.Show
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
Me.Hide
Load Form2
Form2.Show
End Sub
Private Sub Form_Load()
Form1.BackColor = vbBlack
Form1.WindowState = 2
Label6.Top = 8500
Label6.Left = 11000
r = 300
End Sub
Private Sub Timer1_Timer()
With Label6
If .Left <= 11000 Then .Left = .Left - 100
If .Left < -5000 Then .Left = 11000
End With
End Sub
Private Sub Timer2_Timer()
Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
Private Sub Timer4_Timer()
Dim Today As Variant
Today = Now
Label1.Caption = Format(Today, "dddd")
Label2.Caption = Format(Today, "mmmm")
Label3.Caption = Format(Today, "yyyy")
Label4.Caption = Format(Today, "d")
Label5.Caption = Format(Today, "hh:mm:ss ampm")
End Sub