Red de conocimiento informático - Material del sitio web - ¿Cómo utilizar VB para escribir una interfaz gráfica de usuario con formato incorrecto o una interfaz gráfica de usuario irregular, y cómo se deben utilizar estos códigos?

¿Cómo utilizar VB para escribir una interfaz gráfica de usuario con formato incorrecto o una interfaz gráfica de usuario irregular, y cómo se deben utilizar estos códigos?

Función de declaración privada CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _

Función API de región ByVal

Función de declaración privada CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _

ByVal X2 As Long, ByVal Y2 As Long) As Long

'Declara una función API que crea un área rectangular que se utilizará para restaurar la ventana a un área rectangular

Función de declaración privada SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, _

ByVal bRedraw As Boolean) As Long

'Declarar la función API para configurar la forma de la ventana

Función de declaración privada DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

'Declarar la función API para lanzamiento para lanzamiento

Dim hRgnC As Long

Dim hRgnR As Long

'Declara variables utilizadas para almacenar identificadores de área elípticas y rectangulares

Private Sub Form_Click()<

hRgnC = CreateEllipticRgn(25, 25, 220, 220) 'Crear un área de forma circular

SetWindowRgn Me.hWnd, hRgnC, True 'Establecer la ventana a un círculo

End Sub

Subformulario privado _DblClick()

hRgnR = CreateRectRgn(0, 0, Me.Width, Me.Height) 'Crear un área rectangular

SetWindowRgn Me.hWnd, hRgnR, True 'Restablece la ventana a un rectángulo y restáurala

End Sub

Private Sub Form_Unload(Cancelar como Entero)

Si hRgnR <> 0 Entonces DeleteObject hRgnR

Si hRgnC <> 0 Entonces DeleteObject hRgnC 'Libera el área de gráficos creada

End Sub