|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Faça seu programa acompanhar os temas do Windows XP
|
 |
|
|
|
Postada em 14/5/2004 por X-Crow Original
'Coloque num módulo a seguinte declaração
Public Declare Function InitCommonControls Lib "comctl32.dll" () As Long
'No mesmo módulo crie a rotina Main() do seu projeto
Public Sub Main()
InitCommonControls
' Você pode chamar seu formulário inicial aqui ex.: Form1.Show
End Sub
Vá no meu "Project"-> "Properties..."-> Combobox "Startup Object" e defina como "Sub Main"
'Copie e cole o conteúdo abaixo dentro do de um arquivo novo no bloco de notas(notepad):
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity type="win32" processorArchitecture="*" version="6.0.0.0" name="mash"/>
<description>SUA DESCRIÇÃO AQUI</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls" version="6.0.0.0"
language="*"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
/>
</dependentAssembly>
</dependency>
</assembly>
' Salve esse arquivo com o nome do seu programa e com a extensão ".EXE.MANIFEST"
' Ex.: NOMEDOSEUPROGRAMACOMPILADO.EXE.MANIFEST e cole-o onde na pasta do seu executável.
' Observação 1: só funcionárá para o exe compilado(menu "File"->"Make Exe")
' Se você quiser que funcione em Designtime basta copiar o seu ".EXE.MANIFEST"
' para a pasta onde o VB está instalado e renomear o arquivo. Ex.: "VB6.EXE.MANIFEST"
' Observação 2: Só irá funcionar se o programa estiver obrigatóriamente rodando no Windows XP.
Com isso, sempre o usuário mudar o tema atual no Windows XP , seu software irá acompanhar as mudanças automáticamente.
Abraços, Sidnei
|
|
|
|
|
