Ejemplos usando el Api de windows para Visual basic

124 - Api RoundRect

Volver al Listado Api - Anterior - Siguiente

Esta función permite dibujar rectángulos con esquinas redondeadas.

Para el ejemplo colocar los siguientes controles :

Un arreglo de controles HsCrollBar: HScroll1(0), HScroll1(1), HScroll1(2), HScroll1(3), que son los valores para x2, y2, x3 e y3.
Un control Picturebox

Código fuente en el form:

Option Explicit 'DEclaración del Api RoundRect Private Declare Function RoundRect _ Lib "gdi32" ( _ ByVal hdc As Long, _ ByVal X1 As Long, _ ByVal Y1 As Long, _ ByVal X2 As Long, _ ByVal Y2 As Long, _ ByVal X3 As Long, _ ByVal Y3 As Long) As Long Private Sub Form_Load() With Picture1 .DrawWidth = 2 .AutoRedraw = True .ScaleMode = 3 .ForeColor = vbBlue End With HScroll1(0).Max = Picture1.ScaleWidth - 50 HScroll1(1).Max = Picture1.ScaleHeight - 50 HScroll1(2).Max = 2000 HScroll1(3).Max = 500 End Sub Private Sub HScroll1_Change(Index As Integer) Picture1.Cls Call RoundRect(Picture1.hdc, 50, 50, _ HScroll1(0).Value, _ HScroll1(1).Value, _ HScroll1(2).Value, _ HScroll1(3).Value) End Sub

Enlaces relacionados

Dibujar con Métodos gráficos en vb

Buscar en Recursos vb