/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
blinkende textbox
Fra : HALLSTEIN MYRSTAD


Dato : 24-02-02 13:36

hvordan skal jeg få en textbox til å blinke mellom f.eks rødt og hvitt bare
fem ganger. Den skal ikke bline hele tiden



 
 
Martin (24-02-2002)
Kommentar
Fra : Martin


Dato : 24-02-02 21:34

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

private sub Form_load()
for I = 1 to 5
If text1.backColor = vbWhite then
text1.backColor =vbRed
Else
text1.backColor =vbWhite
end if
sleep 1000
end sub

Håber du kan bruge denne kode til noget.

mvh. Martin
"HALLSTEIN MYRSTAD" <hamyrsta@c2i.net> wrote in message
news:U65e8.677$V07.9877@juliett.dax.net...
> hvordan skal jeg få en textbox til å blinke mellom f.eks rødt og hvitt
bare
> fem ganger. Den skal ikke bline hele tiden
>
>



Henrik Jensen (24-02-2002)
Kommentar
Fra : Henrik Jensen


Dato : 24-02-02 23:08


"Martin" <martin.molle@get2net.dk> skrev i en meddelelse
news:X7ce8.165$9c.3796@news.get2net.dk...
> Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal
dwMilliseconds
> As Long)
>
> private sub Form_load()
> for I = 1 to 5
> If text1.backColor = vbWhite then
> text1.backColor =vbRed
> Else
> text1.backColor =vbWhite
> end if
> sleep 1000
> end sub
>
> Håber du kan bruge denne kode til noget.

Der mangler da lige en NEXT mellem Sleep 1000 og End sub.


--


Venlig hilsen / Best regards

Henrik

<><><><> Fjern NOSPAM ved direkte svar <><><><>




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste