short message after button click

R

RuudS

When a userform is visible and a button has been clicked;
how can VBA show a message for 2 seconds and then hide
this message automatically (without having to click [OK])?

I have tried:

Private Sub CommandButton3_Click()
'[...]
...Form_message.Show
...Call Slaap '(predefined, waits 2 seconds)
...Form_message.Hide
'[...]
End Sub

But this doesn't work. Other options?

Ruud
 
K

KJTFS

When you show the form use .show modeless that will open the form and
let the code continue or you could put a timer object on the current
form and have it start on the form load and then when it hits a certain
time have it close itself.

Keith
www.kjtfs.com
*When a userform is visible and a button has been clicked;
how can VBA show a message for 2 seconds and then hide
this message automatically (without having to click [OK])?

I have tried:

Private Sub CommandButton3_Click()
'[...]
...Form_message.Show
...Call Slaap '(predefined, waits 2 seconds)
...Form_message.Hide
'[...]
End Sub

But this doesn't work. Other options?

Ruud *
Click to expand...
 
B

Bob Phillips

Ruud,

You need to use OnTime

The button code would look like

Private Sub CommandButton1_Click()
Form_Message.Show
End Sub

Add this code to your userform

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:02"), "my_Procedure"
End Sub

and put this code in a normal code module

Sub my_Procedure()
Form_Message.Hide
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
C

Chip Pearson

Ruud,

Set a reference to the Windows Script Host object model, and use
code like the following:

Dim WSH As WshShell
Set WSH = New WshShell
WSH.Popup Text:="Hello", SecondsToWait:=2


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
G

Guest

Thanckxs!


-----Original Message-----
Ruud,

You need to use OnTime

The button code would look like

Private Sub CommandButton1_Click()
Form_Message.Show
End Sub

Add this code to your userform

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue ("00:00:02"), "my_Procedure"
End Sub

and put this code in a normal code module

Sub my_Procedure()
Form_Message.Hide
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

When a userform is visible and a button has been clicked;
how can VBA show a message for 2 seconds and then hide
this message automatically (without having to click [OK])?

I have tried:

Private Sub CommandButton3_Click()
'[...]
..Form_message.Show
..Call Slaap '(predefined, waits 2 seconds)
..Form_message.Hide
'[...]
End Sub

But this doesn't work. Other options?

Ruud
Click to expand...


.
Click to expand...
 
Top