En vez de imprimir una línea con BF, pinta 4 líneas a modo de cuadrado, pero sin que lleguen a juntarse, dejando entre ellas una separación igual al radio de la esquina redondeada. Utiliza luego el método
Circle, una vez para cada esquina, indicando en los parámetros
Inicio y
fin el valor en radianes del angulo formado por el arco que deseas trazar.
Por ejemplo, este código dibuja en un PictureBox de (3800 x 3800 twips p.e.) un cuadrado de esquinas redondeadas:
Const PI = 3.141516
Picture1.Cls
Picture1.Line (600, 100)-(3100, 100)
Picture1.Line (100, 600)-(100, 3100)
Picture1.Line (3600, 600)-(3600, 3100)
Picture1.Line (600, 3600)-(3100, 3600)
Picture1.Circle (600, 600), 500, , PI / 2, PI
Picture1.Circle (3100, 600), 500, , 0, PI / 2
Picture1.Circle (3100, 3100), 500, , 3 * PI / 2, 0
Picture1.Circle (600, 3100), 500, , PI, 3 * PI / 2
Chao.
