Scribd
Upload
29 views3 pages

Imports Public Class Dim As Dim As Dim As Dim As Dim As New Private Sub As Object As Handles

The document contains code for drawing different shapes and text on a picture box using graphics methods. It defines pens, brushes and a font, and includes code to draw: 1) Text and an ellipse with transparency. 2) A triangle by drawing 3 lines. 3) Text, an arrow and a cube by drawing lines and rectangles.

Uploaded by

Gabo Medina Loaiza
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
29 views3 pages

Imports Public Class Dim As Dim As Dim As Dim As Dim As New Private Sub As Object As Handles

The document contains code for drawing different shapes and text on a picture box using graphics methods. It defines pens, brushes and a font, and includes code to draw: 1) Text and an ellipse with transparency. 2) A triangle by drawing 3 lines. 3) Text, an arrow and a cube by drawing lines and rectangles.

Uploaded by

Gabo Medina Loaiza
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/ 3

Imports System.

Drawing
Public Class Form1
Dim grafico As Graphics
Dim pluma As Pen
Dim brocha As SolidBrush
Dim brocha1 As SolidBrush
Dim fuente As New Font("verdana", 12, FontStyle.Bold)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
grafico = PictureBox1.CreateGraphics
pluma = New Pen(Brushes.Red, 4)
brocha = New SolidBrush(Color.Red)
grafico.DrawString("TRANSPARENCIAS", fuente, brocha, 10, 10)
brocha.Color = Color.FromArgb(123, 255, 255, 0)
'tranparencia,combinacion de colores
grafico.FillEllipse(brocha, 40, 30, 100, 100)
grafico.DrawEllipse(pluma, 40, 30, 100, 100)
brocha1 = New SolidBrush(Color.Red)
brocha1.Color = Color.FromArgb(225, 100, 100, 100)
grafico.FillRectangle(brocha1, 10, 60, 100, 100)
grafico.DrawRectangle(pluma, 10, 60, 100, 100)

End Sub
End Class

Imports System.Drawing
Public Class Form1
Dim grafico As Graphics
Dim pluma As Pen
Dim brocha As SolidBrush
Dim brocha1 As SolidBrush
Dim fuente As New Font("verdana", 12, FontStyle.Bold)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
grafico = PictureBox1.CreateGraphics
pluma = New Pen(Brushes.Red, 4)
brocha = New SolidBrush(Color.Red)
grafico.DrawString("TRIANGULO", fuente, brocha, 10, 10)
brocha.Color = Color.FromArgb(123, 255, 255, 0)
'tranparencia,combinacion de colores
grafico.DrawLine(pluma, 40, 50, 100, 200)
grafico.DrawLine(pluma, 145, 50, 100, 200)
grafico.DrawLine(pluma, 40, 50, 145, 50)

End Sub
End Class

Imports System.Drawing
Public Class Form1
Dim grafico As Graphics
Dim pluma As Pen
Dim brocha As SolidBrush
Dim brocha1 As SolidBrush
Dim fuente As New Font("verdana", 12, FontStyle.Bold)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
grafico = PictureBox1.CreateGraphics
pluma = New Pen(Brushes.Red, 4)
brocha = New SolidBrush(Color.Red)
grafico.DrawString("FLECHA CUBO", fuente, brocha,
10, 10)
brocha.Color = Color.FromArgb(123, 255, 255, 0)
'tranparencia,combinacion de colores
grafico.DrawLine(pluma, 63, 50, 127, 50)
grafico.DrawLine(pluma, 63, 70, 63, 50)
grafico.DrawLine(pluma, 127, 70, 127, 50)
grafico.DrawLine(pluma, 40, 70, 100, 200)
grafico.DrawLine(pluma, 145, 70, 100, 200)
grafico.DrawLine(pluma, 40, 70, 145, 70)
grafico.FillRectangle(brocha, 200, 70, 100, 100)
grafico.DrawRectangle(pluma, 200, 70, 100, 100)
grafico.FillRectangle(brocha, 240, 40, 100, 100)
grafico.DrawRectangle(pluma, 240, 40, 100, 100)
grafico.DrawLine(pluma, 200, 70, 240, 40)
grafico.DrawLine(pluma, 300, 70, 340, 40)
grafico.DrawLine(pluma, 300, 170, 340, 140)
grafico.DrawLine(pluma, 200, 170, 240, 140)

End Sub
End Class

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