Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

POP UP FEEDBACK FORM

Status
Not open for further replies.

raj00

IS-IT--Management
May 7, 2001
9
0
0
US
Hi Friends

I have a question and if you can help me I would appreciate.

* I need one feedback screen. Which I can popup whenever i want and kill after some time, or completion upon some activity.

* User cannot do anything while it is up. The calling screen get disabled when this feedback screen is up

* feedback screen is dismissed by sending some command, not by user.

* feedback screen should show some animation and/or graphic in addition to feedback text.

* this feedback screen should remain on top of main screen


If some one can help me how can I do above tasks, I would be appreciate.


Thanks
Raj
 
I 'm not sure as to why you would want a "feedback" screen which your user would not be able to control (ie they would not be able to control how long they have to read the message). It seems that, as a user, that would be a very annoying feature.

But, that being said, Just create a userform and add a command button but set the Visable property to false.
You'll also want to disable the close, or"x", button:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Cancel <> 1 Then
Cancel = -1
End If
End Sub


Then, in the form code enter:
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Activate()
Dim PauseTime
Dim Start
PauseTime = 5 ' Set duration in seconds.
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
CommandButton1_Click
End Sub


You'll need to add the code for all the pictures and message that you want.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top