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]Atalho no Deskop

    Compartilhe
    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 29/01/2010

    [Resolvido]Atalho no Deskop

    Mensagem  Jr.Wano em 26/2/2010, 14:18

    Uso o código abaixo para criar um atalho Desktop,
    gostaria também de definir por código na propriedade do atalho:
    Executar: Minimizado
    Comentário: Wano Sistemas


    Dim caminho As String
    Dim atalhoLnk As Object
    Dim WshShell As Object

    Set WshShell = CreateObject("WScript.Shell")
    caminho = WshShell.SpecialFolders("Desktop")

    Set atalhoLnk = WshShell.CreateShortcut(caminho & "\" & Me.NmAtalho & ".lnk")
    atalhoLnk.IconLocation = Me.EIcone
    atalhoLnk.TargetPath = Me.FE
    atalhoLnk.Save

    Abraços,
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Atalho no Deskop

    Mensagem  JPaulo em 1/3/2010, 15:12

    Amigão desculpe ae de só agora ver a sua duvida.

    O DisplayMode funciona assim: 1:Normal, 3:Maximizado, 7:Minimizado

    Veja se funfa:

    Dim caminho As String
    Dim atalhoLnk As Object
    Dim WshShell As Object

    Set WshShell = CreateObject("WScript.Shell")
    caminho = WshShell.SpecialFolders("Desktop")

    Set atalhoLnk = WshShell.CreateShortCut(caminho & "\" & Me.NmAtalho & ".lnk")
    atalhoLnk.IconLocation = Me.EIcone
    atalhoLnk.TargetPath = Me.FE
    atalhoLnk.WindowStyle = 7
    atalhoLnk.Description = "Wano Sistemas"
    atalhoLnk.Save


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 29/01/2010

    Re: [Resolvido]Atalho no Deskop

    Mensagem  Jr.Wano em 1/3/2010, 16:20

    JPaulo,
    Nada a desculpar e sim muito agradecido pela ajuda.
    Funfou legal.

    Abraços,
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Atalho no Deskop

    Mensagem  JPaulo em 1/3/2010, 17:22

    Valew amigo, precisando de novo estamos aqui.


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3709
    Registrado : 06/11/2009

    Re: [Resolvido]Atalho no Deskop

    Mensagem  Assis em 3/2/2018, 21:56

    Boa noite

    Um exemplo ?

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3709
    Registrado : 06/11/2009

    Re: [Resolvido]Atalho no Deskop

    Mensagem  Assis em 4/2/2018, 12:50

    Boa tarde

    Da minha parte esta resolvido.

    Encontrei solução no exemplo do Luís no Repositório


    Bom domingo


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Atalho no Deskop

    Mensagem  Noobezinho em 4/2/2018, 13:46

    Walter


    Só falta colocar o resolvido no título do tópico.

    [ ]'s

      Data/hora atual: 21/2/2019, 12:30