Solved

I want to limit the time an input box is presented...

Posted on 1998-12-16
15
153 Views
Last Modified: 2010-05-03
I have a typical INPUT BOX FUNCTION. It brings up a question and sits waiting for input then the OK button. How can I control the time that the box is presented (I want about 5 seconds) before it the code moves on past it?
0
Comment
Question by:aaagarb
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 4
  • 4
  • +1
15 Comments
 
LVL 4

Expert Comment

by:Chizl
ID: 1450782
Create your own InputBox and name the function InputBoxEx
0
 

Author Comment

by:aaagarb
ID: 1450783
Sorry, but your answer is confusing. I don't understand your intention.
Could you offer the code and explain yourself please?
0
 
LVL 15

Expert Comment

by:ameba
ID: 1450784
This is e-mail, written by Karl E. Peterson

It's not really that tough.  Timers are only blocked in the IDE, and will continue to
work in an EXE.  Here's an example.  This works *if* compiled.  Fails otherwise.
Paste this code into a form with a timer and a command button.

Enjoy...   Karl


   Option Explicit
   Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
   Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd
As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   Private Const WM_CLOSE = &H10
   Private Const MsgTitle As String = "Test Message"

   Private Sub Command1_Click()
      With Timer1
         .Interval = 2000
         .Enabled = True
      End With
      MsgBox "I should disappear in two seconds.", , MsgTitle
   End Sub

   Private Sub Timer1_Timer()
      Dim hWnd As Long
      Timer1.Enabled = False
      hWnd = FindWindow(vbNullString, MsgTitle)
      Call SendMessage(hWnd, WM_CLOSE, 0, ByVal 0&)
   End Sub

0
Salesforce Has Never Been Easier

Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now

 
LVL 3

Expert Comment

by:jjmartin
ID: 1450785
I think what Chizl is going for is this.  Create your own form that you will display as an input box.  The form will have a label for the prompt to the user, a text box or whatever you need for the users input, and an OK button.  You can also put on a timer control that you can use to limit the time that the input form is displayed.

When you display the form, fill the label with the appropriate prompt for the user, and on the form load, start the timer function that will kill the form after a set time.
0
 
LVL 4

Expert Comment

by:Chizl
ID: 1450786
Thanx jjmartin,
I thought that was pretty clear, but guess not.
0
 

Author Comment

by:aaagarb
ID: 1450787
ameba...this works perfectly if you use an information box. However, I am using an input box which does not go away until you press OK. Can you think of a way to modify your code to accomplish this with an input box.?

0
 
LVL 15

Accepted Solution

by:
ameba earned 50 total points
ID: 1450788
OK. Here is modification.

Private Sub Command1_Click()
      With Timer1
         .Interval = 5000
         .Enabled = True
      End With
      Dim ret As String
      ret = InputBox("I should disappear in five seconds.", MsgTitle, "default value")
End Sub

0
 

Author Comment

by:aaagarb
ID: 1450789
works fine..thanks for persevering.

0
 
LVL 4

Expert Comment

by:Chizl
ID: 1450790
I think he was looking for someone to catch the fish for him not learn how to catch the fish for himself.
0
 
LVL 15

Expert Comment

by:ameba
ID: 1450791
Nooo, MsgTitle was on a wrong place. It confused me, also.
0
 
LVL 4

Expert Comment

by:Chizl
ID: 1450792
No, I was talking about aaagarb or is ameba = aaagarb?  Both seem to be really confused.  MsgTitle being is the wrong place confused you and it's your code.
0
 
LVL 15

Expert Comment

by:ameba
ID: 1450793
>really confused (RC)
OK. I can prove you everybody can be RC. See your e-mail box in a minute.
0
 
LVL 4

Expert Comment

by:Chizl
ID: 1450794
Mathmatics is a wonderful thing..  :)
0
 
LVL 4

Expert Comment

by:Chizl
ID: 1450795
Now that I know who you are..  
0
 

Author Comment

by:aaagarb
ID: 1450796
Not the forum for "can you top this?" wars.
Thanks both for your time and comments.

0

Featured Post

Enroll in May's Course of the Month

May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

739 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question