Aqui el codigo para crear la transparencia de un form. buscado en
GoogleProvocar la Transparencia de un Form
Insertar el siguiente Codigo en un Modulo:
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Nota: Debe estar todo en una sola linea (Usar el Visor de Texto API, que viene con Visual Basic)
Insertar el siguiente Codigo en CommandButton para probar:
Private Sub Command1_Click()
Dim Resp As Long
Resp = SetWindowLong(Me.hWnd, -20, &H20&)
Form1.Refresh
End Sub
Arreglo sugerido:
En un módulo:
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const WS_EX_TRANSPARENT = &H20&
Public Const GWL_HINSTANCE = (-6)
Public Const GWL_EXSTYLE = (-20)
Public Const GWL_HWNDPARENT = (-8)
Public Const GWL_ID = (-12)
Public Const GWL_STYLE = (-16)
Public Const GWL_USERDATA = (-21)
Public Const GWL_WNDPROC = (-4)
y en el Form_Load
Call SetWindowLong(Form1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
Mostrar Mensajes
