jueves, 16 de octubre de 2008

Apariencia de Windows XP y Vista en tu programa VB6

Cito un post que vi:

Hola este es mi primer post y aqui posteo este módulo que tengo guardado de hace mucho tiempo.

El módulo que postearé es el que utilizo para que mis programas en vb6 se vean con el formato de Windows XP y Vista. Para ello deben tildar alguno de los componentes "Microsoft Windows Common Controls X.X"

Luego crean el siguiente modulo, el cual tendra el proceso principal (Void Main o Sub Main depende del lenguaje):


Option Explicit


Public Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type

Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean



Public Const ICC_USEREX_CLASSES = &H200

Public Sub Main()

On Error Resume Next

Dim iccex As tagInitCommonControlsEx
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
Form1.Show
On Error GoTo 0
End Sub

Por último agregan el archivo de recursos que aqui les dejo para descargar, el cual deben agregarlo en "Documentos Relacionados"