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
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