... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Criar ícone para o aplicativo

Usuário Wesley:

Gostaria de saber como faço para criar um ícone para a minha aplicação, sem precisar criar um executável.

Suporte:

Wesley, você pode criar um atalho para o seu aplicativo, fazendo este procedimento:

Public sub fncCriarAtalhoDesktop()
Dim oWsh As Object, oShortcut As Object
Dim sPathDesktop, sShortcut, sPathFile As String
  
sPathFile = Application.CurrentProject.Path & "\" & "SeuAplicativo.accdb"

Set oWsh = CreateObject("WScript.Shell")
sPathDesktop = oWsh.SpecialFolders("Desktop")
sShortcut = sPathDesktop & "\NomeDoSeuAplicativo.lnk"
   
Set oShortcut = oWsh.CreateShortcut(sShortcut)
  With oShortcut
   .TargetPath = sPathFile
   .Arguments = " /runtime"
   .Description = "Uma descrição do seu aplicativo"
   .WorkingDirectory = Application.CurrentProject.Path
   .IconLocation = Application.CurrentProject.Path & "\" & "NomeDoSeuIconeUtilizado.ico"
   .Save
  End With
End sub

E esta função abaixo, você roda pela macro AutoExec:

Public Function fncVerificaAtalho()
If Len(Dir(Environ("USERPROFILE") & "\Desktop\NomeDoSeuAtalho.lnk") & "") = 0 Then
   'cria o atalho no Desktop, caso seja inexistente
   Call fncCriarAtalhoDesktop
End If
End Function

Download

 


 

 


1 comentário(s)

ADNILSON ALMEIDA   14/03/2018 18:41:45

muito obrigado por disponibilizar estes exemplos


Envie seu comentário: