TOP
First Floor Frm
VERSION 5.00
Begin VB.Form frm_1stFloor
BackColor = &H00808080&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 10080
ClientLeft = 45
ClientTop = 45
ClientWidth = 10305
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 10080
ScaleWidth = 10305
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
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 = 5325
TabIndex = 19
Top = 5700
Width = 1440
End
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 = 2925
TabIndex = 18
Top = 5700
Width = 1440
End
Begin VB.CommandButton cmd_F109
BackColor = &H00008080&
Caption = "F109"
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 = 5760
Style = 1 'Graphical
TabIndex = 17
Top = 7680
Width = 795
End
Begin VB.CommandButton cmd_F110
BackColor = &H00C000C0&
Caption = "F110"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 3480
Style = 1 'Graphical
TabIndex = 16
Top = 7380
Width = 1035
End
Begin VB.CommandButton cmd_F111
BackColor = &H00C000C0&
Caption = "F111"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 2460
Style = 1 'Graphical
TabIndex = 15
Top = 7380
Width = 915
End
Begin VB.CommandButton cmd_F108
BackColor = &H00008080&
Caption = "F108"
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 = 7020
Style = 1 'Graphical
TabIndex = 14
Top = 7500
Width = 2235
End
Begin VB.CommandButton cmd_F107
BackColor = &H00FF8080&
Caption = "F107"
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 = 7020
Style = 1 'Graphical
TabIndex = 13
Top = 5940
Width = 2235
End
Begin VB.CommandButton cmd_F106
BackColor = &H000040C0&
Caption = "F106"
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 = 7500
Style = 1 'Graphical
TabIndex = 12
Top = 5340
Width = 1755
End
Begin VB.CommandButton cmd_F105
BackColor = &H00808000&
Caption = "F105"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1455
Left = 7560
Style = 1 'Graphical
TabIndex = 11
Top = 3840
Width = 1695
End
Begin VB.CommandButton cmd_F104
BackColor = &H00808000&
Caption = "F104"
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 = 7560
Style = 1 'Graphical
TabIndex = 10
Top = 2280
Width = 1695
End
Begin VB.CommandButton cmd_F103
BackColor = &H00008000&
Caption = "F103"
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 = 7560
Style = 1 'Graphical
TabIndex = 9
Top = 1320
Width = 1695
End
Begin VB.CommandButton cmd_F102
BackColor = &H00C000C0&
Caption = "F102"
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 = 8340
Style = 1 'Graphical
TabIndex = 8
Top = 60
Width = 975
End
Begin VB.CommandButton cmd_F101
BackColor = &H00C000C0&
Caption = "F101"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 795
Left = 6900
Style = 1 'Graphical
TabIndex = 7
Top = 90
Width = 1455
End
Begin VB.CommandButton cmd_F113
BackColor = &H000040C0&
Caption = "F113"
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 = 75
Style = 1 'Graphical
TabIndex = 6
Top = 6480
Width = 975
End
Begin VB.CommandButton cmd_F114
BackColor = &H000040C0&
Caption = "F114"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 60
Style = 1 'Graphical
TabIndex = 5
Top = 5100
Width = 975
End
Begin VB.CommandButton cmd_F115
BackColor = &H000040C0&
Caption = "F115"
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 = 60
Style = 1 'Graphical
TabIndex = 4
Top = 3840
Width = 975
End
Begin VB.CommandButton cmd_F116
BackColor = &H000040C0&
Caption = "F116"
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 = 60
Style = 1 'Graphical
TabIndex = 3
Top = 2580
Width = 975
End
Begin VB.CommandButton cmd_F117
BackColor = &H000040C0&
Caption = "F117"
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 = 60
Style = 1 'Graphical
TabIndex = 2
Top = 1320
Width = 975
End
Begin VB.CommandButton cmd_F118
BackColor = &H00808000&
Caption = "F118"
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 = 60
Style = 1 'Graphical
TabIndex = 1
Top = 60
Width = 1035
End
Begin VB.CommandButton cmd_dummy
Caption = "Dummy"
Default = -1 'True
Height = 675
Index = 0
Left = 300
TabIndex = 0
Top = 6780
Width = 435
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 = 3555
TabIndex = 20
Top = 2880
UseMnemonic = 0 'False
Width = 2670
End
Begin VB.Line lin_BottomStairsLine4
BorderWidth = 2
X1 = 4500
X2 = 5025
Y1 = 7875
Y2 = 7875
End
Begin VB.Line lin_BottomStairsLine3
BorderWidth = 2
X1 = 5025
X2 = 4575
Y1 = 7725
Y2 = 7725
End
Begin VB.Line lin_BottomStairsLine2
BorderWidth = 2
X1 = 5025
X2 = 4575
Y1 = 7575
Y2 = 7575
End
Begin VB.Line lin_BottomStairsLine1
BorderWidth = 2
X1 = 5025
X2 = 4575
Y1 = 7425
Y2 = 7425
End
Begin VB.Line lin_TopStairsLine1
BorderWidth = 2
X1 = 4950
X2 = 5475
Y1 = 1050
Y2 = 1050
End
Begin VB.Line lin_TopStairsLine2
BorderWidth = 2
X1 = 4950
X2 = 5475
Y1 = 900
Y2 = 900
End
Begin VB.Line lin_TopStairsLine3
BorderWidth = 2
X1 = 4950
X2 = 5550
Y1 = 750
Y2 = 750
End
Begin VB.Line lin_TopStairsLine4
BorderWidth = 2
X1 = 4950
X2 = 5550
Y1 = 600
Y2 = 600
End
Begin VB.Line lin_TopStairsDivider
BorderWidth = 2
X1 = 4950
X2 = 4950
Y1 = 600
Y2 = 1200
End
Begin VB.Line lin_BottomStairsDivider
BorderWidth = 2
X1 = 5025
X2 = 5025
Y1 = 7350
Y2 = 7875
End
Begin VB.Line lin_BottomStepsLine2
BorderWidth = 2
X1 = 5925
X2 = 5925
Y1 = 6975
Y2 = 7350
End
Begin VB.Line lin_BottomStepsLine1
BorderWidth = 2
X1 = 5700
X2 = 5700
Y1 = 6975
Y2 = 7350
End
Begin VB.Line lin_RightStepsLine2
BorderWidth = 2
X1 = 6975
X2 = 7425
Y1 = 5550
Y2 = 5550
End
Begin VB.Line lin_RightStepsLine1
BorderWidth = 2
X1 = 6975
X2 = 7425
Y1 = 5400
Y2 = 5400
End
Begin VB.Line lin_TopRightLine
BorderWidth = 2
X1 = 5550
X2 = 6825
Y1 = 1050
Y2 = 1050
End
Begin VB.Line lin_TopLeftLine
BorderWidth = 2
X1 = 4440
X2 = 3240
Y1 = 1050
Y2 = 1050
End
Begin VB.Line lin_Line
BorderWidth = 2
X1 = 2760
X2 = 2760
Y1 = 120
Y2 = 2280
End
Begin VB.Shape shp_TopRightSquare
BorderWidth = 2
Height = 375
Left = 5520
Top = 840
Width = 1335
End
Begin VB.Shape shp_TopLeftSquare
BorderWidth = 2
Height = 375
Left = 3240
Top = 840
Width = 1215
End
Begin VB.Shape shp_RightStepsSquare
BorderWidth = 2
Height = 495
Left = 6960
Top = 5280
Width = 495
End
Begin VB.Shape shp_BottomStepsSquare
BorderWidth = 2
Height = 375
Left = 5550
Top = 6960
Width = 615
End
Begin VB.Shape shp_TopStairsSquare
BorderWidth = 2
Height = 975
Left = 4425
Top = 225
Width = 1095
End
Begin VB.Shape shp_BottomStairsSquare
BorderWidth = 2
Height = 855
Left = 4560
Top = 7320
Width = 975
End
Begin VB.Shape shp_OpenArea
BorderWidth = 2
FillColor = &H00C00000&
FillStyle = 0 'Solid
Height = 3855
Left = 2820
Top = 2340
Width = 4155
End
End
Attribute VB_Name = "frm_1stfloor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'this form gives the floor layout of the 1st 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_2ndFloor_Click()
lbl_Description.Caption = " 1st Floor " _
& " " _
& "This floor houses the general classrooms " _
& "Physics laboratories and the Faura AVR"
frm_1stfloor.Hide
frm_2ndFloor.Show
Call delayer
End Sub
Public Sub cmd_3rdFloor_Click()
lbl_Description.Caption = " 1st Floor " _
& " " _
& "This floor houses the general classrooms " _
& "Physics laboratories and the Faura AVR"
frm_1stfloor.Hide
frm_3rdFloor.Show
Call delayer
End Sub
Public Sub cmd_F101_Click()
lbl_Description.Caption = " F101 " _
& " " _
& "Ladies' Comfort Room"
End Sub
Public Sub cmd_F102_Click()
lbl_Description.Caption = " F102 " _
& " " _
& "Men's Comfort Room"
End Sub
Public Sub cmd_F103_Click()
lbl_Description.Caption = " F103 " _
& " " _
& "Physics Faculty Room"
End Sub
Public Sub cmd_F104_Click()
lbl_Description.Caption = " F104 " _
& " " _
& "Vacuum Laboratory"
End Sub
Public Sub cmd_F105_Click()
lbl_Description.Caption = " F105 " _
& " " _
& "Photonics Laboratory"
End Sub
Public Sub cmd_F106_Click()
lbl_Description.Caption = " F106 " _
& " " _
& " IBM Room"
End Sub
Public Sub cmd_F107_Click()
lbl_Description.Caption = " F107 " _
& " " _
& "Faura Audio-Visual Room"
End Sub
Public Sub cmd_F108_Click()
lbl_Description.Caption = " F108 " _
& " " _
& "Faura AVR Technician's Room"
End Sub
Public Sub cmd_F109_Click()
lbl_Description.Caption = " F109 " _
& " " _
& "Janitor's Room"
End Sub
Public Sub cmd_F110_Click()
lbl_Description.Caption = " F110 " _
& " " _
& "Men's Comfort Room"
End Sub
Public Sub cmd_F111_Click()
lbl_Description.Caption = " F111 " _
& " " _
& "Ladies' Comfort Room"
End Sub
Public Sub cmd_F113_Click()
lbl_Description.Caption = " F113 " _
& " " _
& "General Classroom"
End Sub
Public Sub cmd_F114_Click()
lbl_Description.Caption = " F114 " _
& " " _
& "General Classroom"
End Sub
Public Sub cmd_F115_Click()
lbl_Description.Caption = " F115 " _
& " " _
& "General Classroom"
End Sub
Public Sub cmd_F116_Click()
lbl_Description.Caption = " F116 " _
& " " _
& "General Classroom"
End Sub
Public Sub cmd_F117_Click()
lbl_Description.Caption = " F117 " _
& " " _
& "General Classroom"
End Sub
Public Sub cmd_F118_Click()
lbl_Description.Caption = " F118 " _
& " " _
& "Material Physics Laboratory"
End Sub
Private Sub Form_Load()
'form properties
frm_1stfloor.Top = 0
frm_1stfloor.Left = Screen.Width / 4
frm_1stfloor.Width = Screen.Width * 3 / 4
frm_1stfloor.Height = Screen.Height
'*****1st floor properties*****
'first floor layout
'defines the shape and sizes of the rooms and areas in the first 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
cmd_F118.Top = 0
cmd_F118.Left = 0
cmd_F118.Width = frm_1stfloor.Width / 6
cmd_F118.Height = frm_1stfloor.Height / 5
cmd_F117.Top = cmd_F118.Height
cmd_F117.Left = 0
cmd_F117.Width = cmd_F118.Width
cmd_F117.Height = frm_1stfloor.Height * 4 / 25
cmd_F116.Top = cmd_F117.Height + cmd_F118.Height
cmd_F116.Left = 0
cmd_F116.Width = cmd_F118.Width
cmd_F116.Height = cmd_F117.Height
cmd_F115.Top = (cmd_F117.Height * 2) + cmd_F118.Height
cmd_F115.Left = 0
cmd_F115.Width = cmd_F118.Width
cmd_F115.Height = cmd_F117.Height
cmd_F114.Top = (cmd_F117.Height * 3) + cmd_F118.Height
cmd_F114.Left = 0
cmd_F114.Width = cmd_F118.Width
cmd_F114.Height = cmd_F117.Height
cmd_F113.Top = (cmd_F117.Height * 4) + cmd_F118.Height
cmd_F113.Left = 0
cmd_F113.Width = cmd_F118.Width
cmd_F113.Height = cmd_F117.Height
cmd_F102.Top = 0
cmd_F102.Left = ((frm_1stfloor.Width * 10) / 13) + (frm_1stfloor.Width / 8)
cmd_F102.Width = frm_1stfloor.Width / 10
cmd_F102.Height = (frm_1stfloor.Height * 1) / 7
cmd_F101.Top = 0
cmd_F101.Left = (frm_1stfloor.Width * 10) / 13
cmd_F101.Width = frm_1stfloor.Width / 8
cmd_F101.Height = frm_1stfloor.Height / 9
cmd_F103.Top = cmd_F102.Height
cmd_F103.Left = frm_1stfloor.Width * 11 / 13
cmd_F103.Width = frm_1stfloor.Width * 15 / 101
cmd_F103.Height = frm_1stfloor.Height / 10
cmd_F104.Top = cmd_F103.Top + cmd_F103.Height
cmd_F104.Left = cmd_F103.Left
cmd_F104.Width = cmd_F103.Width
cmd_F104.Height = frm_1stfloor.Height / 6
cmd_F105.Top = cmd_F104.Top + cmd_F104.Height
cmd_F105.Left = cmd_F103.Left
cmd_F105.Width = cmd_F103.Width
cmd_F105.Height = cmd_F104.Height
cmd_F106.Top = cmd_F105.Top + cmd_F105.Height
cmd_F106.Left = cmd_F103.Left
cmd_F106.Width = cmd_F103.Width
cmd_F106.Height = frm_1stfloor.Height / 8
cmd_F107.Top = cmd_F106.Top + cmd_F106.Height
cmd_F107.Left = shp_OpenArea.Left + shp_OpenArea.Width
cmd_F107.Width = frm_1stfloor.Width * 23 / 106
cmd_F107.Height = frm_1stfloor.Height / 5
cmd_F108.Top = cmd_F107.Top + cmd_F107.Height
cmd_F108.Left = cmd_F107.Left
cmd_F108.Width = cmd_F107.Width
cmd_F108.Height = frm_1stfloor.Height - (cmd_F107.Height + cmd_F107.Top)
cmd_F111.Top = frm_1stfloor.Height * 8 / 9
cmd_F111.Left = shp_OpenArea.Left - 300
cmd_F111.Width = frm_1stfloor.Width / 9
cmd_F111.Height = frm_1stfloor.Height - cmd_F111.Top
cmd_F110.Top = cmd_F111.Top
cmd_F110.Left = cmd_F111.Left + cmd_F111.Width
cmd_F110.Width = cmd_F111.Width
cmd_F110.Height = cmd_F111.Height
'*****Bottom Stairs*****
shp_BottomStairsSquare.Top = cmd_F111.Top
shp_BottomStairsSquare.Left = cmd_F110.Left + cmd_F110.Width
shp_BottomStairsSquare.Width = cmd_F101.Width
shp_BottomStairsSquare.Height = 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 = lin_BottomStairsDivider.X1
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 = lin_TopStairsDivider.X1
lin_TopStairsLine1.X2 = (shp_TopStairsSquare.Width / 2) _
+ lin_TopStairsDivider.X1 - 10
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
'*****---*****
'*****Bottom Steps*****
shp_BottomStepsSquare.Top = shp_OpenArea.Top + shp_OpenArea.Height
shp_BottomStepsSquare.Left = shp_BottomStairsSquare.Left _
+ shp_BottomStairsSquare.Width
shp_BottomStepsSquare.Width = cmd_F109.Width * 3 / 4
shp_BottomStepsSquare.Height = cmd_F111.Top - shp_BottomStepsSquare.Top
lin_BottomStepsLine1.X1 = shp_BottomStepsSquare.Left _
+ shp_BottomStepsSquare.Width / 3
lin_BottomStepsLine1.X2 = lin_BottomStepsLine1.X1
lin_BottomStepsLine1.Y1 = shp_BottomStepsSquare.Top
lin_BottomStepsLine1.Y2 = lin_BottomStepsLine1.Y1 _
+ shp_BottomStepsSquare.Height - 20
lin_BottomStepsLine2.X1 = lin_BottomStepsLine1.X1 _
+ shp_BottomStepsSquare.Width / 3
lin_BottomStepsLine2.X2 = lin_BottomStepsLine2.X1
lin_BottomStepsLine2.Y1 = lin_BottomStepsLine1.Y1
lin_BottomStepsLine2.Y2 = lin_BottomStepsLine1.Y2
'*****---*****
'*****Right Steps*****
shp_RightStepsSquare.Top = cmd_F106.Top + cmd_F106.Height * 1 / 3
shp_RightStepsSquare.Left = shp_OpenArea.Left + shp_OpenArea.Width
shp_RightStepsSquare.Width = cmd_F106.Left - shp_RightStepsSquare.Left - 10
shp_RightStepsSquare.Height = cmd_F106.Height * 2 / 7
lin_RightStepsLine1.X1 = shp_RightStepsSquare.Left
lin_RightStepsLine1.X2 = lin_RightStepsLine1.X1 + shp_RightStepsSquare.Width - 10
lin_RightStepsLine1.Y1 = shp_RightStepsSquare.Top + shp_RightStepsSquare.Height / 3
lin_RightStepsLine1.Y2 = lin_RightStepsLine1.Y1
lin_RightStepsLine2.X1 = shp_RightStepsSquare.Left
lin_RightStepsLine2.X2 = lin_RightStepsLine1.X2 - 10
lin_RightStepsLine2.Y1 = lin_RightStepsLine1.Y1 + shp_RightStepsSquare.Height / 3
lin_RightStepsLine2.Y2 = lin_RightStepsLine2.Y1
'*****---*****
'*****Top Right steps*****
shp_TopRightSquare.Top = shp_TopStairsSquare.Height * 5 / 7
shp_TopRightSquare.Left = shp_TopStairsSquare.Left + shp_TopStairsSquare.Width _
- 20
shp_TopRightSquare.Width = cmd_F101.Left - shp_TopRightSquare.Left
shp_TopRightSquare.Height = (shp_TopStairsSquare.Height * 2 / 7) - 10
lin_TopRightLine.X1 = shp_TopRightSquare.Left
lin_TopRightLine.X2 = lin_TopRightLine.X1 + shp_TopRightSquare.Width
lin_TopRightLine.Y1 = shp_TopRightSquare.Top + shp_TopRightSquare.Height / 2
lin_TopRightLine.Y2 = lin_TopRightLine.Y1
'*****----*****
'*****Top left border*****
lin_Line.X1 = shp_OpenArea.Left
lin_Line.X2 = lin_Line.X1
lin_Line.Y1 = 0
lin_Line.Y2 = shp_TopRightSquare.Top + shp_TopRightSquare.Height - 10
'*****---*****
'*****top left steps*****
shp_TopLeftSquare.Top = shp_TopRightSquare.Top
shp_TopLeftSquare.Left = lin_Line.X1
shp_TopLeftSquare.Width = shp_TopStairsSquare.Left - lin_Line.X1
shp_TopLeftSquare.Height = shp_TopRightSquare.Height
lin_TopLeftLine.X1 = shp_TopLeftSquare.Left
lin_TopLeftLine.X2 = lin_TopLeftLine.X1 + shp_TopLeftSquare.Width - 10
lin_TopLeftLine.Y1 = shp_TopLeftSquare.Top + shp_TopLeftSquare.Height / 2
lin_TopLeftLine.Y2 = lin_TopLeftLine.Y1
'*****---*****
cmd_F109.Top = cmd_F108.Top
cmd_F109.Left = shp_BottomStairsSquare.Left + shp_BottomStairsSquare.Width
cmd_F109.Width = cmd_F111.Width
cmd_F109.Height = cmd_F108.Height
'*****change floor buttons*****
cmd_2ndFloor.Top = shp_OpenArea.Top + (shp_OpenArea.Height * 7 / 8)
cmd_2ndFloor.Left = shp_OpenArea.Left * 7 / 5
cmd_2ndFloor.Width = shp_OpenArea.Width / 3
cmd_2ndFloor.Height = shp_OpenArea.Height / 9
cmd_3rdFloor.Top = cmd_2ndFloor.Top
cmd_3rdFloor.Left = cmd_2ndFloor.Left + cmd_2ndFloor.Width
cmd_3rdFloor.Width = cmd_2ndFloor.Width
cmd_3rdFloor.Height = cmd_2ndFloor.Height
'*****---*****
'*****description*****
'the description of the 1st 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 = " 1st Floor " _
& " " _
& "This floor houses the general classrooms " _
& "Physics laboratories and the Faura AVR"
'*****---*****
End Sub
TOP
|