Timer skal stoppe og starte....

Bare skjule det?

Tjaa.

Opret en commandbutton, en label og en timer...


Kopier denne kode ind i generel(lav ikke om på navnene på knappen ect.)

--------CODE------------

Public COUNTx As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
Me.Visible = False

End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
COUNTx = COUNTx + 1

Dim minutter As Integer
minutter = 5

If COUNTx > (60 * 5) Then
Me.Visible = True
Label1.Caption = "Ny tekst"
End If
End Sub

--------END------------

KantoRaZa · NorthCode

Me.Visible = False skjuler formen.

Hejsa

Det jeg mere skal bruge er at når der sket nogle handlinger i timer1 så skal timer2 gå igang....


Private Sub Form_Load()

Timer1.Enabled = True
Timer1.Interval = 1000


Private Sub Timer1_Timer()
Label3.Caption = "Tilslutter Netværksprintere..."
' Printer Brother
Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\NAT\Brother HL-1240 - 1 sal"
PrinterDriver = "Brother HL-1240 - 1 sal"
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
WshNetwork.SetDefaultPrinter "\\NAT\Brother HL-1240 - 1 sal"

' Printer HP
Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\NAT\HP LaserJet 6P - Serverrum"
PrinterDriver = "HP LaserJet 6P - Serverrum"
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
WshNetwork.SetDefaultPrinter "\\NAT\HP LaserJet 6P - Serverrum"

'Printer Epson 1.Sal
Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\NAT\Epson FX-880 - 1 sal"
PrinterDriver = "Epson FX-880 - 1 sal"
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
WshNetwork.SetDefaultPrinter "\\NAT\Epson FX-880 - 1 sal"

'Printer Serverrum
Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\NAT\Epson FX-880 - Serverrum"
PrinterDriver = "Epson FX-880 - Serverrum"
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
WshNetwork.SetDefaultPrinter "\\NAT\Epson FX-880 - Serverrum"
timer2.enabled = true
timer2.interval = 1000

End Sub

Private Sub Timer2_Timer()

If Label2.Caption = "Anders Christian Pedersen (Administrator)" Then
Label3.Caption = "Tilslutter Netværksdreve..."

Shell "net time \\nat /set /yes", vbHide
Shell "net use M: \\nat\userdata\%username%", vbHide
Shell "net use I: \\nat\reminst", vbHide
Shell "net use V: \\nat\c$", vbHide
Shell "net use W: \\nat\d$", vbHide
Shell "net use X: \\dag\c$", vbHide
Shell "net use Y: \\dag\d$", vbHide
Shell "net use Z: \\nat\common", vbHide
Unload Me
Else


Shell "net time \\nat /set /yes", vbHide
Shell "net use M: \\nat\userdata\%username%", vbHide
Shell "net use N: \\nat\afd", vbHide
Shell "net use Z: \\nat\common", vbHide
Shell "net use Q: \\nat\vip2000", vbHide
Shell "net use O: \\dag\vip2000", vbHide
Shell "net.exe use \\NAT\epson", vbHide
Unload Me
End If
End Sub

Anders

Fandt ud af hvad jeg havde lavet galt.....

okay.

Men tak for pointene. ;)