Tema: FAQ's de VB6
Ver Mensaje Individual
  #157 (permalink)  
Antiguo 22/02/2007, 09:17
Avatar de culd
culd
 
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 20 años, 5 meses
Puntos: 19
Visual Basic: Formularios-Botones-Frames-etc con aspecto a Windows XP

Visual Basic: Formularios-Botones-Frames-etc con aspecto XP
Powered by …:::][CULD][:::…


Hola que tal, muchos como yo alguna vez habrán tenido la duda de cómo visualizar los botones, frames, texbox, etc. al estilo de Windows XP.

Buscando en diferentes sitios encontré mucha info al respecto, y quiero compartir todo lo que recopile con ustedes.

En primer lugar quiero sintetizar de qué se trata, y luego explicar paso por paso.

- Para que un proyecto se visualice con estilo de Windows XP, hay que crear un archivo Manifest con el mismo nombre del .exe ejecutable del proyecto en cuestión.
- El Manifest contiene una codificación en XML para llamar unas rutinas y visualizar con ese estilo en particular. (mas adelante muestro codificación).
- Muchos usuarios tuvieron problemas, tales como si se ingresan botones, checkbuttons, etc dentro de un Frame, se ven FEOS, es decir que no se ven como se deberían ver. Para solucionar esto, hay que agregar PictureBox debajo del mismo.
- Como es mucho trabajo compilar y ejecutar la aplicación para ver los defectos que provocan los objetos dentro de los frames, etc. Decidí crear un pequeño .exe que ACTIVA y DESACTIVA Manifest directamente en el entorno de desarrollo de VB, es decir que mientras se esta diseñando ya se pueden observar esos errores gráficos para solucionarlos sin tener que compilar y ejecutar.

A continuación voy a explicar paso por paso para la creación de Estilo XP en un proyecto.

1- Añadir esta declaración del API de Windows, dentro del primer Form a ejecutarse, o directamente en un Modulo.

Código:
Public Declare Sub InitCommonControls Lib "comctl32" ()
2- Dentro del primer form a ejecutar llamar a la función de esta manera con el evento “Initialize”

Código:
Private Sub Form_Initialize()
InitCommonControls
End Sub
3- Crear un archive .txt y cargar la siguiente codificación. Luego renombrar este archivo al mismo nombre del ejecutable que compilaron pero al final agregar “.manifest” (EJ: Si su ejecutable se llama Proyecto1.exe, deben llamar al archivo con la codificación XML asi Proyecto1.exe.manifest

Código:
<?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>
4- Su proyecto ya esta listo para ser visto con Estilo XP.

5- Como mencioné anteriormente, puede que tengan muchos problemas en la visualización final, en muchos casos hay que poner los botones, options, etc dentro de PictureBox.

Para solucionar este tipo de problemas, realice un simple ejecutable el cual ACTIVA/DESACTIVA Manifest Estilo XP directamente en el entorno de desarrollo de VB6.0. De esta manera mientras que diseñan su aplicación pueden visualizar los errores gráficos que acarrea el Estilo XP.

Pueden bajar el programa desde este link:
http://www.megaupload.com/?d=IIFQ2RAH
http://www.uploading.com/files/5C3CN...tenVB.zip.html

Espero que les sirva, cualquier duda o consulta dirigirse a [email protected]

…:::][CULD][:::…

22/02/2007