Autor Tema: Ayuda Con Imagen De Fondo Transparente... (Leído 919 veces)

ltmp820 · « **en:** Jueves 1 de Junio de 2006, 10:02 »

Buenos Días;

Estoy creando una imagen automáticamente en visual basic, dicha imagen se carga en una pagina web ASP. Quiero que la imagen tenga el fondo transparente al subir a la web, Es decir, que cuando se genere en visual basic lo haga con el fondo transparente.

Me podrán ayudar por favor…..Como hago el fondo transparente?
He probado mil cosas y el fondo siempre esta blanco.

Estoy usando un PICTUREBOX

De ante mano mil gracias….

Atte.
Luis Muñoz

Makko · « **Respuesta #1 en:** Jueves 1 de Junio de 2006, 18:42 »

Código: Text

'Codigo Interezante para forzar transparencia en un form de manera muy sencilla y con transparencia graduable
 
Private Declare Function GetWindowLong Lib &#34;USER32&#34; Alias &#34;GetWindowLongA&#34; _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib &#34;USER32&#34; Alias &#34;SetWindowLongA&#34; _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE = (-20)
'Requires Windows 2000 or later:
Private Const WS_EX_LAYERED = &H80000
 
Private Declare Function SetLayeredWindowAttributes Lib &#34;USER32&#34; (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
 
Public Sub MakeWindowTransparent(ByVal hWnd As Long, ByVal alphaAmount As Byte)
Dim lStyle As Long
lStyle = GetWindowLong(hWnd, GWL_EXSTYLE)
lStyle = lStyle Or WS_EX_LAYERED
SetWindowLong hWnd, GWL_EXSTYLE, lStyle
SetLayeredWindowAttributes hWnd, 0, alphaAmount, LWA_ALPHA
End Sub
 
'La transparencia es graduable modificando el alphaamount en este caso esta en 150 mientras menor es este valor mas transparente se torna
Private Sub Form_Load()
Call MakeWindowTransparent(Form1.hWnd, 150)
End Sub
 
 

Solo tienes que realizar una busqueda antes de postear.

SoloCodigo

Autor Tema: Ayuda Con Imagen De Fondo Transparente... (Leído 919 veces)

ltmp820

Ayuda Con Imagen De Fondo Transparente...

Makko

Re: Ayuda Con Imagen De Fondo Transparente...