CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede bomme Nybegynder
27. september 2004 - 18:14 Der er 5 kommentarer og
2 løsninger

Pause klokker i det ?

Hej alle sammen

Jeg har lavet en pause med

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Jeg vil nu gerne vise et billede det gør jeg sådan her

image1.visible = true

det virker fint! Men hvis så billede 2 skal komme 1 sekund efter skriver jeg koden

image1.visible = true
sleap 1000
image2.visible = true

Det virker ikke fordi at så går der et sekund hvor de begge kommer! Altså image1 kommer ikke først de kommer på samme tid!
Avatar billede driis Nybegynder
27. september 2004 - 18:33 #1
Prøv:
image1.visible=true
DoEvents
Sleep 1000
image2.visible=true

Men, du skal bruge en timer til den funktionalitet, og ikke Sleep. Så undgår du helt problemet. Når du bruger Sleep går eksekveringen af hele dit program i stå, og det kan ikke opdatere skærmen, etc.
Avatar billede bomme Nybegynder
27. september 2004 - 18:44 #2
okay.. Men hvordan vil det fungere med en timer ?
Avatar billede slumtiger Nybegynder
27. september 2004 - 20:27 #3
Nemmerlig, du skal nok en timer. Prøv nedenstående.
Slet din Public declare Sub Sleep.
Indsæt følgende:

Public Declare Function GetTickCount Lib "kernel32" () As Long


Public Function Sleep(TimeToWait As Long)
  Dim Start As Long
  Start = GetTickCount
  Do
    DoEvents
  Loop Until Abs(GetTickCount - Start) > TimeToWait
End Function
Avatar billede bomme Nybegynder
27. september 2004 - 20:55 #4
Hvor bestemmer jeg så tiden henne ?
Avatar billede slumtiger Nybegynder
27. september 2004 - 21:18 #5
Du gør som før, f.eks. 1 sek. bliver:

Sleep 1000

Jeg skulle selv bruge det, og i stedet for at ændre alle sleep's i mit program, lavede jeg denne funktion og fjernede declare sleep. GetTickCount er antal millisek. siden midnat.
Avatar billede bomme Nybegynder
24. oktober 2004 - 23:01 #6
Hvordan giver jeg dig point ?
Avatar billede slumtiger Nybegynder
26. oktober 2004 - 09:14 #7
Du har accepteret mit svar, så jeg har fået point. :o)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic 3 25/04/202414:26 28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic 0 08/12/202320:00 -
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic 2 04/12/202320:07 09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic 0 09/10/202309:14 -
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:03 Fjern "Seneste" - "Hurtig adgang" Fra Windows 11 - Hvordan ? Af Ikke-ekspert i Windows
23/1214:43 html <Input.. Danske bogstaver Af pjotre i Andet software
23/1214:35 Brænde musik fra usb drev til cd Af Caso i Andet hardware
21/1222:16 Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
21/1216:42 Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere
White papers
Flere white papers »


Premium
Teaser billede
Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer
Læs mere »
Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter
Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret
Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge
Se alle »
Computerworld
Teaser billede
Mord på it-profil truer San Franciscos status som tech-mekka: Byen er forvandlet til en zombie-by
Læs mere »
Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed
Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR
Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)
Se alle »
CIO
Teaser billede
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Læs mere »
Software-selskabernes prisstigninger får nu danske virksomheder til at søge mod open source
AI er et falmende buzzword: Lad mig fluks dele en god og en dårlig nyhed
En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
Cyberangreb bliver mere kostbare: Er du forberedt?
Læs mere »
Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
Governance, Risk & Compliance: Knyt stærke bånd mellem forretning og sikkerhed
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »