Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: astaroth_15 en 21 Agosto 2006, 14:40 pm



Título: Transparencia como es?
Publicado por: astaroth_15 en 21 Agosto 2006, 14:40 pm
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

(http://usuarios.lycos.es/minunos/angulo.bmp)


Título: Re: Transparencia como es?
Publicado por: Zeroql en 21 Agosto 2006, 18:51 pm
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


Título: Re: Transparencia como es?
Publicado por: astaroth_15 en 21 Agosto 2006, 19:29 pm
no ya, si eso lo se xd, pero el problema, es como ponerlo transparente :-(


Título: Re: Transparencia como es?
Publicado por: Zeroql en 21 Agosto 2006, 22:03 pm
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:
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:
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:
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:
Call SetWindowLong(Form1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)