---

Davs..
Jeg er igang med at lave et program hvor der er et splash screen med. Jeg
vil gerne have en lille textbox hvor den tæller ned indtil splash screenet
lukker. Før lavede jeg 12 timere og hver gang der var gået et sekund i en
time skrev den et tal i textboxen. Der må være en nemmere måde end 12
timere. Please hjælp, og skrive helst lidt nemt da jeg er newbie...

-Quane

---

Hej Kristian

> Jeg er igang med at lave et program hvor der er et splash screen med. Jeg
> vil gerne have en lille textbox hvor den tæller ned indtil splash screenet
> lukker. Før lavede jeg 12 timere og hver gang der var gået et sekund i en
> time skrev den et tal i textboxen. Der må være en nemmere måde end 12
> timere. Please hjælp, og skrive helst lidt nemt da jeg er newbie...

Tolv timere lyder som lidt af en mundfuld.. Det er nok med en:

Sæt timer til 1000 (et sekund)

I timer eventen skriver du følgende

Dim iCount As Integer

iCount = Val(Text1.Text)
iCount = iCount - 1

If iCount = 0 Then
' Formen lukkes når nedtællingen når nul
Unload Me
Else
Text1.Text = iCount
End If

Hermed laves en nedtælling.. Du skal sætte Text1s text property til det tal
der skal tælles ned fra som standard (Den text der står i feltet når formen
vises).

En langt bedre måde er at bruge en Static variabel til nedtællingen. Det er
langt hurtigere end at læse Text1.Text og langt mindre resourcekrævende.

Hilsen/Best regards
Kim Pedersen, vbCode Magician Host
http://hjem.get2net.dk/vcoders/cm
ICQ: 62990889

---

Øhh sorry!
Jeg forstår ikke koden jeg har prøvet at kopieret og gjort som jeg forstod
du havde skrevet men jeg kan ikke få det til at du...

Hilsen Quane






"Kim Pedersen [vbCode Magician]" <codemagician@nospam.get2net.dk> wrote in
message news:AQ8%5.6280$9t1.26422@twister.sunsite.dk...
> Hej Kristian
>
> > Jeg er igang med at lave et program hvor der er et splash screen med.
Jeg
> > vil gerne have en lille textbox hvor den tæller ned indtil splash
screenet
> > lukker. Før lavede jeg 12 timere og hver gang der var gået et sekund i
en
> > time skrev den et tal i textboxen. Der må være en nemmere måde end 12
> > timere. Please hjælp, og skrive helst lidt nemt da jeg er newbie...
>
> Tolv timere lyder som lidt af en mundfuld.. Det er nok med en:
>
> Sæt timer til 1000 (et sekund)
>
> I timer eventen skriver du følgende
>
> Dim iCount As Integer
>
> iCount = Val(Text1.Text)
> iCount = iCount - 1
>
> If iCount = 0 Then
> ' Formen lukkes når nedtællingen når nul
> Unload Me
> Else
> Text1.Text = iCount
> End If
>
> Hermed laves en nedtælling.. Du skal sætte Text1s text property til det
tal
> der skal tælles ned fra som standard (Den text der står i feltet når
formen
> vises).
>
> En langt bedre måde er at bruge en Static variabel til nedtællingen. Det
er
> langt hurtigere end at læse Text1.Text og langt mindre resourcekrævende.
>
> Hilsen/Best regards
> Kim Pedersen, vbCode Magician Host
> http://hjem.get2net.dk/vcoders/cm
> ICQ: 62990889
>
>

---

---

Ups jeg trykkede på reply og ikke reply group sorry... Nå men jeg prøvede
din metodee, og den tæller fint....... ned til NI og det kan jeg jo ikke
bruge så det kunne være fint hvis jeg kunne lave en loop eller sådan noget
men plz jeg skal have hjælp. Jeg er newbie

-Quane



"Bjarne Østergård" <boe@gigasoft.dk> wrote in message
news:91imjp$1sjk$2@news.cybercity.dk...
>
> Kristian Pelle <kristian.pelle@get2net.dk> skrev i en
> nyhedsmeddelelse:vM3%5.116$V76.3158@news.get2net.dk...
> > Davs..
> > Jeg er igang med at lave et program hvor der er et splash screen med.
Jeg
> > vil gerne have en lille textbox hvor den tæller ned indtil splash
screenet
> > lukker. Før lavede jeg 12 timere og hver gang der var gået et sekund i
en
> > time skrev den et tal i textboxen. Der må være en nemmere måde end 12
> > timere. Please hjælp, og skrive helst lidt nemt da jeg er newbie...
> >
> > -Quane
>
>
>
> Private Sub Timer1_Timer()
> Tid=12
> Label1.Caption = Time ' Update time display.
> Tid = Tid - 1
> LblTidOverskrift.Caption = "Du har nu " & Tid & " Sekunder
> tilbage til at indtaste din adgangskode"
>
> LblTid.Width = LblTid.Width - 100
> LblTid.Caption = Tid
>
>
> If Tid = 0 Then
> Her laver du så den kode der skal udføres når tiden er gået.
> Timer1.Enabled = False
> End If
>
> Tiden der går er afhængog af hvad du sætter din timer interval til.
>
>
> --
> Med venlig hilsen
> Bjarne Østergård
> Gigasoft Danmark
> www.gigasoft.dk
> E-Mail boe@gigasoft.dk
> Tlf. 86496404
>
>
>
>
>