duda de los form

[CH4ØZ]

hay alguna manera de hacer el form transparente, pero que a la vez se vea su contenido ???

[BlackZeroX]

Contenido, cual? de que forma?

bueno en dado caso aqui tienes para hacerlo transparente:

Antes que nada disculpa el ponertelo asi, la razon es por que de igual forma puedes usar la funcion Transparencia para hacer otras cosas transparentes ademàs del form!¡.

Código (vb) [Seleccionar] Expandir


Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const LWA_ALPHA = &H2&

Public Function Transparencia(Handle As Long, Level As Byte) As Long
   Dim Estilo As Long
   Estilo = GetWindowLong(Handle, GWL_EXSTYLE)
   Call SetWindowLong(Handle, _
                      GWL_EXSTYLE, _
                      Estilo Or WS_EX_LAYERED)
   Call SetLayeredWindowAttributes(Handle, 0, Level, LWA_ALPHA)
   Transparencia = 1
   Exit Function
errs:
   Transparencia = 0
End Function

Public Function Transparencia_Form(ByVal hwnd As Long, valor As Integer) As Long
   On Local Error GoTo errs
   If valor < 0 Or valor > 255 Then
       Transparencia_Form = 1
   Else
       SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
       Call Transparencia(hwnd, CByte(valor))
       Transparencia_Form = 0
   End If
   Transparencia_Form = 1
   Exit Function
errs:
   Transparencia_Form = 0
   err.clear
End Function


Para hacer Regiones del form transparente es de otra forma, creo que ya esta posteada esa forma desde hace tiempo en el foro!¡.

Dulces Lunas!¡.

[CH4ØZ]

gracias x la respuesta
el contenido serian 2 shapes
y adentro de los shapes hay otras cosas
labels picturebox image etc

[CH4ØZ]

yo necesitaria que los objetos dentro del form no se transparenten con el mismo, como puedo hacerlo???

[Dessa]

Hola, probá si este code te sirve

http://foro.elhacker.net/programacion_vb/como_hacer_esto_medio_transparente-t256170.0.html;msg1242108#msg1242108


S2