Inculto Programador
24 de Octubre del 2003

Como se puede cambiar el color del Editor de menus o algun control OCX para poder hacerlo.

Por otro lado como se puede hacer para disminuir el tamaño de una imagen??

Baltasar
24 de Octubre del 2003

para modificar el tamaño de una imagen, usa el control IMAGE, y ponle la propiedad STRETCH a verdadero, y luego le puedes dar el tamaño que quieras.

Referente al color de los menús, se puede hacer de la siguiente manera:

en un módulo, pones lo siguiente:

Declare Function SetSysColors Lib "user32" _
(ByVal nChanges As Long, lpSysColor As _
Long, lpColorValues As Long) As Long

Public Const COLOR_CAPTIONTEXT = 9 'Text in window caption
Public Const COLOR_MENUTEXT = 7 'Window Text
Public Const COLOR_MENU = 4 'Menu


y en el código:

SetSysColors 1, COLOR_CAPTIONTEXT, &HC0CD00
SetSysColors 1, COLOR_MENUTEXT, &HC000&
SetSysColors 1, COLOR_MENU, vbGreen

y para dejarlo todo como estaba:

SetSysColors 1, COLOR_CAPTIONTEXT, vbWhite
SetSysColors 1, COLOR_MENUTEXT, vbBlack
SetSysColors 1, COLOR_MENU, &HC0C0C0


Saludos

Inculto programador
24 de Octubre del 2003

Oye lo de la imgen genial pero sobre lo otro, ummm o lo he hecho mal o no se, pues cuando lo hago en el programa sale todo bien pero luego todos los demas editores de menus que hay en windows se me quedan en verde jejeje que se puede hacer.

Baltasar
24 de Octubre del 2003

por eso te escribí:

y para dejarlo todo como estaba:

SetSysColors 1, COLOR_CAPTIONTEXT, vbWhite
SetSysColors 1, COLOR_MENUTEXT, vbBlack
SetSysColors 1, COLOR_MENU, &HC0C0C0

eso lo tendrías que hacer cuando fueras a salir de tu programa.