MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Trocar ícone de barras de tarefas

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 958
    Registrado : 23/01/2018

    [Resolvido]Trocar ícone de barras de tarefas Empty [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  crysostomo em 18/7/2018, 17:46

    galera estou fazendo outro sistema , mas não consigo trocar o ícone de barras de tarrafas.
    Ja fiz muitos modulos e não consogo, o ultimo que fiz foi um topico que achei aqui.


    Código:
    [b]Option Compare Database

    Option Explicit
    Public strCaminho As String
    Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Const WM_GETICON = &H7F
    Private Const WM_SETICON = &H80
    Private Const ICON_SMALL = 0
    Private Const ICON_BIG = 1
    Private Const IMAGE_BITMAP = 0
    Private Const IMAGE_ICON = 1
    Private Const IMAGE_CURSOR = 2
    Private Const IMAGE_ENHMETAFILE = 3
    Private Const LR_DEFAULTCOLOR = &H0
    Private Const LR_MONOCHROME = &H1
    Private Const LR_COLOR = &H2
    Private Const LR_COPYRETURNORG = &H4
    Private Const LR_COPYDELETEORG = &H8
    Private Const LR_LOADFROMFILE = &H10
    Private Const LR_LOADTRANSPARENT = &H20
    Private Const LR_DEFAULTSIZE = &H40
    Private Const LR_LOADMAP3DCOLORS = &H1000
    Private Const LR_CREATEDIBHeader = &H2000
    Private Const LR_COPYFROMRESOURCE = &H4000
    Private Const LR_SHARED = &H8000
    Function CurrentDbDir() As String
    Dim strName As String
    strName = Currentdb.Name
    CurrentDbDir = Left(strName, Len(strName) - Len(Dir(strName)))
    End Function
    Function DefinirNomeAplicativo()
    Dim intX As Integer
    strCaminho = CurrentDbDir + "C:\Users\g\Desktop\Projetos ADV\projeto de sistema diario EBD\icones\favicon.ico"
    intX = AlterarPropriedade("AppTitle", dbText, "DiárioEBd")
    intX = AlterarPropriedade("AppIcon", dbText, strCaminho)
    RefreshTitleBar
    End Function
    Function AlterarPropriedade(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    On Error Resume Next
    Dim prp As Property, DB As DAO.Database
    Const conPropNotFoundError = 3270
    Set DB = Currentdb
    On Error GoTo Change_Err
    DB.Properties(strPropName) = varPropValue
    AlterarPropriedade = True
    Change_Bye:
    Set DB = Nothing
    Exit Function
    Change_Err:
    If Err = conPropNotFoundError Then '
    Set prp = DB.CreateProperty(strPropName, varPropType, varPropValue)
    DB.Properties.Append prp
    Resume Next
    Else
    AlterarPropriedade = False
    Resume Change_Bye
    End If
    End Function

    Private Sub Form_Load()
    Call DefinirNomeAplicativo
    End Sub[/b]
    Não consigo, aonde eu erro  aqui?

    [Resolvido]Trocar ícone de barras de tarefas Troca_10
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6308
    Registrado : 15/03/2013

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  ahteixeira em 19/7/2018, 06:26

    Olá Gilliard, nem tentou uma pesquisa no fórum!

    Não falta exemplos no forum, veja como fazer uma "Busca":
    http://www.maximoaccess.com/t1115-busca-no-forum-search

    Veja:
    http://www.maximoaccess.com/t30869-resolvidoicon-da-aplicacao

    Aproveito para alertar que tem vários tópicos abertos e que deve dar continuidade e retorno aos colegas que tentam ajudar.
    Verifique a situação.

    Abraço e bons estudos com o MaximoAccess.
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 958
    Registrado : 23/01/2018

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  crysostomo em 19/7/2018, 16:51

    eu usei ahteixeira foi aqui  no fórum que achei esse código , e que não consigo entender porque não está funcionando.
    Ja fiz , colei os módulos que está no link ja alterei o caminho e nada.


    será que não funciona porque não está no executável?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6308
    Registrado : 15/03/2013

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  ahteixeira em 20/7/2018, 07:28

    Olá,

    E quanto à Verifique a situação

    Relativo à questão estou a preparar um exemplo, apesar da situação já ter sido relatada e resolvida para essa situação nas versões superiores do Windows 7.

    Abraço
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 958
    Registrado : 23/01/2018

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  crysostomo em 24/7/2018, 15:22

    Galera desculpa , mas eu ja tentei muitas veses ja mudei  codigo e não consigo trocar o  ícone
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 958
    Registrado : 23/01/2018

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  crysostomo em 25/7/2018, 19:43

    pessoal ,  qual  é o  meu problema aqui  me ajuda aqui ,.

    estou tentando  troca icone da barra de tarefas um monte de veses e não consigo.

    Public Function SetappIcon()
    Dim IconPath As String
    Dim AppIconPrp As Property
    Dim db As Database
    On Error Resume Next
    IconPath = "C:\Users\g\Desktop\Projetos ADV\projeto de sistema diario EBD\icones\faviconebd.ico"
    Set db = CurrentDb
    Set AppIconPrp = db.CreateProperty()
    AppIconPrp.Name = "AppIcon"
    AppIconPrp.Type = dbText
    AppIconPrp.Value = IconPath
    db.Properties.Append AppIconPrp
    db.Properties("AppIcon") = IconPath
    Application.RefreshTitleBar
    Set db = Nothing
    End Function
    Private Sub Form_open()
    Call SetappIcon '' nome do módulo e da sub

    End Sub



    preciso mudar isso.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6308
    Registrado : 15/03/2013

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  ahteixeira em 26/7/2018, 18:31

    Olá Gilliard,

    Teste exemplo do tópico abaixo:
    http://www.maximoaccess.com/t33894-icon-e-titulo-da-aplicacao-e-criar-atalho-no-ambiente-de-trabalho

    Ficamos aguardar o retorno.

    Abraço
    Julio Lustosa
    Julio Lustosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 22/02/2011

    [Resolvido]Trocar ícone de barras de tarefas Empty Faça com um atalho!

    Mensagem  Julio Lustosa em 30/7/2018, 09:04

    Bom dia!

    Eu esqueceria o código e faria com um atalho. Crie um atalho para a sua aplicação e nas propriedades do atalho você coloca a imagem que quiser.

    Faço desta forma sempre.

    Tente e nos informe se deu certo.

    Abraços.
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 958
    Registrado : 23/01/2018

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  crysostomo em 31/7/2018, 13:35

    Julio Lustosa
     colega , isso so muda o ícone da tela , da barra de tarefas não muda , porque a base dele é access.
    como  consegue mudar o ícone na barra de tarefas?
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 958
    Registrado : 23/01/2018

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  crysostomo em 31/7/2018, 15:29

    Depois de tantos erros meus com ajuda de vocês , problema resolvido, mas quero tirar uma duvida com nosso  amigo ahteixeira
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6308
    Registrado : 15/03/2013

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  ahteixeira em 31/7/2018, 16:20

    Olá a todos,

    Gilliard, se está relacionado com o tópico, pode colocar aqui a questão.
    Também deve dar o retorno de como resolveu, pois assim ajuda outros membros com a mesma dúvida, evitando abertura de tópicos duplicados.

    Abraço
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 958
    Registrado : 23/01/2018

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  crysostomo em 2/8/2018, 16:35

    eu peguei o código  do irmão teixeira  e implantei no meu programa , por isso tive que criar o botão no início do programa, pois não tive outro jeito. agora só queria que ele desaparecesse após 1 click. farei um setup do sistema e ao acabar a instalação que farei ele abrira para criar atalho.
    Pois estudei esse código e não conseguí entender como que ele sabe de qual programa ele vai fazer atalho

    [Resolvido]Trocar ícone de barras de tarefas Implem11
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6308
    Registrado : 15/03/2013

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  ahteixeira em 2/8/2018, 19:59

    Olá Gillard,

    O mais simples era sempre que abre o seu projeto (no primeiro form que apresenta) chamar o codigo que cria o Atalho.
    Assim tinha a certeza que tinha sempre o Atalho, e se copiar a base de dados para outro computador vai criar (mesmo que já exista)

    Respondendo à questão pode colocar o botão cmdCriarAtalho na propriedade Visivel como Não (para ficar por defeito oculto)

    Cole o código abaixo:
    Código:
    Private Sub Form_Open(Cancel As Integer)
        If Len(Dir(Environ("USERPROFILE") & "\Desktop\NomeDoAtalho.lnk") & "") <> 0 then
            Me.cmdCriarAtalho.Visible = true
        End If
    End Sub
    Assim ao abrir se não existir o Atalho vai mostrar o botão.
    Não se esqueça de ajustar o nome do atalho, mantendo a extensão LNK

    Abraço
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 958
    Registrado : 23/01/2018

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  crysostomo em 18/3/2019, 13:05

    meu amigo , voltei  nesse tópico,  porque o office 2010 faz o  atalho , mais não troca o  icone da barra de tarefa
    nesse codigo

    pode me ajudar?

    Código:
    Private Sub Comando21_Click()
    Dim oWSH As Object, oAtalho As Object
        Dim sCaminhoDesktop, sAtalho, sCaminhoBD As String
       sCaminhoBD = Application.CurrentProject.Path & "\" & Application.CurrentProject.Name   'pode-se alterar por caminhoCompleto\nomeBaseDados.ext
      
        Set oWSH = CreateObject("WScript.Shell")
       sCaminhoDesktop = oWSH.SpecialFolders("Desktop")
       sAtalho = sCaminhoDesktop & "\Alarme do Consultório.lnk"
        
        Set oAtalho = oWSH.CreateShortcut(sAtalho)
           With oAtalho
             .TargetPath = Chr(34) & SysCmd(9) & "MSACCESS.EXE" & Chr(34)
             .Arguments = Chr(34) & sCaminhoBD & Chr(34)
             .Description = "Agenda de compromisso"
             .WorkingDirectory = Application.CurrentProject.Path
              .IconLocation = Application.CurrentProject.Path & "\" & "iconeAlrme.ico"   'pode-se alterar por caminhoCompleto\nomeIcon.ico
              .Save
           End With
        
        MsgBox "Atalho criado no Ambiente de Trabalho (Desktop) com sucesso.", vbInformation, ""
        DoCmd.Quit
    [Resolvido]Trocar ícone de barras de tarefas Sem_tz24


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado

    [Resolvido]Trocar ícone de barras de tarefas Empty Re: [Resolvido]Trocar ícone de barras de tarefas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/9/2019, 12:53