Mensajes

hola que tal...soy genomma...



Es verdad existen esas dos opciones la opacyti y la de transparency key..pero si añadimos este trozo de codigo que puse incialmente,a un formulario...notarán que esta transparencia es igual a la de las ventanas que se usan en windows seven....


a diferencia de opacity o tranparecykey que la verdad lo que hace en realidad es dejar un hueco en la ventana....

Si añaden este codigo en un formualrio notarán que no se usan esas propiedades...mi problemas es que todos los controles que añado no se ven en modo de ejecucion....

Lo siento...Me voi a la sección correcta...

hola que tal...


Deseo Realizar un software con ventanas transparentes....y encontré este codigo que puse en un frm de basic 2008 y si me iso la ventana transparente..pero cuando traté de agregar controles como botones, labels, etc...a la hora de ejecucion simplemente se ve la ventana transparente pero sin los controles que he añadido...
¿como puedo solucionar este problema?.....

a continuacion pongo el codigo del frm de la ventana transparente.....




Private Declare Function DwmIsCompositionEnabled Lib "dwmapi.dll" (ByRef en As Integer) As Integer
   Private Declare Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" (ByVal hWnd As IntPtr, ByRef margins As MARGIN_STRUCT) As Integer
   Public Structure MARGIN_STRUCT
       Dim cxLeftWidth, cxRightWidth, cyTopHeight, cyBottomHeight As Integer

       Sub New(ByVal x1 As Integer, ByVal x2 As Integer, ByVal y1 As Integer, ByVal y2 As Integer)
           cxLeftWidth = x1
           cxRightWidth = x2
           cyTopHeight = y1
           cyBottomHeight = y2
       End Sub
   End Structure

   Sub New()
       Me.BackColor = Drawing.Color.Black
       Dim en As Integer
       If System.Environment.OSVersion.Version.Major >= 6 Then
           DwmIsCompositionEnabled(en)
           If en > 0 Then
               DwmExtendFrameIntoClientArea(Me.Handle, New MARGIN_STRUCT(-1, -1, -1, -1))
           End If
       End If
   End Sub