Give me a signal condition: the upper machine, send 100 - character messages to me at the same time, there is a close time data to me
Requirements: the received signal, play box shows 100 characters information sent to me, at the same time show closed between the countdown, or directly click Ok also can be closed, please write auspicious fine code, thank you!

CodePudding user response:

This is build a form
1, receives the message, form the vbmodel mode to turn on
2, set up the label in the form controls, according to 100 characters
3, open the timer
4, if you click ok, closed form
5, if the timer timing conditions reached, closed form,

I just don't give a detailed code!

CodePudding user response:

There is a no public API function MessageBoxTimeout

Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal HWND As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long

Private Sub Command1_Click ()
MessageBoxTimeout Me. HWND "XXX", "title", vbInformation 0, 3000, '
3 secondsEnd Sub