CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Como Hacer Para La Linea De Quede Media Ovalada

(1/1)

Cajami:
Hola, gueno no se si el titulo será ese pero lo que quiero hacer es esto:

estoy haciendo un reporte con los controles prinddocument, previwprindialog, y ps adjunto para que vean que es lo hasta el momento estoy haciendo, vean donde dice Ficha de Ratificación de Matrícula está encerrado por un cuadrado pero no deberia ser un cuadrado normal debe tener las puntas ovaladas asi como está en la imgen de abajo como lograr ese efecto???, de antemano muchas gracias, nos vemos :hola:

Nebire:
Esto se hacía fácilmente desde VB6 con un control shape manejando su propiedad shape  al valor 4 'rounded rectangle'.

En vb.net no ha permanecido el control, por tanto hay que  hacerlo manualmente con line y circle o arc después de todo son 4 líneas y 4 arcos de 90º con un radio que puedes variar a voluntad.

Te pego un ejemplo que variandolo te da lo que necesitas. Fíjate que:
1) el grueso de línea lo he puesto en 4
2) he usado un color azul.
3) se importa desde system.graphics y hay muchas opciones en system.graphics,graphics2D (pulsa 'f2' y localiza la clase graphics2D).
4) He hecho un garabato irregular de ejemplo.
5) puedes digujarlo paso a paso (f11 en debug) o comentado las líneas...



   

--- Código: Text ---   Imports a = System.DrawingPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim ruta As New a.Drawing2D.GraphicsPath()        Dim g As Graphics        g = Me.CreateGraphics         'añade arco(coorX,coorY,ancho,alto,anguloIni,angulofinal)        'ruta.AddArc(10, 10, 150, 150, -33, 150)         'dibuja con la pluma(color azul,ancho 4,según la ruta definida anteriormente.        'g.DrawPath(New Pen(Color.Blue, 4), ruta)         ruta.AddLine(20, 20, 100, 20)            'recta de arriba        g.DrawPath(New Pen(Color.Blue, 4), ruta) 'la dibuja        ruta.AddArc(100, 20, 30, 30, -90, 90)    'curva superior derecha        g.DrawPath(New Pen(Color.Blue, 4), ruta) 'la dibuja         ruta.AddLine(130, 50, 130, 80)         'linea derecha (de arriba a abajo)        g.DrawPath(New Pen(Color.Blue, 4), ruta) 'la dibuja        ruta.AddArc(130, 80, 30, 30, -90, 180)    'curva inferior derecha (un bulto)        g.DrawPath(New Pen(Color.Blue, 4), ruta) 'la dibuja         ruta.AddLine(160, 110, 20, 20)          'uno todo para terminar        g.DrawPath(New Pen(Color.Blue, 4), ruta) 'la dibuja     End SubEnd Class 
Saludos.

Navegación

[0] Índice de Mensajes