Scribd
Upload
13 views2 pages

Private Sub Form

The document contains a Visual Basic code snippet that draws various lines and circles on a form using different colors and widths. It includes multiple event handlers for the form's click event, which generate random shapes and colors. The code demonstrates graphical drawing techniques in a graphical user interface environment.

Uploaded by

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

Private Sub Form

The document contains a Visual Basic code snippet that draws various lines and circles on a form using different colors and widths. It includes multiple event handlers for the form's click event, which generate random shapes and colors. The code demonstrates graphical drawing techniques in a graphical user interface environment.

Uploaded by

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

Private Sub Form_Click()

Form1.DrawWidth = 1
Form1.ScaleWidth = 10000
Form1.ScaleHeight = 10000
Form1.Line (5000, 0)-(5000, 10000), vbRed
Form1.Line (0, 5000)-(10000, 5000), vbRed

Form1.Line (0, 5000)-(5000, 10000), vbBlue


Form1.Line (500, 5000)-(5000, 10000), vbBlue
Form1.Line (1000, 5000)-(5000, 10000), vbBlue
Form1.Line (1500, 5000)-(5000, 10000), vbBlue
Form1.Line (2000, 5000)-(5000, 10000), vbBlue
Form1.Line (2500, 5000)-(5000, 10000), vbBlue
Form1.Line (3000, 5000)-(5000, 10000), vbBlue
Form1.Line (3500, 5000)-(5000, 10000), vbBlue
Form1.Line (4000, 5000)-(5000, 10000), vbBlue
Form1.Line (4500, 5000)-(5000, 10000), vbBlue

Form1.Line (5500, 5000)-(5000, 10000), vbGreen


Form1.Line (6000, 5000)-(5000, 10000), vbGreen
Form1.Line (6500, 5000)-(5000, 10000), vbGreen
Form1.Line (7000, 5000)-(5000, 10000), vbGreen
Form1.Line (7500, 5000)-(5000, 10000), vbGreen
Form1.Line (8000, 5000)-(5000, 10000), vbGreen
Form1.Line (8500, 5000)-(5000, 10000), vbGreen
Form1.Line (9000, 5000)-(5000, 10000), vbGreen
Form1.Line (9500, 5000)-(5000, 10000), vbGreen
Form1.Line (10000, 5000)-(5000, 10000), vbGreen

Form1.Line (5000, 0)-(0, 5000), vbCyan


Form1.Line (5000, 0)-(500, 5000), vbCyan
Form1.Line (5000, 0)-(1000, 5000), vbCyan
Form1.Line (5000, 0)-(1500, 5000), vbCyan
Form1.Line (5000, 0)-(2000, 5000), vbCyan
Form1.Line (5000, 0)-(2500, 5000), vbCyan
Form1.Line (5000, 0)-(3000, 5000), vbCyan
Form1.Line (5000, 0)-(3500, 5000), vbCyan
Form1.Line (5000, 0)-(4000, 5000), vbCyan
Form1.Line (5000, 0)-(4500, 5000), vbCyan

Form1.Line (5000, 0)-(5500, 5000), vbYellow


Form1.Line (5000, 0)-(6000, 5000), vbYellow
Form1.Line (5000, 0)-(6500, 5000), vbYellow
Form1.Line (5000, 0)-(7000, 5000), vbYellow
Form1.Line (5000, 0)-(7500, 5000), vbYellow
Form1.Line (5000, 0)-(8000, 5000), vbYellow
Form1.Line (5000, 0)-(8500, 5000), vbYellow
Form1.Line (5000, 0)-(9000, 5000), vbYellow
Form1.Line (5000, 0)-(9500, 5000), vbYellow
Form1.Line (5000, 0)-(10000, 5000), vbYellow

Private Sub Form_Click()

Form1.DrawWidth = 1 + 20 * Rnd
Form1.Circle (9500 * Rnd, 9000 * Rnd), 500 * Rnd, QBColor(Rnd * 15)
End Sub

Private Sub Form_Click()

Form1.DrawWidth = 5
Form1.Circle (5000, 5000), 900, vbGreen, bf

Form1.DrawWidth = 3
Form1.Line (1000, 1000)-(2000, 2000), vbRed, BF
Form1.Circle (1000, 9000), 8000, vbGreen, Rnd(0, 1)

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy