Hola aquí otra forma para hacer skin (mediante apis) para formularios o también
poder hacer que el form sea invisible excepto los controles, lo que hace este código es eliminar toda región
de una ventana cuyo color sea el indicado


La ventaja que veo en hacerlo de esta forma es bastante rápido
a la hora de recortar además se puede ir
cambiando la mascara y este tomara inmediatamente su forma (sin volver a llamar
a la función)

Código:

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const LW_KEY = &H1
Const G_E = (-20)
Const W_E = &H80000

Private Sub Form_Load()
Skin Me, vbRed
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'para mover el form de cualquier parte
ReleaseCapture
SendMessage hWnd, 161, 2, 0
End Sub
Sub Skin(Frm As Form, Color As Long)
Frm.BackColor = Color
Dim Ret As Long
Ret = GetWindowLong(Frm.hWnd, G_E)
Ret = Ret Or W_E
SetWindowLong Frm.hWnd, G_E, Ret
SetLayeredWindowAttributes Frm.hWnd, Color, 0, LW_KEY
End Sub

Dejo una imagen para que prueven





La guardan en su PC y la ponen como Picture del formulario



Nota: yo en este caso use rojo por comodidad lo cual no es muy conveniente es
mejor usar violetas o colores que no se vallan a utilizar luego, sino también
recortara estos es decir si un Label es rojo pues este se ara transparente también

buena compadre, es muy bueno tu aporte, me funciono en breve
el programa, preciso!

hola tengo problemas con el skin no permite que se muestre los mensaje de los msgbox, como resulvo, estoy aprendiendo


mi correo es jcm111265@hotmail.com te agradeceria la ayuda

hay un pequeñísimo problema, y es que el formulario no se redimensiona al picture y por ende aún se ve la barra de título con sus botones.

lo bacano de esto, es que el color de los íconos en los botones -la X, etc.- se vuelven transparentes si cambio a blanco el color.

Que buen aporte si me funciona

para juan carlos si puedes hacer msgbox lo que pasa es que seguramente lo haces haciendo click en el formulario y este evento no se dispara por el ReleaseCapture si funciona si lo haces desde un boton o doble click en el formulario

Para Néstor Acevedo: tenes que ponerle en tiempo de diseño al formulario en la propiedad bordestile = none o bien si lo quieres hacer desde codigo [Ex3] puso un ejemplo aqui en la guia de recursos de como quitar el borde en tiempo de ejecucion en cuato si quieres que la imagen se del mismo tamaño que el formulario solo tienes que hacer un paintpicture

Saludos Leandro

Hola


Primero este codigo esta genial, ademas se ser muy liviano, luego estuve probando aplicar ese codigo para un PictureBox pero no me resulto, no si ese codigo se puede implementar a un Contol PictureBox.

hola me temo que solo funciona con formularios pero para un picture podes usar una forma que havia puesto [Ex3] solo que esta se borro con la catombe de recursos, justo en el dia de la fecha alguien pregunto algo similar y le pase el codigo que por suerte yo lo avia conservado en mi PC
http://www.canalvisualbasic.net/foru...sts.asp?TID=24 784&PN=1

Saludos

Ta muy bueno
Queda genial al usar contenedores de controles dibujados con efectos deFireworks.

Excelente, muchas gracias.

Esta de poca madre, yo me dedico al diseño web y habia utilizado fireworks para el diseño, me toy metiendo ahora a programacion con vb, nombre lo k no c puede acer con este codigo...


GRACIAS, esta de poca madre...

hola resulta que aplico el código lo ejecuto y me da in formulario transparene no entiendo porq? que hago para que esto no pase?

hola primero kiero ke me ayudes Donde se coloca ese codigo osea donde lo declaro en uun modulo, en mi formulario donde??', porfas ayudame es ke soy nuevo en esto

Iniciado por jimmy

hola primero kiero ke me ayudes Donde se coloca ese codigo osea donde lo declaro en uun modulo, en mi formulario donde??', porfas ayudame es ke soy nuevo en esto

hola pegalo tal cual esta en un formulario

Nota solo es valido vajo windows Xp (o NT no se bien cual es la diferencia)
segun el apiguide:
Requires Windows 2000 or later; Win9x/ME: Not supported

hola, alguno podria decirme como realizar la misma accion de transparencia pero aplicada a otros colores?

otra cosa, como hago para q me aparezca el programa en la barra de inicio?? xq aparece totalmente invisible...

che alguien se molestaria en hacer un videotutorial de como hacer esto porque a los novatos como nosotros nos pasa que no entendemos mucho. seria ideal crear un videotutorial explicando paso por paso como se hace y como funciona desde ya gracias a todos.

Hola necesito ayuda, aplique el control activeskin4 funciona muy bien siempre y cuando no levante otro formulario. Cuando hago esto no me deja salir del mismo con el vbkeyescape. No se de que forma solucionar por que basicamente no hace foco al levantar el formulario en el nuevo el foco queda en el llamador.
No se si pude explicarme pero necesitaria me ayuden a resolver este conflicto.

Desde ya agradezco.
Saludos!!!

muchas gracias por todas las respuesta. a mi también me hacía falta saber esto y gracias a ustedes lo pude solucionar








escuela de cine

[QUOTE=moni_29;57120]muchas gracias por todas las respuesta. a mi también me hacía falta saber esto y gracias a ustedes lo pude solucionar





Muy buen aporte, creativo y me funcino tan sencillo como hacerle copy paste.

if you can do msgbox, what happens is that you surely do it by clicking on the form and this event is not triggered by the ReleaseCapture if it works if you do it from a button or double click on the form.
For Néstor Acevedo: you have to put it at design time to the form in the borderstile = none property or if you want to do it from code [Ex3] put an example here in the resource guide of how to remove the border at runtime