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]Ícone do meu sistema na barra de tarefas do Windows 10

    Compartilhe
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 174
    Registrado : 14/03/2011

    [Resolvido]Ícone do meu sistema na barra de tarefas do Windows 10

    Mensagem  Ronaldo Costa em Qui 12 Out 2017, 13:06

    Olá Pessoal.

    A muito tempo uso a função abaixo para que o ícone do meu aplicativo apareça na barra de tarefas:

    Private Function fncTítuloUsuário(usuário As String)
    On Error Resume Next
    Dim myIcon As String
    myIcon = CurrentProject.Path & "\Imagens\sa.ico"
    CurrentDb.Properties("AppTitle") = "Sistema S-Escola v.4 | Usuário Atual: " & UCase(fncNomeUsuario)
    SetFormIcon Me.hWnd, myIcon
    CurrentDb.Properties("AppIcon") = myIcon
    Application.RefreshTitleBar
    End Function

    No entanto, ela não tem funcionado no windows 10. O que preciso fazer para que funcione tão bem como no Win 7?

    grato
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9665
    Registrado : 04/11/2009

    Re: [Resolvido]Ícone do meu sistema na barra de tarefas do Windows 10

    Mensagem  JPaulo em Qui 12 Out 2017, 14:38

    Ola;

    A função "SetFormIcon" requer uma API 32bits.

    O seu Office é 32 ou 64bits ?

    Tem de colar aqui todo o código incluído as linhas da API e função.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 174
    Registrado : 14/03/2011

    Re: [Resolvido]Ícone do meu sistema na barra de tarefas do Windows 10

    Mensagem  Ronaldo Costa em Qui 12 Out 2017, 14:56

    Obrigado pela atenção.

    meu office é de 32b.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9665
    Registrado : 04/11/2009

    Re: [Resolvido]Ícone do meu sistema na barra de tarefas do Windows 10

    Mensagem  JPaulo em Qui 12 Out 2017, 15:06

    Ok, então vai fazer o seguinte, porque o win10 é esquisito mesmo...

    Vá a Configurações da Barra de Tarefas
    Combinar os Botões da Barra de Tarefas

    Altere para "Nunca"

    Teste e retorne por favor.

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 174
    Registrado : 14/03/2011

    Re: [Resolvido]Ícone do meu sistema na barra de tarefas do Windows 10

    Mensagem  Ronaldo Costa em Qui 12 Out 2017, 16:07

    JP, deu certo.

    Mas, eu tenho uma aplicação que é instalada através de um instalador e o ideal seria que eu não precisasse fazer ou pedir que o cliente faça este processo.

    O código que lhe mostrei acima é do frmLogin do mestre Avelino. Questionei-o em outro fórum sobre como resolver, mas ele não me deu resposta.

    Veja esse tópico. Não consigo adaptar, talvez por não ter entendido.

    redeaccess.com.br/viewtopic.php?f=19&t=206
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9665
    Registrado : 04/11/2009

    Re: [Resolvido]Ícone do meu sistema na barra de tarefas do Windows 10

    Mensagem  JPaulo em Qui 12 Out 2017, 16:27

    Tem de ver essa parte, lá mesmo.

    O assunto que o trouxe aqui por agora está resolvido.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    w_fabricio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 19/09/2010

    [Resolvido]Ícone do meu sistema na barra de tarefas do Windows 10

    Mensagem  w_fabricio em Dom 15 Out 2017, 22:52

    Perfeito mestre JPaulo

    O meu não funcionou no Win10 com um código que uso do caro Criquio
    Mas com esta configuração funcionou.

    Código:
    Option Compare Database

    Option Explicit
    'Código disponível no forum maximomaccess pelo mestre criquio
    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 + "\Imagens\Icon.ico"
    intX = AlterarPropriedade("AppTitle", dbText, "Título aqui")
    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

    No formulário principal, coloque no evento "Ao carregar":

    Call DefinirNomeAplicativo

      Data/hora atual: Qua 18 Out 2017, 14:09