Transparencia como es?

[astaroth_15]

buenas, estoy intentando hacer un programita que este el 50% transparente, pero no consigo hacerlo, solo quiero que este al 50% y que este visible, osea que no se pueda minimizar, gracias de antemano un saludo

[Zeroql]

lo que estas pidiendo es que la mitad del form sea tranparente y la otra no. si es eso te recomiendo que pongas el form transparente y luego colokes un picture o un image con alguna imagen dentro y que se lleve la mitad de grande el form. ya que lo que pides aun no se conce en la intranet

[astaroth_15]

no ya, si eso lo se xd, pero el problema, es como ponerlo transparente

[Zeroql]

Aqui el codigo para crear la transparencia de un form. buscado en Google

Provocar la Transparencia de un Form

Insertar el siguiente Codigo en un Modulo:

Código [Seleccionar] Expandir


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:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim Resp As Long
    Resp = SetWindowLong(Me.hWnd, -20, &H20&)
    Form1.Refresh
End Sub
 
Arreglo sugerido:

En un módulo:

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

Call SetWindowLong(Form1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)