Volver al Inicio Microsoft Student Tech Club: Universidad Libre

Línea entrecortada en Visual Basic .NET 2008

Este es el resultado


El código es el siguiente

OJO, debe importar una librería primero

Imports System.Drawing.Drawing2D 'Necesario para la clase DashCap y DashStyle

Y este es el código que va dentro del paint

 'Necesario para los gráficos GDI+
Dim objGrafico As Graphics
objGrafico = e.Graphics

'Objeto lapiz inicializado
Dim objLapiz As Pen
objLapiz = New Pen(Color.Blue)

'Asigna un nuevo color
objLapiz.Color = Color.Green

'Ancho del trazo
objLapiz.Width = 7

'Estilo de la línea entrecortada
objLapiz.DashCap = DashCap.Round
objLapiz.DashStyle = DashStyle.Dash

'Dibuja una línea entrecortada
objGrafico.DrawLine(objLapiz, 10, 10, 250, 250)

 

Volver al Inicio Célula Microsoft. Universidad Libre