Implementering af KØ i VB?

Ehm .. hvordan en kø med beskeder ?

Altså... Der skal smiden denne streng i køen....

“SenderNick¥Timestamp¥Command¥Receivers”

... Altså en kø med en Streng...

Håber du er med..

eller strenge...

hmm .. du kan jo bruge en listbox (evt. Visible = False) hvor du tilføjer med .AddItem.. og så når du skal \"processe\" strengene henter du bare den første og sletter den når du har hentet den.

Du kan så have en Timer med f.eks. Interval = 500 (ms). I Timer1_Timer() event\'en laver du flg.


Private Sub Timer1_Timer()
  Timer1.Enabled = False

  Do Until List1.ListCount = 0
    strItem = List1.List(0)
    List1.RemoveItem 0

    \' her laver du hvad du nu vil med strengen
  Loop

  Timer1.Enabled = True
End Sub

Har lige afprøvet det og det virker helt fint :-)

Kommer lige i tanke om at du måske skal have en DoEvents i dit loop så ikke det \"stopper med at svare\" hvis der er mange items...

Private Sub Timer1_Timer()
  Timer1.Enabled = False

  Do Until List1.ListCount = 0
    strItem = List1.List(0)
    List1.RemoveItem 0

    \' her laver du hvad du nu vil med strengen
    DoEvents
  Loop

  Timer1.Enabled = True
End Sub

og så liige en ting til ... en ListBox kan vist max indeholde 65535 items ... men du kan også bruge en anden, lidt mere besværlig, metode med et array

nu spørger jeg lidt dumt... men hvordan hvordan henter og sletter jeg ... Jeg har lavet en list1 og puttet et par strenge i... Hvordan henter jeg den så? og sletter... er Vist heller ikke helt med på, hvad timeren laver..

Sorry .. jeg glemte lige du skrev at du er nybegynder :-(

Timeren kører event\'n. Private Sub (timernavn)_Timer() hvert \"Interval\" millisekund. Så f.eks. 500 il køre den hvert halve sekund.

Det eksempel jeg skrev her giver dig din første streng i variablen strItem, og sletter den derefter med .RemoveItem 0 (sletter den første streng).

Spørg du bare løs hvis der er mere du ikke liige kan forstå hvad gør

Hvad laver den der DoEvent ?

DoEvents sørger for at programmet ikke bare stopper imens dit loop kører. Det gør bl.a. at du stadig kan bruge andre funktioner i programmet mens loop\'et kører.