wat is er fout aan deze code om een trail te maken

Status
Niet open voor verdere reacties.

ido435

Gebruiker
Lid geworden
10 nov 2010
Berichten
674
hallo

ik heb al een tijde liggen te prutsen maar ik kom er maar niet uit
deze code heb ik al
[SQL]Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.registerd = True Then
Form2.Show()
Me.Close()
End If
Label3.Text = DateTime.Now
My.Settings.exdate = DateTime.Now.AddDays(30)
Label4.Text = My.Settings.exdate
End Sub
Public Sub resfrechtime()
Label3.Text = DateTime.Now
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
resfrechtime()
If DateTime.Now > My.Settings.exdate Then
Button2.Hide()
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim serial As String
serial = InputBox("voer uw key in a.u.b", "key", , )
If serial = 1234 Then
My.Settings.registerd = True
Form2.Show()
Me.Close()
End If
End Sub
End Class[/SQL]

maar hoe kan het nu nog voor elkaar krijgen dat de tijd van de applicatie wordt op gestart blijft staan ook als je hem afsluit
alvast bedankt
 
Ergens in het register opslaan?
 
oke en wat is de code daarvoor??
ps zo iets met opslaan had ik ook al aan gedacht maar hoe wist ik dus ook niet :P
 
Dan kun je dat nu mooi doen met mijn link.

Ik hoor het wel als je iets gevonden hebt. ;)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan