[Resolvido]Dúvida Repositório Msgbox com tempo

amigo...

esta dica
https://www.maximoaccess.com/t629-msgbox-com-tempo#257162

pra mim não não funcionou... da o erro... sera que tenho que habilitar alguma referencia?

ou declarar alguma variável?

o erro que da é que preciso declarar a variável... para a palavra Wshell... mas você não declara..... eu declarei como objeto e não executou o tempo que pedi...

pode me ajudar?

Não precisa de referência pois está utilizando o comando CreateObject, mas caso você queira dar uma olhada nos outros métodos que a classe possui, adicione uma referência para Windows Script Host Object Model.

E mude para o código abaixo:

Código:

Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title As String) As VbMsgBoxResult
    Dim WShell As New WshShell
    MsgBoxTimer = WShell.Popup(Prompt, Seconds, Title, Buttons)
End Function


onde coloco o tempo???
1000= 1 segundo???

Roberto_1977 escreveu:onde coloco o tempo???
1000= 1 segundo???

1 segundo = 1.

Hazael escreveu:
amigo...

pra não não funcionou... da o erro... sera que tenho que habilitar alguma referencia?

ou declarar alguma variável?

o erro que da é que preciso declarar a variável... para a palavra Wshell... mas você não declara..... eu declarei como objeto e não executou o tempo que pedi...

pode me ajudar?

Não deu certo porque seu código provavelmente tem a declaração Option Explicit no começo do módulo, isso obriga a declaração de variáveis.
Quando precisar declarar uma variável e não souber o tipo que será definido nela, utilize apenas Dim variável sem o tipo ou com o tipo Variant, que é o padrão utilizado quando vc não declara nenhum tipo.

A maneira correta, sem precisar usar a referência seria a seguinte:

Código:

Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title As String) As VbMsgBoxResult
  Set WShell = CreateObject("WScript.Shell")
  MsgBoxTimer = WShell.Popup(Prompt, Seconds, Title, Buttons)
End Function

Para evitar deletar esse tópico, vou transferi-lo para a sala de Módulos e VBA.

Quando o código estiver funfando, convido o autor do tópico a abrir novo tópico
no repositório.

Noob

Amigos

Testei o código passado na primeira mensagem pelo Marco Messa e funcionou perfeitamente:

MsgBoxTimer 5,"Esse é apenas um teste da BoxTimer",vbInformation,"BoxTimer"


[ ]'s

Noob

É porque o Hazael tinha a opção Option Explicit no código dele, que obriga a declaração de variáveis.