...
Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF +
Diversas Revistas (pdf) de brinde, por apenas
R$182,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
Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.
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 |
