-
Notifications
You must be signed in to change notification settings - Fork 0
/
frmSplash.frm
185 lines (181 loc) · 5.46 KB
/
frmSplash.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
VERSION 5.00
Object = "{4C5605EA-720A-490B-820A-E3CDEE939855}#1.0#0"; "vkusercontrolsxp.ocx"
Begin VB.Form frmSplash
Appearance = 0 'Flat
BackColor = &H000080FF&
BorderStyle = 0 'None
ClientHeight = 4230
ClientLeft = 210
ClientTop = 1365
ClientWidth = 7380
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "frmSplash.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4230
ScaleWidth = 7380
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin vkUserContolsXP.vkTimer vkTimer3
Left = 1440
Top = 360
_ExtentX = 926
_ExtentY = 926
Interval = 40
End
Begin vkUserContolsXP.vkTimer vkTimer2
Left = 840
Top = 360
_ExtentX = 926
_ExtentY = 926
Interval = 40
End
Begin vkUserContolsXP.vkTimer vkTimer1
Left = 240
Top = 360
_ExtentX = 926
_ExtentY = 926
Interval = 40
Enabled = -1 'True
End
Begin VB.Frame frame
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 4125
Left = 50
TabIndex = 0
Top = 50
Width = 7275
Begin VB.Image logo
Height = 900
Left = 3360
Picture = "frmSplash.frx":000C
Top = 720
Width = 2400
End
Begin VB.Image imgLogo
Height = 2385
Left = 120
Picture = "frmSplash.frx":2210
Stretch = -1 'True
Top = 1035
Width = 2655
End
Begin VB.Label lblWarning
BackStyle = 0 'Transparent
Caption = "2010 Jangid Corporation. All rights reserved."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 255
TabIndex = 2
Top = 3720
Width = 6855
End
Begin VB.Label lblVersion
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "4.0"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3525
TabIndex = 3
Top = 1740
Width = 2130
End
Begin VB.Label lblLicenseTo
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Licensed To: Francis Xavier Engineering College"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 1
Top = 240
Width = 6855
End
End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a As Integer
Dim l_val As Integer
Private m_Trans As transperant
Private Sub Form_Load()
CreateRoundRectFromWindow Me, 7, 7
frame.Width = Me.Width - 100
frame.Height = Me.Height - 100
l_val = 0
Set m_Trans = New transperant
m_Trans.hWnd = Me.hWnd
m_Trans.Alpha = l_val
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
frmSplash.BackColor = Color
End Sub
Private Sub Form_Unload(Cancel As Integer)
vkTimer1.Enabled = False
vkTimer2.Enabled = False
vkTimer3.Enabled = False
End Sub
Private Sub vkTimer1_Timer()
If l_val >= 255 Then
vkTimer1.Enabled = False
vkTimer2.Enabled = True
Exit Sub
Else
m_Trans.Alpha = l_val
End If
l_val = l_val + 5
End Sub
Private Sub vkTimer2_Timer()
Static i As Integer
If i >= 2 Then
frmSplash.Show Modal, mdiMain
mdiMain.Show
frmLogin.Show Modal, mdiMain
vkTimer2.Interval = 0
vkTimer3.Enabled = True
End If
i = i + 1
End Sub
Private Sub vkTimer3_Timer()
If l_val <= 0 Then
vkTimer3.Enabled = False
Exit Sub
Else
m_Trans.Alpha = l_val
End If
l_val = l_val - 5
End Sub