Dear colleagues,
This days, I'm trying to make a MSGBOX appear and disappear in under 1 second, because I want to make Logging in in message.
I've managed to put this together :
The problems that I've encountered are :
First of all, the code worked fine when I've made it, but, after I opened again the excel file the MSGBOXs didn't want to disappear, unless I clicked OK. After I clicked OK and called the SUBs again the code worked fine. So this bug is happening just when I open the EXCEL file for the fist time...weird...
Second, I can't make the timer go under 1 second, even is I write 0.5 instead of 1 in the code.
The code was written in a USERFORM.
Does anyone have any idea how I can fix this code? (bug + 0.5 sec timer?
Warm regards,
Eugeniu
This days, I'm trying to make a MSGBOX appear and disappear in under 1 second, because I want to make Logging in in message.
I've managed to put this together :
Code:
Sub useShellPopUp()
Dim Rslt As Integer
Const DurationSecs As Integer = 1
Rslt = CreateObject("WScript.Shell").PopUp( _
"Loggin in", DurationSecs, "Establishing connection")
End Sub
Sub useShellPopUp2()
Dim Rslt As Integer
Const DurationSecs As Integer = 1
Rslt = CreateObject("WScript.Shell").PopUp( _
"Loggin in.", DurationSecs, "Establishing connection")
End Sub
Sub useShellPopUp3()
Dim Rslt As Integer
Const DurationSecs As Integer = 1
Rslt = CreateObject("WScript.Shell").PopUp( _
"Loggin in..", DurationSecs, "Establishing connection")
End Sub
Sub useShellPopUp4()
Dim Rslt As Integer
Const DurationSecs As Integer = 1
Rslt = CreateObject("WScript.Shell").PopUp( _
"Loggin in...", DurationSecs, "Establishing connection")
End SubFirst of all, the code worked fine when I've made it, but, after I opened again the excel file the MSGBOXs didn't want to disappear, unless I clicked OK. After I clicked OK and called the SUBs again the code worked fine. So this bug is happening just when I open the EXCEL file for the fist time...weird...
Second, I can't make the timer go under 1 second, even is I write 0.5 instead of 1 in the code.
The code was written in a USERFORM.
Does anyone have any idea how I can fix this code? (bug + 0.5 sec timer?
Warm regards,
Eugeniu
