Título: Estilo XP con solo una Funcion (Manifest) Publicado por: Karcrack en 13 Agosto 2008, 13:15 pm Bueno, pues eso, es una funcion que he desarrollado para habilitar el estilo XP en nuestros proyectos de Visual Basic 6.0 sin tener que recurrir a OCX ni Controles de Usuario...
Código
Aqui esta el codigo, quien quiera descargarlo que lo haga de aqui: Citar Descarga (http://uploadsourcecode.com.ar/d/GbpAxs8f1RnReAcj9FNRxJChy7IDFX1z) Uso: Simplemente llamando a la funcion CreateManifest se cambia solo el estilo, pero solo funciona cuando esta compilado... Ah!! Os doy un pequeño aviso: Por lo visto los chicos de Microsoft tuvieron algunos problemas :xD, porque resulta, que al poner un optionbutton dentro de un frame se queda de color de fondo negro, asi que, os doy la solucion al problema: Meter los controles con los que os pase eso dentro de un Picture... eso lo soluciona ;D Título: Re: Estilo XP con solo una Funcion (Manifest) Publicado por: cobein en 13 Agosto 2008, 19:49 pm Un poco de feedback
1) If UCase$(Right$(sPath, Len("VB6.EXE"))) = "VB6.EXE" Then Exit Function podrias cambiarlo por If App.LogMode=0 then exit function <- Edite aca 2) el buffer de GetModuleFileName de 128 me parece chico tendria que ser Private Const MAX_PATH As Long = 260 o ver que la funcion no retorne ERROR_INSUFFICIENT_BUFFER en cuyo caso tendras que aumentar el tamaño buffer 3) Agregar nombre y descripcion en el manifest 4) Soporte para Vista y sus diferentes manifest 5) Hay una error grande en el codigo, fijate que si no existe el manifest intenta crear uno si es xp, sino pasa de largo y reinicia la aplicacion de igual manera... y lo vuelve a hacer infinitamente Título: Re: Estilo XP con solo una Funcion (Manifest) Publicado por: Freeze. en 13 Agosto 2008, 20:01 pm Yo quite esa linea:
If UCase$(Right$(sPath, Len("VB6.EXE"))) = "VB6.EXE" Then Exit Function y ahora tengo un IDE más moderno :xD Como ya te dije en el foro, excelente ;) Título: Re: Estilo XP con solo una Funcion (Manifest) Publicado por: Karcrack en 13 Agosto 2008, 21:11 pm Un poco de feedback 1) If UCase$(Right$(sPath, Len("VB6.EXE"))) = "VB6.EXE" Then Exit Function podrias cambiarlo por If App.LogMode=0 then exit function <- Edite aca 2) el buffer de GetModuleFileName de 128 me parece chico tendria que ser Private Const MAX_PATH As Long = 260 o ver que la funcion no retorne ERROR_INSUFFICIENT_BUFFER en cuyo caso tendras que aumentar el tamaño buffer 3) Agregar nombre y descripcion en el manifest 4) Soporte para Vista y sus diferentes manifest 5) Hay una error grande en el codigo, fijate que si no existe el manifest intenta crear uno si es xp, sino pasa de largo y reinicia la aplicacion de igual manera... y lo vuelve a hacer infinitamente Muchas gracias por el post, cuando tenga tiempo lo reviso y optimizo el codigo ;) Pero lo del manifest para vista? da estilo XP? :laugh: Bueno, lo hago y creo que lo pondre :P Yo quite esa linea: If UCase$(Right$(sPath, Len("VB6.EXE"))) = "VB6.EXE" Then Exit Function y ahora tengo un IDE más moderno :xD Como ya te dije en el foro, excelente ;) De que IDE estamos hablando? No nos estaras ocultando algo :¬¬ :xD? Saludos! :D Título: Re: Estilo XP con solo una Funcion (Manifest) Publicado por: jackl007 en 13 Agosto 2008, 21:34 pm yo los agregaba con un editor de recursos
Título: Re: Estilo XP con solo una Funcion (Manifest) Publicado por: Freeze. en 13 Agosto 2008, 23:44 pm Citar De que IDE estamos hablando? No nos estaras ocultando algo :¬¬ :xD? Bueno lo que pasa es que quite esa linea pusiste y asi no se comprueba que el codigo no se esta ejecutando en VB osea en el IDE en modo debug. Entonces el codigo crea un archivo llamado VB6.manifest. Resultado:(http://tuimg.net/s/2da49Dibujo.JPG) (http://tuimg.net/v.php?i=s/2da49Dibujo.JPG) Título: Re: Estilo XP con solo una Funcion (Manifest) Publicado por: Karcrack en 14 Agosto 2008, 11:38 am Citar De que IDE estamos hablando? No nos estaras ocultando algo :¬¬ :xD? Bueno lo que pasa es que quite esa linea pusiste y asi no se comprueba que el codigo no se esta ejecutando en VB osea en el IDE en modo debug. Entonces el codigo crea un archivo llamado VB6.manifest. Resultado:(http://tuimg.net/s/2da49Dibujo.JPG) (http://tuimg.net/v.php?i=s/2da49Dibujo.JPG) :laugh: :laugh:,menuda IDE mas nueva :xD, la pena es que lo ves diferente a lo que se vera cuando compiles... Título: Re: Estilo XP con solo una Funcion (Manifest) Publicado por: Karcrack en 15 Agosto 2008, 14:07 pm Version actualizada para solucionar varios problemas, Gracias Cobein :D
|