-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathfrmMain.frm
146 lines (129 loc) · 4.13 KB
/
frmMain.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
VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 3465
ClientLeft = 0
ClientTop = 0
ClientWidth = 4680
ControlBox = 0 'False
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 3465
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.PictureBox picl
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 7200
Left = 2400
Picture = "frmMain.frx":0ECA
ScaleHeight = 7200
ScaleWidth = 9600
TabIndex = 0
Top = 840
Visible = 0 'False
Width = 9600
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "BETA"
BeginProperty Font
Name = "MS Sans Serif"
Size = 24
Charset = 204
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 555
Left = 1800
TabIndex = 2
Top = 1440
Width = 1335
End
End
Begin VB.Label lblStatus
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 204
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 720
TabIndex = 1
Top = 2880
Width = 585
End
Begin VB.Shape shpload
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 255
Left = 720
Top = 2520
Width = 495
End
Begin VB.Shape shpoutline
BorderColor = &H00FF0000&
Height = 255
Left = 720
Top = 2520
Width = 3375
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private lastload As Long
Public Sub _
UpdatePBar(indicator As Integer)
Dim pbar As Integer
' update progress bar
lastload = lastload + indicator
pbar = lastload * Screen.TwipsPerPixelX
If (pbar > shpoutline.Width) Then pbar = shpoutline.Width
shpload.Width = pbar
End Sub
Private Sub Form_Activate()
lastload = 0
Dim fwidth As Long
Dim fheight As Long
fwidth = MAX_CX * Screen.TwipsPerPixelX
fheight = MAX_CY * Screen.TwipsPerPixelY
' setup loading stuff and splash
With Me
.picl.Left = fwidth / 2 - .picl.ScaleWidth / 2
.picl.Top = (fheight / 4 - .picl.ScaleHeight / 2)
.shpoutline.Width = 500 * Screen.TwipsPerPixelX
.shpoutline.Left = fwidth / 2 - .shpoutline.Width / 2
.shpoutline.Top = fwidth - fwidth / 2
.shpload.Left = .shpoutline.Left
.shpload.Top = .shpoutline.Top
.shpload.Width = 0
.lblStatus.Left = .shpoutline.Left
.lblStatus.Top = .shpoutline.Top + .shpoutline.Height + 10 * Screen.TwipsPerPixelY
End With
DoEvents
' hide beta stuff
Label1.Visible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call ReleaseAll ' release game stuff on exit
End Sub