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)
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
no ya, si eso lo se xd, pero el problema, es como ponerlo transparente :-(
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:
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)