Red de conocimiento informático - Material del sitio web - ¿Cómo modificar la forma del botón en VB?

¿Cómo modificar la forma del botón en VB?

Es un poco complicado, pero puedo cambiarlo a una elipse o un círculo y crear un nuevo comando1 'Declaración de función para establecer la forma elíptica

Función de declaración privada CreateEllipticRgn Lib "gdi32 " (ByVal X1 mientras, _

ByVal Y1 mientras, ByVal X2 mientras, ByVal Y2 mientras) Mientras

Función de declaración privada SetWindowRgn Lib "user32" (ByVal hWnd Mientras, _

ByVal hRgn Mientras, ByVal bRedraw Mientras) Mientras LongPrivate Sub Form_Load()

Dim a, b Mientras

Dim w, h As Long

h = Comando1.Alto / 15' Alto y diámetro del círculo = Comando1.Alto

w = Comando1.Ancho / 15' Ancho y diámetro del círculo = h

a = CreateEllipticRgn( 0, 0, w, h)

b = SetWindowRgn(Command1.hWnd, a, True) 'Establece Command1 en un círculo

End Sub