Scribd
Upload
20 views2 pages

Menu Editor

The document contains a series of Visual Basic subroutines that modify the properties of a shape object named Shape1. These subroutines allow users to change the size, border color, fill color, and border width of the shape through various menu options. Additionally, there is a subroutine to exit the form.

Uploaded by

Zahid
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
20 views2 pages

Menu Editor

The document contains a series of Visual Basic subroutines that modify the properties of a shape object named Shape1. These subroutines allow users to change the size, border color, fill color, and border width of the shape through various menu options. Additionally, there is a subroutine to exit the form.

Uploaded by

Zahid
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Seat No :

Private Sub mnuBig_Click()


Shape1.Height = 2000
Shape1.Width = 2000
End Sub

Private Sub mnuBlue_Click()


Shape1.BorderColor = vbBlue
End Sub

Private Sub mnuDefault_Click()


Shape1.FillStyle = 1
Shape1.BorderWidth = 2
Shape1.BorderColor = vbBlack
Shape1.Height = 1000
Shape1.Width = 1000
End Sub

Private Sub mnuExit_Click()


Unload Me
End Sub

Private Sub mnuFBlue_Click()


Shape1.FillStyle = 0
Shape1.FillColor = vbBlue
End Sub

Private Sub mnuFGreen_Click()


Shape1.FillStyle = 0
Shape1.FillColor = vbGreen

End Sub
Private Sub mnuFRed_Click()
Shape1.FillStyle = 0
Shape1.FillColor = vbRed
End Sub
Private Sub mnuGreen_Click()
Shape1.BorderColor = vbGreen
End Sub

Private Sub mnuMedium_Click()


Shape1.Height = 1500
Shape1.Width = 1500
End Sub
Private Sub mnuRed_Click()
Shape1.BorderColor = vbRed
End Sub

Private Sub mnuSmall_Click()


Shape1.Height = 600
Shape1.Width = 600
End Sub

Private Sub mnuThick_Click()


Shape1.BorderWidth = 4
End Sub

Private Sub mnuThicker_Click()


Shape1.BorderWidth = 10
End Sub

Private Sub mnuThin_Click()


Shape1.BorderWidth = 1
End Sub

Output :

You might also like