Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Abbet en Julio 23, 2010, 08:56:09 am
-
Buenas Leandro, este es el menu en cuestión:
(http://img838.imageshack.us/img838/293/sinttuloaa.png)
Dentro de enviar tengo nada mas que un submenu.
El codigo que utilizo para aplicar el icono a esa opcion es:
.PutImageToVBMenu 4, 9, 0, 0
Saludos!
-
Hola Abbet si tenes razon hay algun error, despues lo reviso y lo corrijo.
Saludos.
-
Mmm Leandro, tambien hay un error al visualizarlo en Windows 7, directamente no se ven los iconos.
He probado el ejemplo ya compilado que subiste y tambien falla en Windows 7, el form que los carga desde archivo, los otros van bien.
-
Al final estaba bien yo lo probe apurado y tambien pasaba mal los parametros, fijate imagen como puse el parametro
(http://img28.imageshack.us/img28/7107/muestrah.png)
en cuanto a lo que me decis de windows 7 , comentame, es de 64bits?, es tanto en los ICO como en los PNG?, por las dudas fijate si App.Path devuelve ruta correcta, por ejemplo
For i = 1 To 4
debug.print App.Path & "\Iconos PNG\Icon" & i & ".PNG"
Next
y
For i = 1 To 4
Debug.Print App.Path & "\Iconos ICO\Icon" & i & ".ICO"
Next
yo lo probe en una maquina virtual y anda bien pero es el seven de 32bits
Espero tu respuesta, Saludos.
-
Lo de Windows 7 ya lo solucione, se me olvidaron unos archivos de configuracion del programa en el instalador y no me di cuenta.
Sobre el icono, funciona el metodo que usado pero entonces, funciona asi siempre con todos los submenus?