Hej.. Har en kompletterande fråga till nedanstående kod som jag fick av Johan D. Har försökt hitta på siten ang men undran, men som nybörjare man är...
Jag har ställt in Timer1_Timer() till 60000 men förklara för mig vad nedanstående gör och vad som sker i förändring upp eller med Timern genom förändringar i koden.

Koden nedanför har en Huvudform.

Dim inactiveTime As Long

Private Sub tmrVisa_Timer()

tmrFade.Enabled = True 'Om man visat färdigt så fade
End Sub
Public Sub resetTimer()
inactiveTime = 0
End Sub
Private Sub Timer1_Timer()
'ange tid i sekunder som programmet ska vänta tills formulären stängs
If inactiveTime > 5 Then
inactiveTime = 2000
Unload 1
Unload 2
Unload 3
Unload 4
Unload 5
Unload 6
Unload 7

Else
inactiveTime = inactiveTime + 1
End If
End Sub


Det här ligger i varje underformulär 1, 2 ,3 osv .. som ska stängas ner efter en stunds inaktivitet.


Option Explicit
'OBS, keypreview = True
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Introduktion.resetTimer
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Introduktion.resetTimer
End Sub

Ursäkta det smög med en kodsnutt som inte hörde till frågan....


Hej.. Har en kompletterande fråga till nedanstående kod som jag fick av Johan D. Har försökt hitta på siten ang men undran, men som nybörjare man är...
Jag har ställt in Timer1_Timer() till 60000 men förklara för mig vad nedanstående gör och vad som sker i förändring upp eller med Timern genom förändringar i koden.

Koden nedanför har en Huvudform.

Dim inactiveTime As Long

Public Sub resetTimer()
inactiveTime = 0
End Sub
Private Sub Timer1_Timer()
'ange tid i sekunder som programmet ska vänta tills formulären stängs
If inactiveTime > 5 Then
inactiveTime = 2000
Unload 1
Unload 2
Unload 3
Unload 4
Unload 5
Unload 6
Unload 7

Else
inactiveTime = inactiveTime + 1
End If
End Sub


Det här ligger i varje underformulär 1, 2 ,3 osv .. som ska stängas ner efter en stunds inaktivitet.


Option Explicit
'OBS, keypreview = True
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Introduktion.resetTimer
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Introduktion.resetTimer
End Sub

Om du sätter timerns intervall till 60000 betyder det att koden Timer1_Timer() körs en gång varje minut.

<code>
Public Sub resetTimer()
'Om när någon är aktiv i något annat formulär kommer variabeln att
'nollställas, det betyder att man har varit inaktiv i 0 minuter
inactiveTime = 0
End Sub


Private Sub Timer1_Timer()
'ange tid i sekunder (numera minuter eftersom du har ändra intervallet) som programmet ska vänta tills formulären stängs

'Om användaren inte har gjort något på 5 minuter...
If inactiveTime > 5 Then
'inactiveTime = 2000 denna raden ska inte vara här

'du ska ange formulärens namn
Unload form1
Unload form2
Unload form3
Else
'Om användaren inte har varit inaktiv i 5 minuter ska tiden ökas med en minut
inactiveTime = inactiveTime + 1
End If
End Sub
</code>

/Johan

Snitsit Johan. Det första med 60000 hade jag full koll på, men det andra var uttömmande och mkt lärorikt.
Hursomhelst var det bra att Du svarade på allt med hänsyn till min okunskap rent allmänt sett.
Då förstår jag lite (eller mkt mer) mer efter alla testerna jag gjorde igårkväll med kodsnuttarna och relaterade funktioner
Tack än en gång Ha det bra =)