I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
I need to transfer some values to excel and hence set the statusbar to "Transfering data from Access..." (in the Excel workbook) and when the transfer is done, write "Transfer complete"
After 5 seconds, I want the statusbar to be blank. But I guess I can open a hidden form, wait 5 seconds, close the form and resume the VBA code...(NOT very elegant!)
Nedenstående fungerer godt nok med milisekunder, men det er rimeligt nemt at lave en omregning :-)
Private Declare Sub shpApiSleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Public Sub shpSleep(lngMilliSec As Long) ' ----------------------------------------------------------------------------------- ' Purpose : Stop execution for lngMilliSec milliseconds ' Called from : ' Returns : ' Remarks : ' ----------------------------------------------------------------------------------- If lngMilliSec > 0 Then Call shpApiSleep(lngMilliSec) 'Call API End If
Men den stopper jo selvfølgelig kun i x milisekunder. Hvis du vil tælle et antal sekunder frem, er det straks noget andet. Der er også nogle API funktioner der kan bruges til at lave noget, men det bliver lidt omstændigt så selv om Terry's form måske ikke er 'the right way' so er det i hvert fald 'the easy way' :-)
Ja, terry's way er tættest på....suk, det ER sgu nemmere i C++
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.