Sombra de ventanas - VB-MUNDO

CristSoft · #1 (**permalink**) 31-08-2006, 07:35:06

Hola nuevamente. Nesecitaría que alguien me diga si existe alguna API o algo asi para poder darle sombra a las ventanas (de bajo de la ventana), y si por favor me lo puede explicar.
Desde ya muchas gracias.

Cristian F. Sanchez Esquivel (CristSoft)

Alella · #2 (**permalink**) 31-08-2006, 07:56:58

Hola, que tal.

Prueba con esta API, puede ser lo que buscas.

Código:

GetSysColor (Devuelve los colores del Windows) API 


'Código para el Modulo 
Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long 
Public Const COLOR_ACTIVEBORDER = 10 'borde de una ventana activa 
Public Const COLOR_ACTIVECAPTION = 2 'Titulo de una ventana activa 
Public Const COLOR_APPWORKSPACE = 12 'Fondo de escritorio MDI 
Public Const COLOR_BACKGROUND = 1 'Escritorio de Windows 
Public Const COLOR_BTNFACE = 15 'Botón 
Public Const COLOR_BTNHIGHLIGHT = 20 'Realzado de 3D del botón 
Public Const COLOR_BTNSHADOW = 16 'Oscurecimiento de 3D del botón 
Public Const COLOR_BTNTEXT = 18 'Texto del botón 
Public Const COLOR_CAPTIONTEXT = 9 'Texto del titulo de la ventana 
Public Const COLOR_GRAYTEXT = 17 'Texto gris, o cero si se utiliza una oscilación de color 
Public Const COLOR_HIGHLIGHT = 13 'Fondo de un item seleccionado 
Public Const COLOR_HIGHLIGHTTEXT = 14 'Texto de un item seleccionado 
Public Const COLOR_INACTIVEBORDER = 11 'Borde de una ventana inactiva 
Public Const COLOR_INACTIVECAPTION = 3 'Titulo de una ventana inactiva 
Public Const COLOR_INACTIVECAPTIONTEXT = 19 'Texto de una ventana inactiva 
Public Const COLOR_MENU = 4 'Menú 
Public Const COLOR_MENUTEXT = 7 'Texto del menú 
Public Const COLOR_SCROLLBAR = 0 'Barra de desplazamiento 
Public Const COLOR_WINDOW = 5 'Fondo de ventana 
Public Const COLOR_WINDOWFRAME = 6 'Marco de ventana 
Public Const COLOR_WINDOWTEXT = 8 'Texto de ventana 
Public Const COLOR_3DDKSHADOW = 21 'Sombra oscura de 3D 
Public Const COLOR_3DFACE = COLOR_BTNFACE 'Color en los objetos oscurecidos de 3D 
Public Const COLOR_3DHILIGHT = COLOR_BTNHIGHLIGHT 'Color de realzado de 3D 
Public Const COLOR_3DLIGHT = 22 'Color claro de los objetos oscurecidos de 3D 
Public Const COLOR_INFOBK = 24 'Color del fondo de las microayudas 
Public Const COLOR_INFOTEXT = 23 'Color del texto de las microayudas 

'Código para el procedimiento 
'Devuelve el color del borde de la ventana activa en formato RGB 
print GetSysColor(COLOR_ACTIVECAPTION) 

'Devuelve el color del borde de la ventana activa en formato Hexadecimal 
print GetSysColor(COLOR_ACTIVECAPTION) And &HFFFFFF

Ya nos contarás.

CristSoft · #3 (**permalink**) 31-08-2006, 08:15:22

Muchas gracias Alella, :smt023
Era justo lo que yo buscaba, andubo perféctamente. Muuchas gracias.

Cristian F. Sanchez Esquivel.

lenins flores · #4 (**permalink**) 15-10-2006, 03:03:30

Cita:

Empezado por CristSoft

Muchas gracias Alella, :smt023
Era justo lo que yo buscaba, andubo perféctamente. Muuchas gracias.

Cristian F. Sanchez Esquivel.

Hola colega.

Disculpa, me podrias adjuntar un ejemplo de la rutina que aplicaste para la sobra en las ventanas (frm).

Gracias y que estes bien.