Red de conocimiento informático - Material del sitio web - Cómo hacer que los controles de formulario sean transparentes en VB

Cómo hacer que los controles de formulario sean transparentes en VB

'Establecer

Borde del

formulario

en

Ninguno.'

'Agregar

Sonido

Parte de

Forma

a

Parte

con

Parte

de

El

Código

Privado

Privado

Abajo

Siguiente

Sustituir

Código

Privado

Declarar

Función

SetWindowLong

Lib

"user32"

Alias

_

"SetWindowLongA "

(ByVal

hwnd

Como

Largo,

ByVal

nIndex

Como

Long,

_

ByVal

dwNewLong

Como

Largo)

Como

Largo

Privado

Declarar

Función

SetParent

Lib

"usuario32"

(ByVal

hWndChild

_

Tan

Long,

ByVal

hWndNewParent

Tan

Long) <

Como

Largo

Const

WS_EX_TRANSPARENT

=

amp; H20amp;

Const

GWL_EXSTYLE

=

(-)20)

Finalmente

Después

Agregar

al

formulario

como

el

siguiente

Sustituir

Código

Privado

Sub

Form_Load()<

SetWindowLong

hwnd,

GWL_EXSTYLE,

WS_EX_TRANSPARENT

Fin

Sub