/ 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
FORM
Fra : HALLSTEIN MYRSTAD


Dato : 15-04-02 20:39

Hvis jeg har laget flere former (form1,form2,form3), hvordan kan jeg få
disse til å skifte liksom en framvisning. Det jeg vil at form 1 skal stå
framme i 5 sekunder, så skal den skifte til form 2 som skal stå fremme i 5
sekunder osv...



 
 
Rayman (16-04-2002)
Kommentar
Fra : Rayman


Dato : 16-04-02 07:28

Sæt en timer på formen, sæt interval til 5000, og enabled til true.
Nu er det smarteste at have et array af forms, ellers skal du have et Select
statement, som vælger hvilken form der vises.
<Snip>
Dim iCount as integer
Const iMAX = 4
Private Sub Timer1_OnTimer()
GetFormByIndex(iCount).Unload
iCount = iCount + 1
If iCount > iMAX then
iCount = iCount + 1
End if
GetFormByIndex(iCount).Show
End Sub

Private Function GetFormByIndex(iIndex as integer) As Form
'Hvis hver form har sit eget navn:
Select Case iIndex
Case 1
Set GetFormByIndex = frmNumber1
Case 2
Set GetFormByIndex = frmNumber2
Case 3
Set GetFormByIndex = frmNumber3
Case Else
msgBox "Failed to find the form: " & iIndex
End Select

'Ellers kan du bare bruge indexet
'Set GetFormByIndex = frmAllToShow(iCount)
End Function
</Snip>

Mvh. Rayman

"HALLSTEIN MYRSTAD" <hamyrsta@c2i.net> wrote in message
news:N%Fu8.1328$HB3.85376@juliett.dax.net...
> Hvis jeg har laget flere former (form1,form2,form3), hvordan kan jeg få
> disse til å skifte liksom en framvisning. Det jeg vil at form 1 skal stå
> framme i 5 sekunder, så skal den skifte til form 2 som skal stå fremme i 5
> sekunder osv...
>
>



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