USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página