elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  [SOLUCIONADO]Transparencia de Ventanas usando visual basic 2008 NET
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [SOLUCIONADO]Transparencia de Ventanas usando visual basic 2008 NET  (Leído 9,658 veces)
genomma

Desconectado Desconectado

Mensajes: 93


Ver Perfil
[SOLUCIONADO]Transparencia de Ventanas usando visual basic 2008 NET
« en: 25 Junio 2009, 01:22 am »

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


« Última modificación: 1 Julio 2009, 01:10 am por Hadess_inf » En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Transparencia de Ventanas usando visual basic 2008 NET
« Respuesta #1 en: 25 Junio 2009, 01:24 am »

Usa el foro adecuado... este es para Basic 6 no .NET

Sección Programacion general sub-foro .net hay plantea tu duda.


« Última modificación: 25 Junio 2009, 01:26 am por ░▒▓BlackZeroҖ▓▒░ » En línea

The Dark Shadow is my passion.
genomma

Desconectado Desconectado

Mensajes: 93


Ver Perfil
Re: Transparencia de Ventanas usando visual basic 2008 NET
« Respuesta #2 en: 25 Junio 2009, 01:36 am »

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









En línea

Fr4NN^

Desconectado Desconectado

Mensajes: 56



Ver Perfil
Re: Transparencia de Ventanas usando visual basic 2008 NET
« Respuesta #3 en: 25 Junio 2009, 02:03 am »

pero en vb.net los formularios no tienen una propiedad que es la transparencia de ventana??
En línea

Leyendo se aprende
seba123neo


Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Transparencia de Ventanas usando visual basic 2008 NET
« Respuesta #4 en: 25 Junio 2009, 04:00 am »

pero en vb.net los formularios no tienen una propiedad que es la transparencia de ventana??

tal cual, tiene la propiedad Opacity..

saludos.
En línea

genomma

Desconectado Desconectado

Mensajes: 93


Ver Perfil
Re: Transparencia de Ventanas usando visual basic 2008 NET
« Respuesta #5 en: 27 Junio 2009, 18:49 pm »

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....
En línea

raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Transparencia de Ventanas usando visual basic 2008 NET
« Respuesta #6 en: 27 Junio 2009, 22:04 pm »

Hola!

Lastima que no tengo el windows vista o 7 como para probar la transparencia, me hubiera gustado verla en accion  :-\

Supongo que el sub New esta dentro de un Formulario, y en .Net todo sub New en un formulario debe tener la llamada al metodo InitializeComponent() que es el que inicia y agrega todos los controles al formulario, cosa que en tu codigo no veo esa llamada.

Solo agrega "Call InitializeComponent()" como una linea mas (eso si, no se si debe ser como primera llamada, o luego de que fijes la transparencia, pero has pruebas jeje) y te deberian aparecer los controles.


Espero que te sirva!!!
En línea

genomma

Desconectado Desconectado

Mensajes: 93


Ver Perfil
Re: Transparencia de Ventanas usando visual basic 2008 NET
« Respuesta #7 en: 30 Junio 2009, 02:07 am »

Biien Exelente Raul...



se te agradece...me hacia falta al Sub...


Resuelto....





                                                                                           
     genomma
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Sugerencia] Otro moderador en Visual Basic [Solucionado] « 1 2 3 »
Sugerencias y dudas sobre el Foro
Psyke1 20 12,659 Último mensaje 29 Enero 2011, 19:14 pm
por [D4N93R]
tutorial sql usando visual c++
Programación C/C++
flony 0 1,669 Último mensaje 24 Octubre 2012, 14:24 pm
por flony
(solucionado) Progressbar + label = ¿NO transparencia?
.NET (C#, VB.NET, ASP)
Eleкtro 3 4,188 Último mensaje 29 Noviembre 2012, 02:32 am
por seba123neo
Visual Basic 2008 Duda Ventanas
.NET (C#, VB.NET, ASP)
Anonymatrix 3 2,124 Último mensaje 20 Marzo 2013, 20:40 pm
por Danyfirex
Obtener datos de balanza usando Visual basic y ethernet
Programación Visual Basic
Hervin 1 3,111 Último mensaje 14 Junio 2017, 02:46 am
por PalitroqueZ
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines