TOP
Third Floor Frm
VERSION 5.00
Begin VB.Form frm_3rdFloor
BackColor = &H00808080&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 9105
ClientLeft = 45
ClientTop = 45
ClientWidth = 10530
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9105
ScaleWidth = 10530
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmd_2ndFloor
Caption = "2nd 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 = 6180
TabIndex = 27
Top = 5700
Width = 1440
End
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 = 3780
TabIndex = 26
Top = 5715
Width = 1440
End
Begin VB.CommandButton cmd_F316
BackColor = &H00008080&
Caption = "F316"
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 = 3300
Style = 1 'Graphical
TabIndex = 25
Top = 8580
Width = 1035
End
Begin VB.CommandButton cmd_F315
BackColor = &H00C000C0&
Caption = "F315"
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 = 3300
Style = 1 'Graphical
TabIndex = 24
Top = 8040
Width = 1035
End
Begin VB.CommandButton cmd_F314
BackColor = &H00C000C0&
Caption = "F314"
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 = 4320
Style = 1 'Graphical
TabIndex = 23
Top = 8040
Width = 1035
End
Begin VB.CommandButton cmd_F312
BackColor = &H00008000&
Caption = "F312"
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 = 7290
Style = 1 'Graphical
TabIndex = 22
Top = 8145
Width = 780
End
Begin VB.CommandButton cmd_F313
BackColor = &H00008000&
Caption = "F313"
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 = 6435
Style = 1 'Graphical
TabIndex = 21
Top = 8145
Width = 825
End
Begin VB.CommandButton cmd_F311
BackColor = &H00808000&
Caption = "F311"
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 = 8100
Style = 1 'Graphical
TabIndex = 20
Top = 8325
Width = 2220
End
Begin VB.CommandButton cmd_F310
BackColor = &H00808000&
Caption = "F310"
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 = 8865
Style = 1 'Graphical
TabIndex = 19
Top = 7245
Width = 1500
End
Begin VB.CommandButton cmd_F309
BackColor = &H00FF8080&
Caption = "F309"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1320
Left = 8910
Style = 1 'Graphical
TabIndex = 18
Top = 5940
Width = 1500
End
Begin VB.CommandButton cmd_F308
BackColor = &H00FF8080&
Caption = "F308"
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 = 8910
Style = 1 'Graphical
TabIndex = 17
Top = 4815
Width = 1500
End
Begin VB.CommandButton cmd_F307
BackColor = &H00008000&
Caption = "F307"
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 = 8955
Style = 1 'Graphical
TabIndex = 16
Top = 4140
Width = 1455
End
Begin VB.CommandButton cmd_F306
BackColor = &H00808000&
Caption = "F306"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1320
Left = 9000
Style = 1 'Graphical
TabIndex = 15
Top = 2835
Width = 1455
End
Begin VB.CommandButton cmd_F305
BackColor = &H00808000&
Caption = "F305"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1230
Left = 8910
Style = 1 'Graphical
TabIndex = 14
Top = 1620
Width = 1590
End
Begin VB.CommandButton cmd_F304
BackColor = &H000040C0&
Caption = "F304"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1500
Left = 8955
Style = 1 'Graphical
TabIndex = 13
Top = 90
Width = 1545
End
Begin VB.CommandButton cmd_F303
BackColor = &H00008080&
Caption = "F303"
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 = 8010
Style = 1 'Graphical
TabIndex = 12
Top = 90
Width = 780
End
Begin VB.CommandButton cmd_F302
BackColor = &H00C000C0&
Caption = "F302"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 915
Left = 7110
Style = 1 'Graphical
TabIndex = 11
Top = 90
Width = 870
End
Begin VB.CommandButton cmd_F301
BackColor = &H00C000C0&
Caption = "F301"
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 = 6210
Style = 1 'Graphical
TabIndex = 10
Top = 45
Width = 870
End
Begin VB.CommandButton cmd_F318
BackColor = &H00008080&
Caption = "F318"
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 = 135
Style = 1 'Graphical
TabIndex = 9
Top = 7740
Width = 1005
End
Begin VB.CommandButton cmd_F320
BackColor = &H00808000&
Caption = "F320/F319"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1950
Left = 90
Style = 1 'Graphical
TabIndex = 8
Top = 5670
Width = 915
End
Begin VB.CommandButton cmd_F321
BackColor = &H00008000&
Caption = "F321"
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 = 135
Style = 1 'Graphical
TabIndex = 7
Top = 4545
Width = 960
End
Begin VB.CommandButton cmd_F325
BackColor = &H00808000&
Caption = "F325"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1410
Left = 45
Style = 1 'Graphical
TabIndex = 6
Top = 45
Width = 1095
End
Begin VB.CommandButton cmd_F322
BackColor = &H00808000&
Caption = "F322"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 915
Left = 90
Style = 1 'Graphical
TabIndex = 5
Top = 3600
Width = 1095
End
Begin VB.CommandButton cmd_F323
BackColor = &H00808000&
Caption = "F323"
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 = 45
Style = 1 'Graphical
TabIndex = 4
Top = 2565
Width = 1140
End
Begin VB.CommandButton cmd_F324
BackColor = &H0000FFFF&
Caption = "F324"
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 = 45
Style = 1 'Graphical
TabIndex = 3
Top = 1485
Width = 1140
End
Begin VB.CommandButton cmd_F327
BackColor = &H0000FFFF&
Caption = "F327"
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 = 3375
Style = 1 'Graphical
TabIndex = 2
Top = 45
Width = 1185
End
Begin VB.CommandButton cmd_F326
BackColor = &H00008000&
Caption = "F326"
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 = 2115
Style = 1 'Graphical
TabIndex = 1
Top = 45
Width = 1230
End
Begin VB.CommandButton Command1
Caption = "Dummy"
Height = 465
Left = 360
TabIndex = 0
Top = 8055
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 = 4275
TabIndex = 28
Top = 2925
UseMnemonic = 0 'False
Width = 2670
End
Begin VB.Shape shp_BottomStairsSquare
BorderWidth = 2
Height = 855
Left = 5415
Top = 8235
Width = 975
End
Begin VB.Line lin_BottomStairsDivider
BorderWidth = 2
X1 = 5880
X2 = 5880
Y1 = 8265
Y2 = 8790
End
Begin VB.Line lin_BottomStairsLine1
BorderWidth = 2
X1 = 6390
X2 = 5940
Y1 = 8370
Y2 = 8370
End
Begin VB.Line lin_BottomStairsLine2
BorderWidth = 2
X1 = 6345
X2 = 5895
Y1 = 8505
Y2 = 8505
End
Begin VB.Line lin_BottomStairsLine3
BorderWidth = 2
X1 = 6345
X2 = 5895
Y1 = 8640
Y2 = 8640
End
Begin VB.Line lin_BottomStairsLine4
BorderWidth = 2
X1 = 5850
X2 = 6375
Y1 = 8790
Y2 = 8790
End
Begin VB.Shape shp_TopStairsSquare
BorderWidth = 2
Height = 975
Left = 5040
Top = 0
Width = 1095
End
Begin VB.Line lin_TopStairsDivider
BorderWidth = 2
X1 = 5565
X2 = 5565
Y1 = 375
Y2 = 975
End
Begin VB.Line lin_TopStairsLine4
BorderWidth = 2
X1 = 4995
X2 = 5595
Y1 = 375
Y2 = 375
End
Begin VB.Line lin_TopStairsLine3
BorderWidth = 2
X1 = 4995
X2 = 5595
Y1 = 540
Y2 = 540
End
Begin VB.Line lin_TopStairsLine2
BorderWidth = 2
X1 = 5040
X2 = 5565
Y1 = 720
Y2 = 720
End
Begin VB.Line lin_TopStairsLine1
BorderWidth = 2
X1 = 5040
X2 = 5565
Y1 = 855
Y2 = 855
End
Begin VB.Shape shp_OpenArea
BorderWidth = 2
FillColor = &H00C00000&
FillStyle = 0 'Solid
Height = 3855
Left = 3600
Top = 2385
Width = 4155
End
End
Attribute VB_Name = "frm_3rdFloor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'this form gives the floor layout of the 3rd 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 = " 3rd Floor " _
& " " _
& "This floor houses the Physics & " _
& "Electronics, Communications and " _
& "Computer Engineering Departments and " _
& "their respective laboratories"
frm_3rdFloor.Hide
frm_1stfloor.Show
Call delayer
End Sub
Public Sub cmd_2ndFloor_Click()
lbl_Description.Caption = " 3rd Floor " _
& " " _
& "This floor houses the Physics & " _
& "Electronics, Communications and " _
& "Computer Engineering Departments and " _
& "their respective laboratories"
frm_3rdFloor.Hide
frm_2ndFloor.Show
Call delayer
End Sub
Public Sub cmd_F301_Click()
lbl_Description.Caption = " F301 " _
& " " _
& "Men's Faculty Comfort Room"
End Sub
Public Sub cmd_F302_Click()
lbl_Description.Caption = " F302 " _
& " " _
& "Ladies' Faculty Comfort Room"
End Sub
Public Sub cmd_F303_Click()
lbl_Description.Caption = " F303 " _
& " " _
& "Storage Room"
End Sub
Public Sub cmd_F304_Click()
lbl_Description.Caption = " F304 " _
& " " _
& "General Classroom"
End Sub
Public Sub cmd_F305_Click()
lbl_Description.Caption = " F305 " _
& " " _
& "Advanced Laboratory"
End Sub
Public Sub cmd_F306_Click()
lbl_Description.Caption = " F306 " _
& " " _
& "Instrumentation Laboratory"
End Sub
Public Sub cmd_F307_Click()
lbl_Description.Caption = " F307 " _
& " " _
& "Electronics, Communications and Computer " _
& "Engineering Faculty Room"
End Sub
Public Sub cmd_F308_Click()
lbl_Description.Caption = " F308 " _
& " " _
& "Satellite Laboratory"
End Sub
Public Sub cmd_F309_Click()
lbl_Description.Caption = " F309 " _
& " " _
& "Physics and ECCE Server Room"
End Sub
Public Sub cmd_F310_Click()
lbl_Description.Caption = " F310 " _
& " " _
& "Digital Signal Processing Laboratory"
End Sub
Public Sub cmd_F311_Click()
lbl_Description.Caption = " F311 " _
& " " _
& "Communications Laboratory"
End Sub
Public Sub cmd_F312_Click()
lbl_Description.Caption = " F312 " _
& " " _
& "Physics Faculty Room"
End Sub
Public Sub cmd_F313_Click()
lbl_Description.Caption = " F313 " _
& " " _
& "Physics Faculty Room"
End Sub
Public Sub cmd_F314_Click()
lbl_Description.Caption = " F314 " _
& " " _
& "Storage Room"
End Sub
Public Sub cmd_F315_Click()
lbl_Description.Caption = " F315 " _
& " " _
& "Shower Room"
End Sub
Public Sub cmd_F316_Click()
lbl_Description.Caption = " F316 " _
& " " _
& "Storage Room"
End Sub
Public Sub cmd_F318_Click()
lbl_Description.Caption = " F318 " _
& " " _
& "Machine Shop"
End Sub
Public Sub cmd_F320_Click()
lbl_Description.Caption = " F320/F319 " _
& " " _
& "Electronics, Communications and Computer " _
& "Engineering Student's Workshop"
End Sub
Public Sub cmd_F321_Click()
lbl_Description.Caption = " F321 " _
& " " _
& "Electronics, Communications and " _
& "Computer Engineering Faculty Room"
End Sub
Public Sub cmd_F322_Click()
lbl_Description.Caption = " F322 " _
& " " _
& "Computer Laboratory"
End Sub
Public Sub cmd_F323_Click()
lbl_Description.Caption = " F323 " _
& " " _
& "Digital Electronics Laboratory"
End Sub
Public Sub cmd_F324_Click()
lbl_Description.Caption = " F324 " _
& " " _
& "Electronics, Communications " _
& "and Computer Engineering Department"
End Sub
Public Sub cmd_F325_Click()
lbl_Description.Caption = " F325 " _
& " " _
& "Electronics Laboratory"
End Sub
Public Sub cmd_F326_Click()
lbl_Description.Caption = " F326 " _
& " " _
& "Physics Program Chairman"
End Sub
Public Sub cmd_F327_Click()
lbl_Description.Caption = " F327 " _
& " " _
& "Physics Department"
End Sub
Private Sub Form_Load()
frm_3rdFloor.Top = 0
frm_3rdFloor.Left = Screen.Width / 4
frm_3rdFloor.Width = Screen.Width * 3 / 4
frm_3rdFloor.Height = Screen.Height
'*****3rd floor properties*****
'third floor layout
'defines the shape and sizes of the rooms and areas in the third 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 = lin_BottomStairsDivider.X1
lin_BottomStairsLine1.X2 = lin_BottomStairsDivider.X1 + _
(shp_BottomStairsSquare.Width / 2) - 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_TopStairsDivider.X1
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_F325.Top = 0
cmd_F325.Left = 0
cmd_F325.Width = frm_3rdFloor.Width / 6
cmd_F325.Height = frm_3rdFloor.Height / 7
cmd_F324.Top = cmd_F325.Height
cmd_F324.Left = 0
cmd_F324.Width = cmd_F325.Width
cmd_F324.Height = frm_3rdFloor.Height / 10
cmd_F323.Top = cmd_F324.Top + cmd_F324.Height
cmd_F323.Left = 0
cmd_F323.Width = cmd_F325.Width
cmd_F323.Height = frm_3rdFloor.Height / 4
cmd_F322.Top = cmd_F323.Top + cmd_F323.Height
cmd_F322.Left = 0
cmd_F322.Width = cmd_F325.Width
cmd_F322.Height = frm_3rdFloor.Height / 10
cmd_F321.Top = cmd_F322.Top + cmd_F322.Height
cmd_F321.Left = 0
cmd_F321.Width = cmd_F325.Width
cmd_F321.Height = frm_3rdFloor.Height / 8
cmd_F320.Top = cmd_F321.Top + cmd_F321.Height
cmd_F320.Left = 0
cmd_F320.Width = cmd_F325.Width
cmd_F320.Height = cmd_F325.Height
cmd_F318.Top = cmd_F320.Top + cmd_F320.Height
cmd_F318.Left = 0
cmd_F318.Width = cmd_F325.Width
cmd_F318.Height = frm_3rdFloor.Height - cmd_F318.Top
cmd_F326.Top = 0
cmd_F326.Left = cmd_F325.Left + cmd_F325.Width
cmd_F326.Width = (shp_TopStairsSquare.Left - cmd_F326.Left) / 2
cmd_F326.Height = shp_TopStairsSquare.Height
cmd_F327.Top = 0
cmd_F327.Left = cmd_F326.Left + cmd_F326.Width
cmd_F327.Width = cmd_F326.Width
cmd_F327.Height = cmd_F326.Height
cmd_F301.Top = 0
cmd_F301.Left = shp_TopStairsSquare.Left + shp_TopStairsSquare.Width
cmd_F301.Width = (frm_3rdFloor.Width * 6 / 7 - shp_TopStairsSquare.Left - _
shp_TopStairsSquare.Width) * 4 / 11
cmd_F301.Height = shp_TopStairsSquare.Height
cmd_F302.Top = 0
cmd_F302.Left = cmd_F301.Left + cmd_F301.Width
cmd_F302.Width = cmd_F301.Width
cmd_F302.Height = cmd_F301.Height
cmd_F303.Top = 0
cmd_F303.Left = cmd_F302.Left + cmd_F302.Width
cmd_F303.Width = cmd_F301.Width * 3 / 4
cmd_F303.Height = cmd_F301.Height
cmd_F304.Top = 0
cmd_F304.Left = frm_3rdFloor.Width * 6 / 7
cmd_F304.Width = frm_3rdFloor.Width / 7
cmd_F304.Height = frm_3rdFloor.Height / 6
cmd_F305.Top = cmd_F304.Height
cmd_F305.Left = cmd_F304.Left
cmd_F305.Width = cmd_F304.Width
cmd_F305.Height = frm_3rdFloor.Height / 6
cmd_F306.Top = cmd_F305.Top + cmd_F305.Height
cmd_F306.Left = cmd_F304.Left
cmd_F306.Width = cmd_F304.Width
cmd_F306.Height = frm_3rdFloor.Height / 9
cmd_F307.Top = cmd_F306.Top + cmd_F306.Height
cmd_F307.Left = cmd_F304.Left
cmd_F307.Width = cmd_F304.Width
cmd_F307.Height = frm_3rdFloor.Height / 18
cmd_F308.Top = cmd_F307.Top + cmd_F307.Height
cmd_F308.Left = cmd_F304.Left
cmd_F308.Width = cmd_F304.Width
cmd_F308.Height = cmd_F306.Height
cmd_F309.Top = cmd_F308.Top + cmd_F308.Height
cmd_F309.Left = cmd_F304.Left
cmd_F309.Width = cmd_F304.Width
cmd_F309.Height = cmd_F308.Height
cmd_F310.Top = cmd_F309.Top + cmd_F309.Height
cmd_F310.Left = cmd_F304.Left
cmd_F310.Width = cmd_F304.Width
cmd_F310.Height = shp_BottomStairsSquare.Top - cmd_F310.Top
cmd_F311.Top = cmd_F310.Top + cmd_F310.Height
cmd_F311.Left = shp_OpenArea.Left + shp_OpenArea.Width
cmd_F311.Width = frm_3rdFloor.Width - cmd_F311.Left
cmd_F311.Height = frm_3rdFloor.Height - cmd_F311.Top
cmd_F313.Top = cmd_F311.Top
cmd_F313.Left = shp_BottomStairsSquare.Left + shp_BottomStairsSquare.Width
cmd_F313.Width = (cmd_F311.Left - cmd_F313.Left) / 2
cmd_F313.Height = cmd_F311.Height
cmd_F312.Top = cmd_F311.Top
cmd_F312.Left = cmd_F313.Left + cmd_F313.Width
cmd_F312.Width = cmd_F313.Width
cmd_F312.Height = cmd_F311.Height
cmd_F315.Top = cmd_F311.Top
cmd_F315.Left = shp_OpenArea.Left
cmd_F315.Width = (shp_BottomStairsSquare.Left - cmd_F315.Left) / 2
cmd_F315.Height = cmd_F311.Height / 2
cmd_F316.Top = cmd_F315.Top + cmd_F315.Height
cmd_F316.Left = cmd_F315.Left
cmd_F316.Width = cmd_F315.Width
cmd_F316.Height = cmd_F315.Height
cmd_F314.Top = cmd_F311.Top
cmd_F314.Left = cmd_F315.Left + cmd_F315.Width
cmd_F314.Width = cmd_F315.Width
cmd_F314.Height = cmd_F311.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_2ndFloor.Top = cmd_1stFloor.Top
cmd_2ndFloor.Left = cmd_1stFloor.Left + cmd_1stFloor.Width
cmd_2ndFloor.Width = cmd_1stFloor.Width
cmd_2ndFloor.Height = cmd_1stFloor.Height
'*****---*****
'*****description*****
'the description of the 3rd 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 = " 3rd Floor " _
& " " _
& "This floor houses the Physics & " _
& "Electronics, Communications and " _
& "Computer Engineering Departments and " _
& "their respective laboratories"
'*****---*****
End Sub
TOP
|