LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 02/06/2010 09:15 hs
Testei em VB6, funcionou perfeitamente. Muito bom. vlu// |
|
|
|
|
|
Matrix
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/06/2010 14:20 hs
Poxa! Explica melhor como vc chamou, pois eu fiz inumeros teste com várias formas e apenas abre a MSGBOX mas naum fecha no tempo passado na variável.
Tbm estou usando o VB6.
|
|
|
|
Jesuel
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/06/2010 22:52 hs
Amigo Matrix Crie um form e coloque o um button e coloque no evento clique Private Sub Command1_Click()
Set wshell = CreateObject("Wscript.Shell")
wshell.Popup "mensagem de dois segundos", 2, "seu titulo", 16
End Sub |
|
|
|
Matrix
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/06/2010 08:05 hs
Amigo Jesue,
A questão não é essa... Programo em VB já há décadas...
O que eu gostaria de saber é que disseram que a função acima se aplica ao VB.
Abri caixa de mensagem isso eu sei que vai aconteçer, mas quero saber se alguem fez no VB a caixa fechar automaticamente no tempo de milisegundos no caso acima de 2 segundos ela fecha automaticamente sem necessidade de nenhuma intervenção do usuário como funciona em VBS.
Basta vc abrir o bloco de notas e digitar isso:
Set wshell = CreateObject("Wscript.Shell")
wshell.Popup "mensagem de dois segundos", 2, "seu titulo", 16
salve como QualquerCoisa.vbs e rode.
Vai funcionar perfeimante pois esta instrução foi escrita para Wscript. mas em VB.
Já tentei e ela naum fecha automaticamente.
Se fosse simples assim como no VBS, isso já seria difundido em Foruns no mundo inteiro de VB.
Da uma lidas nas dicas deste forum que tem uma rotina para fazer uma caixa de mensagem fechar automaticamente... e veja quanto trabalho para isso...rs
|
|
|
|
PAULO BORGES
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/02/2015 17:26 hs
Imports System.Windows.Forms
Public Class MsgBoxTimer
Private WithEvents Timer1 As New Timer
Public Sub MsgBox(ByVal mensagem As String, _
ByVal Titulo As String, _
ByVal Tempo As Integer, _
Optional ByVal iMessageBoxButtons As MessageBoxButtons = MessageBoxButtons.OK, _
Optional ByVal iMessageBoxIcon As MessageBoxIcon = MessageBoxIcon.Information)
Timer1.Interval = Tempo * 1000 ' milisegundos
Timer1.Enabled = True
MessageBox.Show(mensagem, Titulo, iMessageBoxButtons, iMessageBoxIcon)
End Sub
Private Sub TimerMsgBox_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
SendKeys.Send("{ESC}")
End Sub
End Class
|
|
|
|
