Køre flere funktioner

Joda... Du kan jo bruge timer funktionen.

Og eller events

Eller måske kan du lave et nyt skujlt vindue, der udfører din funktion i baggrunden.

events??

Events gør dit program istand til at reagere når andre programmer eller interne funktioner kalder, f.eks.
Private Sub TCPWinsock_DataArrival(ByVal bytesTotal As Long)

OK.. men en timer kan godt køre noget kode som ikke stopper alt andet?

Ja, det kan gøres på flere måder. F.eks. ved at sætte Timer1.Interval = 500.
Her vil den kode du har skrevet i "sub Timer1_Timer()" så blive eksikveret

jamen... jeg tror ikke det er det jeg spørger efter... når timeren er sat til så er det fint, og jeg kan bruge porgrammet. men når timeren aktiveres og skal køre noget kode, så spærrer den for at brugeren kan bruge selve programmet

Timeren kan også bruges sådanne
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
  PauseTime = 5  ' Set duration.
  Start = Timer  ' Set start time.
  Do While Timer < Start + PauseTime
      DoEvents  ' Yield to other processes.
  Loop
  Finish = Timer  ' Set end time.
  TotalTime = Finish - Start  ' Calculate total time.
  MsgBox "Paused for " & TotalTime & " seconds"
Else
  End
End If

Dette eksempel er taget direkte fra vb-help!

det vil sige at den kode kan bruges til at pause en process og køre andre events... hmm man kan ikke køre flere events på samme tid eller hvad

brug events. Du kan oprette brugerdef. events eller anvende de enkelte objekters events...

ja men kan man køre 2 events på samme tid

Det foregår jo internt i OS'et. Jeg vil foreslå at du bruger events og ser om ikke det fungere som det skal.

Hmm... jeg skriver her hvad problemet er. jeg henter kilde koden på en hjemme side med følgene funktion

Function ReturnHTML(sURL)
    Dim objXMLHTTP,HTML
    Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
    objXMLHTTP.Open "GET", sURL, False
    objXMLHTTP.Send
    HTML = objXMLHTTP.responseBody
    Set objRS = CreateObject("ADODB.Recordset")
    objRS.Fields.Append "txt", 200, 45000, &H00000080
    objRS.Open
    objRS.AddNew
    objRS.Fields("txt").AppendChunk HTML
    ReturnHTML = objRS("txt").Value
    objRS.Close
    Set objRS = Nothing
    Set objXMLHTTP = Nothing
End Function

det er fint og den virker, men mens denne funktion kører ( og det tager jo lidt tid da den skal ud og forespørge på nettet ) så kan jeg ikke trykke på andre knapper og køre andre events. Da den lige skal være færdig med det den har gang i. Nogen der nu kan hjælpe

Hva' med at putte din funktion ned i en klient, så kan du uden tvivl køre videre med resten af dit program...

jeg har fundet ud af at lave threads i mit program.. jeg skal nok lige poste linket når jeg kommer hjem, da jeg ikke kan huske det i hovedet, men der var ihvertfald en som havde lavet en class der brugte nogen API calls til at starte og stoppe threads

Du kan per definition ikke koere flere funktioner paa samme tid i VB... Det er umugeligt, da VB er single threaded. Dvs, vi har kun en traad, og naar den er i brug, saa fryser alt andet.

Anyway, du har fat i det rigtige, du skal bruge threads, jeg har aldrig proevet det i VB og jeg tror hellerikke jeg ville turde... I C++ hedder det pthreads (POSIX THREADS).

Threads er pisse farligt og arbejde med. Hvis du ikke beskytter dine variabler ordentligt, kan resultatet vaere alt. Taenk paa, at 2 forskellige threads anedrer paa den samme variabel paa samme tid... Eller forskudt paa en forkert maade... Det ville gaa helt galt...

Ups :-)

hmm ikke noget

Prøv at kigge på
http://www.desaware.com/articles/threadingL3.htm
http://www.desaware.com/articles/Waitingl3.htm
http://www.desaware.com/BackThreadL3.htm

Eksempler:
http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=26900&lngWId=1
http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=24672&lngWId=1
http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=14479&lngWId=1