Visual Basic - Estilo botones

Es una tonteria, pero todo sea por la apariencia...

¿Hay algun modo (sencillo) de que los programas en vb6 tengan apariencia xp? o al menos, la apariencia que tiene el resto del sistema.....

Gracias chic@s ;)

Sí. Sólo tienes que crear un archivo manifest y al generar el ejecutable los controles (bueno, la mayoría) tendrán el aspecto de XP.

Perdon pero me he perdido, ¿Como se hace eso del archivo manifest? ¿Que es un archivo manifest?

Gracias

1º - Haz un copy del texto que te pongo abajo. Abres cualquier procesador de texto y le das un paste. Guardas el archivo con el nombre del proyecto.exe.manifest.
(p.e. el proyecto o el nombre del ejecutable se llama Proyecto1: Lo guardas con el nombre Proyecto1.exe.manifest)
2º - En el form de inicio declaras la siguiente función: Private Declare Sub InitCommonControls Lib "comctl32" ()
Y en el evento Form_Initialize() le pones esta instrucción: InitCommonControls
3º En el menu Archivo le das a generar Proyecto.exe
Ejecutas el exe y verás el resultado. (sólo ejecutando el exe).
A partir de la linea de abajo es lo que tienes que copiar

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1"
manifestVersion="1.0">
<assemblyIdentity
name="Woozle.PEResourceExplorer.XPManifest"
processorArchitecture="x86"
version="1.0.0.0"
type="win32"/>
<description>Windows Shell</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>

----------
y ya nos dirás si te funcionó.

Ya lo he hecho.. estoy en un windows 2k asi que cuando llege a casa y lo pruebe te digo que tal ha ido

:P

Gracias ;)

Olvidé decirte que el archivo manifest debe estar presente en el mismo directorio donde tengas la aplicación y si la distribuyes tienes que incluir este archivo.

Lo he probado y da error

"No pudo iniciar la aplicacion porque su configuración es incorrecta. Reinstalar la aplicación puede solucionar el problema"

Y si me cargo el . manifest, pues funciona......

Que puede ser?.

este es exactamente el .manifest:

---inicio manifest---
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1"
manifestVersion="1.0">
<assemblyIdentity
name="Woozle.PEResourceExplorer.XPManifest"
processorArchitecture="x86"
version="1.0.0.0"
type="win32"/>
<description>Windows Shell</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>
---fin manifest---

gracias por la ayuda

Hola

Te explico un poquito.
mira crea un modulo en tu proyecto

en el modulo tiene que estar algo similar a esto:

'****************MODULO*********************
Option Explicit

'API para Iniciamos controles
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

Sub Main()
'rutina que inica la Aplicación
InitCommonControls 'inicia los controles.

Load FrmInicio
FrmInicio.Show

End Sub
'*************************************************
En el menu Proyecto-Propiedades, cambia la opcion que dice
Objeto Inicial: Sub Main.

el archivo manifest, copia esto, y guardalo en la misma ruta o path
donde se encuentra tu archivo ejecutable. este archivo debes guardarlo
con el mismo nombre que tiene tu ejecutable.
Por ejemplo:
miApp.exe
miApp.exe.manifest

y cuando corras tu aplicacion te dejara la apariencia de xp.
Ojo, lo q si es importante para q te funcione los TabStrip
ListView, etc, debes utilizar los Common controls version5 y no la 6.

'******** ARCHIVO MANIFEST *********
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="CompanyName.ProductName.YourAppName"
type="win32" />
<description>Your application description here</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*" />
</dependentAssembly>
</dependency>
</assembly>

'***********************************

si no te funciona escribeme un mail y te mando un ejemplo.
Saludos espero q te sirva..