TOP
Second Floor Frm
VERSION 5.00
Begin VB.Form frm_2ndFloor
BackColor = &H00808080&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 9015
ClientLeft = 45
ClientTop = 45
ClientWidth = 10470
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9015
ScaleWidth = 10470
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmd_1stFloor
Caption = "1st Floor"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 3150
TabIndex = 32
Top = 5640
Width = 1440
End
Begin VB.CommandButton cmd_3rdFloor
Caption = "3rd Floor"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 5550
TabIndex = 31
Top = 5625
Width = 1440
End
Begin VB.CommandButton cmd_F216
BackColor = &H00FF8080&
Caption = "F216"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 960
Left = 6030
Style = 1 'Graphical
TabIndex = 30
Top = 8055
Width = 1365
End
Begin VB.CommandButton cmd_F215
BackColor = &H00008000&
Caption = "F215"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 8730
Style = 1 'Graphical
TabIndex = 29
Top = 8505
Width = 1725
End
Begin VB.CommandButton cmd_F214
BackColor = &H00008000&
Caption = "F214"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 825
Left = 9630
Style = 1 'Graphical
TabIndex = 28
Top = 7650
Width = 735
End
Begin VB.CommandButton cmd_F213
BackColor = &H00008000&
Caption = "F213"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 780
Left = 8910
Style = 1 'Graphical
TabIndex = 27
Top = 7695
Width = 690
End
Begin VB.CommandButton cmd_F212
BackColor = &H00008000&
Caption = "F212"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1005
Left = 8865
Style = 1 'Graphical
TabIndex = 26
Top = 6660
Width = 1545
End
Begin VB.CommandButton cmd_F211
BackColor = &H00FF8080&
Caption = "F211"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 9675
Style = 1 'Graphical
TabIndex = 25
Top = 6210
Width = 780
End
Begin VB.CommandButton cmd_F210
BackColor = &H00008000&
Caption = "F210"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 9675
Style = 1 'Graphical
TabIndex = 24
Top = 5625
Width = 780
End
Begin VB.CommandButton cmd_F209
BackColor = &H0000FFFF&
Caption = "F209"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1050
Left = 8820
Style = 1 'Graphical
TabIndex = 23
Top = 5625
Width = 825
End
Begin VB.CommandButton cmd_F208
BackColor = &H00FF8080&
Caption = "F208"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1050
Left = 8820
Style = 1 'Graphical
TabIndex = 22
Top = 4590
Width = 1680
End
Begin VB.CommandButton cmd_F207
BackColor = &H00FF8080&
Caption = "F207"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 8820
Style = 1 'Graphical
TabIndex = 21
Top = 3510
Width = 1680
End
Begin VB.CommandButton cmd_F206
BackColor = &H000040C0&
Caption = "F206"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1140
Left = 8820
Style = 1 'Graphical
TabIndex = 20
Top = 2385
Width = 1680
End
Begin VB.CommandButton cmd_F205
BackColor = &H00008080&
Caption = "F205"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 9450
Style = 1 'Graphical
TabIndex = 19
Top = 1665
Width = 1050
End
Begin VB.CommandButton cmd_F204
BackColor = &H00808000&
Caption = "F204"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1665
Left = 8820
Style = 1 'Graphical
TabIndex = 18
Top = 0
Width = 1680
End
Begin VB.CommandButton cmd_F203
BackColor = &H00008080&
Caption = "F203"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1065
Left = 7875
Style = 1 'Graphical
TabIndex = 17
Top = 0
Width = 930
End
Begin VB.CommandButton cmd_F202
BackColor = &H00C000C0&
Caption = "F202"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1065
Left = 6750
Style = 1 'Graphical
TabIndex = 16
Top = 0
Width = 1125
End
Begin VB.CommandButton cmd_F201
BackColor = &H00C000C0&
Caption = "F201"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1065
Left = 5535
Style = 1 'Graphical
TabIndex = 15
Top = 0
Width = 1215
End
Begin VB.CommandButton cmd_F217
BackColor = &H00C000C0&
Caption = "F217"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1140
Left = 3750
Style = 1 'Graphical
TabIndex = 14
Top = 7875
Width = 1215
End
Begin VB.CommandButton cmd_F218
BackColor = &H00C000C0&
Caption = "F218"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1140
Left = 2475
Style = 1 'Graphical
TabIndex = 13
Top = 7875
Width = 1290
End
Begin VB.CommandButton cmd_F219
BackColor = &H00008080&
Caption = "F219"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1575
Style = 1 'Graphical
TabIndex = 12
Top = 8400
Width = 840
End
Begin VB.CommandButton cmd_F229
BackColor = &H00008000&
Caption = "F229"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 690
Left = 0
Style = 1 'Graphical
TabIndex = 11
Top = 45
Width = 2115
End
Begin VB.CommandButton cmd_F220
BackColor = &H0000FFFF&
Caption = "F220"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 0
Style = 1 'Graphical
TabIndex = 10
Top = 7800
Width = 1515
End
Begin VB.CommandButton cmd_F221
BackColor = &H00008080&
Caption = "F221"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1140
Left = 765
Style = 1 'Graphical
TabIndex = 9
Top = 6660
Width = 765
End
Begin VB.CommandButton cmd_F222
BackColor = &H00008080&
Caption = "F222"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1140
Left = 0
Style = 1 'Graphical
TabIndex = 8
Top = 6660
Width = 765
End
Begin VB.CommandButton cmd_F223
BackColor = &H00808000&
Caption = "F223"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1515
Left = 0
Style = 1 'Graphical
TabIndex = 7
Top = 5130
Width = 1515
End
Begin VB.CommandButton cmd_F224
BackColor = &H00808000&
Caption = "F224"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 765
Left = 0
Style = 1 'Graphical
TabIndex = 6
Top = 4410
Width = 1515
End
Begin VB.CommandButton cmd_F225
BackColor = &H00008080&
Caption = "F225"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1140
Left = 765
Style = 1 'Graphical
TabIndex = 5
Top = 3285
Width = 765
End
Begin VB.CommandButton cmd_F226
BackColor = &H00008080&
Caption = "F226"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1140
Left = 0
Style = 1 'Graphical
TabIndex = 4
Top = 3285
Width = 765
End
Begin VB.CommandButton cmd_F227
BackColor = &H00808000&
Caption = "F227"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1290
Left = 0
Style = 1 'Graphical
TabIndex = 3
Top = 2025
Width = 1515
End
Begin VB.CommandButton cmd_F228
BackColor = &H00808000&
Caption = "F228"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1365
Left = 0
Style = 1 'Graphical
TabIndex = 2
Top = 720
Width = 1515
End
Begin VB.CommandButton cmd_F230
BackColor = &H0000FFFF&
Caption = "F230"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1140
Left = 2205
Style = 1 'Graphical
TabIndex = 1
Top = 45
Width = 2220
End
Begin VB.CommandButton Command1
BackColor = &H8000000B&
Caption = "Dummy"
Default = -1 'True
Height = 690
Left = 300
Style = 1 'Graphical
TabIndex = 0
Top = 8100
Width = 690
End
Begin VB.Label lbl_Description
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2220
Left = 3645
TabIndex = 33
Top = 2835
UseMnemonic = 0 'False
Width = 2670
End
Begin VB.Shape shp_BottomStairsSquare
BorderWidth = 2
Height = 855
Left = 4965
Top = 8145
Width = 975
End
Begin VB.Line lin_BottomStairsDivider
BorderWidth = 2
X1 = 5430
X2 = 5430
Y1 = 8175
Y2 = 8700
End
Begin VB.Line lin_BottomStairsLine1
BorderWidth = 2
X1 = 5940
X2 = 4980
Y1 = 8250
Y2 = 8250
End
Begin VB.Line lin_BottomStairsLine2
BorderWidth = 2
X1 = 5895
X2 = 4980
Y1 = 8400
Y2 = 8400
End
Begin VB.Line lin_BottomStairsLine3
BorderWidth = 2
X1 = 5895
X2 = 4980
Y1 = 8550
Y2 = 8550
End
Begin VB.Line lin_BottomStairsLine4
BorderWidth = 2
X1 = 4905
X2 = 5940
Y1 = 8700
Y2 = 8700
End
Begin VB.Line lin_TopStairsDivider
BorderWidth = 2
X1 = 4995
X2 = 4995
Y1 = 450
Y2 = 1005
End
Begin VB.Shape shp_TopStairsSquare
BorderWidth = 2
Height = 975
Left = 4455
Top = 45
Width = 1095
End
Begin VB.Line lin_TopStairsLine4
BorderWidth = 2
X1 = 4455
X2 = 5580
Y1 = 420
Y2 = 420
End
Begin VB.Line lin_TopStairsLine3
BorderWidth = 2
X1 = 4455
X2 = 5580
Y1 = 585
Y2 = 570
End
Begin VB.Line lin_TopStairsLine2
BorderWidth = 2
X1 = 4455
X2 = 5505
Y1 = 720
Y2 = 720
End
Begin VB.Line lin_TopStairsLine1
BorderWidth = 2
X1 = 4455
X2 = 5505
Y1 = 855
Y2 = 870
End
Begin VB.Shape shp_OpenArea
BorderWidth = 2
FillColor = &H00C00000&
FillStyle = 0 'Solid
Height = 3855
Left = 3000
Top = 2325
Width = 4155
End
End
Attribute VB_Name = "frm_2ndFloor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'this form gives the floor layout of the 2nd floor of the Faura building
'if a room button was clicked, its description would be displayed in the
'lbl_description object.
'if a change floor button was pressed, this floor would be hidden and the
'appropriate form for the next floor would be made available
Option Explicit
Public Sub cmd_1stFloor_Click()
lbl_Description.Caption = " 2nd Floor " _
& " " _
& "This floor houses the Computer Science and " _
& "Management Information Systems Departments " _
& "and also the computer laboraties."
frm_2ndFloor.Hide
frm_1stfloor.Show
Call delayer
End Sub
Public Sub cmd_3rdFloor_Click()
lbl_Description.Caption = " 2nd Floor " _
& " " _
& "This floor houses the Computer Science and " _
& "Management Information Systems Departments " _
& "and also the computer laboraties."
frm_2ndFloor.Hide
frm_3rdFloor.Show
Call delayer
End Sub
Public Sub cmd_F201_Click()
lbl_Description.Caption = " F201 " _
& " " _
& "Men's Comfort Room"
End Sub
Public Sub cmd_F202_Click()
lbl_Description.Caption = " F202 " _
& " " _
& "Ladies' Comfort Room"
End Sub
Public Sub cmd_F203_Click()
lbl_Description.Caption = " F203 " _
& " " _
& "Storage Room"
End Sub
Public Sub cmd_F204_Click()
lbl_Description.Caption = " F204 " _
& " " _
& "Multimedia Laboratory"
End Sub
Public Sub cmd_F205_Click()
lbl_Description.Caption = " F205 " _
& " " _
& "Laboratory Technician's Room"
End Sub
Public Sub cmd_F206_Click()
lbl_Description.Caption = " F206 " _
& " " _
& "General Classroom"
End Sub
Public Sub cmd_F207_Click()
lbl_Description.Caption = " F207 " _
& " " _
& "Ateneo Server Room"
End Sub
Public Sub cmd_F208_Click()
lbl_Description.Caption = " F208 " _
& " " _
& "Special Projects Laboratory"
End Sub
Public Sub cmd_F209_Click()
lbl_Description.Caption = " F209 " _
& " " _
& "Computer Science Department"
End Sub
Public Sub cmd_F210_Click()
lbl_Description.Caption = " F210 " _
& " " _
& "Computer Science Program Chairman"
End Sub
Public Sub cmd_F211_Click()
lbl_Description.Caption = " F211 " _
& " " _
& "Computer Science Conference Rooms"
End Sub
Public Sub cmd_F212_Click()
lbl_Description.Caption = " F212 " _
& " " _
& "Computer Science Faculty Room"
End Sub
Public Sub cmd_F213_Click()
lbl_Description.Caption = " F213 " _
& " " _
& "Computer Science Faculty Room"
End Sub
Public Sub cmd_F214_Click()
lbl_Description.Caption = " F214 " _
& " " _
& "Computer Science Faculty Room"
End Sub
Public Sub cmd_F215_Click()
lbl_Description.Caption = " F215 " _
& " " _
& "Computer Science Faculty Room"
End Sub
Public Sub cmd_F216_Click()
lbl_Description.Caption = " F216 " _
& " " _
& "Computer Science Faculty Lounge"
End Sub
Public Sub cmd_F217_Click()
lbl_Description.Caption = " F217 " _
& " " _
& "Men's Faculty Comfort Room"
End Sub
Public Sub cmd_F218_Click()
lbl_Description.Caption = " F218 " _
& " " _
& "Ladies' Faculty Comfort Room"
End Sub
Public Sub cmd_F219_Click()
lbl_Description.Caption = " F219 " _
& " " _
& "Storage Room"
End Sub
Public Sub cmd_F220_Click()
lbl_Description.Caption = " F220 " _
& " " _
& "Management Information Systems Department"
End Sub
Public Sub cmd_F221_Click()
lbl_Description.Caption = " F221 " _
& " " _
& "Technical Support Group"
End Sub
Public Sub cmd_F222_Click()
lbl_Description.Caption = " F222 " _
& " " _
& "Technical Support Group"
End Sub
Public Sub cmd_F223_Click()
lbl_Description.Caption = " F223 " _
& " " _
& "Computer Laboratory"
End Sub
Public Sub cmd_F224_Click()
lbl_Description.Caption = " F224 " _
& " " _
& "Graduate Research Laboratory"
End Sub
Public Sub cmd_F225_Click()
lbl_Description.Caption = " F225 " _
& " " _
& "Technical Support Group"
End Sub
Public Sub cmd_F226_Click()
lbl_Description.Caption = " F226 " _
& " " _
& "Technical Support Group"
End Sub
Public Sub cmd_F227_Click()
lbl_Description.Caption = " F227 " _
& " " _
& "Computer Laboratory"
End Sub
Public Sub cmd_F228_Click()
lbl_Description.Caption = " F228 " _
& " " _
& "Computer Laboratory"
End Sub
Public Sub cmd_F229_Click()
lbl_Description.Caption = " F229 " _
& " " _
& "Physics Faculty Room"
End Sub
Public Sub cmd_F230_Click()
lbl_Description.Caption = " F230 " _
& " " _
& "Athletics Office"
End Sub
Private Sub Form_Load()
frm_2ndFloor.Top = 0
frm_2ndFloor.Left = Screen.Width / 4
frm_2ndFloor.Width = Screen.Width * 3 / 4
frm_2ndFloor.Height = Screen.Height
'*****2nd floor properties*****
'second floor layout
'defines the shape and sizes of the rooms and areas in the second floor
shp_OpenArea.Top = (frm_1stfloor.Height * 2 / 10)
shp_OpenArea.Left = (frm_1stfloor.Width * 2 / 9)
shp_OpenArea.Width = frm_1stfloor.Width * 5 / 9
shp_OpenArea.Height = frm_1stfloor.Height * 7 / 11
'*****Bottom Stairs*****
shp_BottomStairsSquare.Top = frm_1stfloor.cmd_F111.Top
shp_BottomStairsSquare.Left = frm_1stfloor.cmd_F110.Left + _
frm_1stfloor.cmd_F110.Width
shp_BottomStairsSquare.Width = frm_1stfloor.cmd_F101.Width
shp_BottomStairsSquare.Height = frm_1stfloor.cmd_F111.Height
lin_BottomStairsDivider.X1 = shp_BottomStairsSquare.Left _
+ shp_BottomStairsSquare.Width / 2
lin_BottomStairsDivider.X2 = lin_BottomStairsDivider.X1
lin_BottomStairsDivider.Y1 = shp_BottomStairsSquare.Top
lin_BottomStairsDivider.Y2 = lin_BottomStairsDivider.Y1 _
+ shp_BottomStairsSquare.Height * 3 / 5
lin_BottomStairsLine1.X1 = shp_BottomStairsSquare.Left
lin_BottomStairsLine1.X2 = shp_BottomStairsSquare.Left _
+ shp_BottomStairsSquare.Width - 20
lin_BottomStairsLine1.Y1 = lin_BottomStairsDivider.Y1 + _
(shp_BottomStairsSquare.Height * 3 / 5) / 4
lin_BottomStairsLine1.Y2 = lin_BottomStairsLine1.Y1
lin_BottomStairsLine2.X1 = lin_BottomStairsLine1.X1
lin_BottomStairsLine2.X2 = lin_BottomStairsLine1.X2
lin_BottomStairsLine2.Y1 = lin_BottomStairsLine1.Y1 + _
(shp_BottomStairsSquare.Height * 3 / 5) / 4
lin_BottomStairsLine2.Y2 = lin_BottomStairsLine2.Y1
lin_BottomStairsLine3.X1 = lin_BottomStairsLine1.X1
lin_BottomStairsLine3.X2 = lin_BottomStairsLine1.X2
lin_BottomStairsLine3.Y1 = lin_BottomStairsLine2.Y1 + _
(shp_BottomStairsSquare.Height * 3 / 5) / 4
lin_BottomStairsLine3.Y2 = lin_BottomStairsLine3.Y1
lin_BottomStairsLine4.X1 = lin_BottomStairsLine1.X1
lin_BottomStairsLine4.X2 = lin_BottomStairsLine1.X2
lin_BottomStairsLine4.Y1 = lin_BottomStairsLine3.Y1 + _
(shp_BottomStairsSquare.Height * 3 / 5) / 4
lin_BottomStairsLine4.Y2 = lin_BottomStairsLine4.Y1
'*****---*****
'*****Top Stairs*****
shp_TopStairsSquare.Top = 0
shp_TopStairsSquare.Left = shp_BottomStairsSquare.Left
shp_TopStairsSquare.Width = shp_BottomStairsSquare.Width
shp_TopStairsSquare.Height = shp_BottomStairsSquare.Height
lin_TopStairsDivider.X1 = lin_BottomStairsDivider.X1
lin_TopStairsDivider.X2 = lin_BottomStairsDivider.X2
lin_TopStairsDivider.Y1 = shp_TopStairsSquare.Height * 2 / 5
lin_TopStairsDivider.Y2 = shp_TopStairsSquare.Height - 15
lin_TopStairsLine1.X1 = shp_TopStairsSquare.Left
lin_TopStairsLine1.X2 = lin_TopStairsLine1.X1 + shp_TopStairsSquare.Width - 20
lin_TopStairsLine1.Y1 = lin_TopStairsDivider.Y2 - _
(shp_TopStairsSquare.Height * 3 / 5) / 4
lin_TopStairsLine1.Y2 = lin_TopStairsLine1.Y1
lin_TopStairsLine2.X1 = lin_TopStairsLine1.X1
lin_TopStairsLine2.X2 = lin_TopStairsLine1.X2
lin_TopStairsLine2.Y1 = lin_TopStairsLine1.Y1 - _
(shp_TopStairsSquare.Height * 3 / 5) / 4
lin_TopStairsLine2.Y2 = lin_TopStairsLine2.Y1
lin_TopStairsLine3.X1 = lin_TopStairsLine1.X1
lin_TopStairsLine3.X2 = lin_TopStairsLine1.X2
lin_TopStairsLine3.Y1 = lin_TopStairsLine2.Y1 - _
(shp_TopStairsSquare.Height * 3 / 5) / 4
lin_TopStairsLine3.Y2 = lin_TopStairsLine3.Y1
lin_TopStairsLine4.X1 = lin_TopStairsLine1.X1
lin_TopStairsLine4.X2 = lin_TopStairsLine1.X2
lin_TopStairsLine4.Y1 = lin_TopStairsLine3.Y1 - _
(shp_TopStairsSquare.Height * 3 / 5) / 4
lin_TopStairsLine4.Y2 = lin_TopStairsLine4.Y1
'*****---*****
cmd_F229.Top = 0
cmd_F229.Left = 0
cmd_F229.Width = frm_2ndFloor.Width * 3 / 13
cmd_F229.Height = frm_2ndFloor.Height / 12
cmd_F230.Top = 0
cmd_F230.Left = cmd_F229.Width
cmd_F230.Width = shp_TopStairsSquare.Left - cmd_F230.Left - 10
cmd_F230.Height = shp_TopStairsSquare.Height
cmd_F228.Top = cmd_F229.Height
cmd_F228.Left = 0
cmd_F228.Width = frm_2ndFloor.Width / 6
cmd_F228.Height = frm_2ndFloor.Height / 6
cmd_F227.Top = cmd_F228.Top + cmd_F228.Height
cmd_F227.Left = 0
cmd_F227.Width = cmd_F228.Width
cmd_F227.Height = cmd_F228.Height - 200
cmd_F226.Top = cmd_F227.Top + cmd_F227.Height
cmd_F226.Left = 0
cmd_F226.Width = cmd_F228.Width / 2
cmd_F226.Height = frm_2ndFloor.Height / 10
cmd_F225.Top = cmd_F226.Top
cmd_F225.Left = cmd_F226.Width
cmd_F225.Width = cmd_F226.Width
cmd_F225.Height = cmd_F226.Height
cmd_F224.Top = cmd_F225.Top + cmd_F225.Height
cmd_F224.Left = 0
cmd_F224.Width = cmd_F228.Width
cmd_F224.Height = cmd_F226.Height
cmd_F223.Top = cmd_F224.Top + cmd_F224.Height
cmd_F223.Left = 0
cmd_F223.Width = cmd_F228.Width
cmd_F223.Height = cmd_F228.Height
cmd_F222.Top = cmd_F223.Top + cmd_F223.Height
cmd_F222.Left = 0
cmd_F222.Width = cmd_F228.Width / 2
cmd_F222.Height = cmd_F226.Height
cmd_F221.Top = cmd_F222.Top
cmd_F221.Left = cmd_F222.Width
cmd_F221.Width = cmd_F222.Width
cmd_F221.Height = cmd_F222.Height
cmd_F220.Top = cmd_F222.Top + cmd_F222.Height
cmd_F220.Left = 0
cmd_F220.Width = cmd_F228.Width
cmd_F220.Height = frm_2ndFloor.Height - cmd_F220.Top
cmd_F219.Top = cmd_F220.Top + cmd_F220.Width / 3
cmd_F219.Left = cmd_F220.Width
cmd_F219.Width = frm_2ndFloor.Width / 11
cmd_F219.Height = frm_2ndFloor.Height - cmd_F219.Top
cmd_F218.Top = shp_BottomStairsSquare.Top
cmd_F218.Left = cmd_F219.Left + cmd_F219.Width
cmd_F218.Width = (shp_BottomStairsSquare.Left - cmd_F218.Left) / 2
cmd_F218.Height = shp_BottomStairsSquare.Height
cmd_F217.Top = cmd_F218.Top
cmd_F217.Left = cmd_F218.Left + cmd_F218.Width
cmd_F217.Width = cmd_F218.Width
cmd_F217.Height = cmd_F218.Height
cmd_F201.Top = 0
cmd_F201.Left = shp_TopStairsSquare.Left + shp_TopStairsSquare.Width
cmd_F201.Width = (shp_OpenArea.Left + shp_OpenArea.Width - _
shp_TopStairsSquare.Left - shp_TopStairsSquare.Width) _
/ 2
cmd_F201.Height = shp_TopStairsSquare.Height
cmd_F202.Top = 0
cmd_F202.Left = cmd_F201.Left + cmd_F201.Width
cmd_F202.Width = cmd_F201.Width
cmd_F202.Height = cmd_F201.Height
cmd_F203.Top = 0
cmd_F203.Left = cmd_F202.Left + cmd_F202.Width
cmd_F203.Width = (frm_2ndFloor.Width * 6 / 7) - shp_OpenArea.Left _
- shp_OpenArea.Width
cmd_F203.Height = cmd_F201.Height
cmd_F204.Top = 0
cmd_F204.Left = cmd_F203.Left + cmd_F203.Width
cmd_F204.Width = frm_2ndFloor.Width / 7
cmd_F204.Height = frm_2ndFloor.Height / 7
cmd_F205.Top = cmd_F204.Top + cmd_F204.Height
cmd_F205.Left = cmd_F204.Left + cmd_F204.Width / 3
cmd_F205.Width = frm_2ndFloor.Width - cmd_F205.Left
cmd_F205.Height = frm_2ndFloor.Height / 15
cmd_F206.Top = cmd_F205.Top + cmd_F205.Height
cmd_F206.Left = cmd_F204.Left
cmd_F206.Width = cmd_F204.Width
cmd_F206.Height = frm_2ndFloor.Height / 6
cmd_F207.Top = cmd_F206.Top + cmd_F206.Height
cmd_F207.Left = cmd_F204.Left
cmd_F207.Width = cmd_F204.Width
cmd_F207.Height = frm_2ndFloor.Height / 9
cmd_F208.Top = cmd_F207.Top + cmd_F207.Height
cmd_F208.Left = cmd_F204.Left
cmd_F208.Width = cmd_F204.Width
cmd_F208.Height = cmd_F207.Height
cmd_F209.Top = cmd_F208.Top + cmd_F208.Height
cmd_F209.Left = cmd_F204.Left
cmd_F209.Width = cmd_F204.Width / 2
cmd_F209.Height = frm_2ndFloor.Height / 7
cmd_F210.Top = cmd_F209.Top
cmd_F210.Left = cmd_F209.Left + cmd_F209.Width
cmd_F210.Width = cmd_F209.Width
cmd_F210.Height = cmd_F209.Height / 2
cmd_F211.Top = cmd_F210.Top + cmd_F210.Height
cmd_F211.Left = cmd_F210.Left
cmd_F211.Width = cmd_F210.Width
cmd_F211.Height = cmd_F210.Height
cmd_F212.Top = cmd_F209.Top + cmd_F209.Height
cmd_F212.Left = cmd_F204.Left
cmd_F212.Width = cmd_F204.Width
cmd_F212.Height = frm_2ndFloor.Height / 12
cmd_F213.Top = cmd_F212.Top + cmd_F212.Height
cmd_F213.Left = cmd_F204.Left
cmd_F213.Width = cmd_F204.Width / 2
cmd_F213.Height = shp_BottomStairsSquare.Top - cmd_F213.Top
cmd_F214.Top = cmd_F213.Top
cmd_F214.Left = cmd_F213.Left + cmd_F213.Width
cmd_F214.Width = cmd_F213.Width
cmd_F214.Height = cmd_F213.Height
cmd_F215.Top = cmd_F213.Top + cmd_F213.Height
cmd_F215.Left = cmd_F204.Left
cmd_F215.Width = cmd_F204.Width
cmd_F215.Height = shp_BottomStairsSquare.Height
cmd_F216.Top = shp_BottomStairsSquare.Top
cmd_F216.Left = shp_BottomStairsSquare.Left + shp_BottomStairsSquare.Width
cmd_F216.Width = cmd_F203.Left - cmd_F216.Left
cmd_F216.Height = shp_BottomStairsSquare.Height
'*****change floor buttons*****
cmd_1stFloor.Top = shp_OpenArea.Top + (shp_OpenArea.Height * 7 / 8)
cmd_1stFloor.Left = shp_OpenArea.Left * 7 / 5
cmd_1stFloor.Width = shp_OpenArea.Width / 3
cmd_1stFloor.Height = shp_OpenArea.Height / 9
cmd_3rdFloor.Top = cmd_1stFloor.Top
cmd_3rdFloor.Left = cmd_1stFloor.Left + cmd_1stFloor.Width
cmd_3rdFloor.Width = cmd_1stFloor.Width
cmd_3rdFloor.Height = cmd_1stFloor.Height
'*****---*****
'*****description*****
'the description of the 2nd floor is always displayed whenever it is made
'visible or loaded
lbl_Description.Visible = True
lbl_Description.Top = shp_OpenArea.Top + (shp_OpenArea.Height / 5)
lbl_Description.Left = shp_OpenArea.Left + (shp_OpenArea.Width / 5)
lbl_Description.Width = shp_OpenArea.Width * 3 / 5
lbl_Description.Height = shp_OpenArea.Height * 2 / 5
lbl_Description.Caption = " 2nd Floor " _
& " " _
& "This floor houses the Computer Science and " _
& "Management Information Systems Departments " _
& "and also the computer laboraties."
'*****---*****
End Sub
TOP
|