Expiration date in VB

[Schipperjte]

30 dagen trial (date expiration )

Hoi,

Heb in Excel een userform gemaakt met verloop datum.

Als deze verlopen is (eerst waarschuwing) dan start hij niet meer op.

Wou deze ook in Visual Basic 2010 gebruiken maar dat werkt natuurlijk niet

dit is mijn code die ik in Excel gebruikte.

Private Sub UserForm_Initialize()
 Dim exdate As Date
exdate = "27/09/10"
If Date > exdate Then
MsgBox ("Programma is verlopen. ")
ActiveWorkbook.Close
Else
If Int(exdate) - Int(Date) < 8 Then
MsgBox ("Programma verloopt over " & exdate - Date & " dagen, neem contact op met .....")
End If
End If
End Sub

Weet iemand hoe ik dit kan aanpassen of een formule die wel werkt.

Bas

 

[visha]

wat doet het nu dan?

 

[Schipperjte]

Hoi,

Nou ik had wat gemaakt in Excel met Userform

Nu wil ik dit Userform het zelfde maken in VB , maar dit is natuurlijk niet knippen en plakken om dat VB toch iets anders werkt vooral in combinatie met Excel .


In het userform werkt het goed maar wil deze expiration date toch in vb ( het EXE )bestand invoeren.

 

[Schipperjte]

Ik heb wat gevonden dat na een bepaalde tijd

een waarschuwing geeft, dan kan ik de code invullen en dan werkt hij weer "1234"

Maar als hij de waarschuwing geeft stopt hij niet meer , blijft de message box geven
wel 10000 keer als ik hem niet afsluit.

dit had ik gevonden

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Settings.Registred = True Then
            Form2.Show()
            Me.Close()
        End If


        Label3.Text = DateTime.Now()
        If My.Settings.Exdate = Nothing Then
            My.Settings.Exdate = DateTime.Now.AddSeconds(30)
        End If
        Label4.Text = My.Settings.Exdate
    End Sub

    Public Sub RefreshTime()
        Label1.Text = DateTime.Now()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        RefreshTime()

        If DateTime.Now > My.Settings.Exdate Then
            MsgBox("Expired")

        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("Enter Serial", "Serial", 1234, , )

        If Serial = "1234" Then
            My.Settings.Registred = True
            Form2.Show()
            Me.Close()


        End If
    End Sub
End Class

dit staat op Youtube
http://www.youtube.com/watch?v=komGUsfkAeY&feature=related

wat moet ik veranderen om de msgbox maar 1 keer te voorschijn te laten komen ipv 10000 keer achter elkaar ?

 

[jordumus]

hallo,

Je eerste en 2de bericht stelt 2 verschillende vragen... Dit is een antwoord op je 2de vraag (hoe kan ik ervoor zorgen dat er geen 10000 msgboxen zijn):

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Settings.Registred = True Then
            Form2.Show()
            Me.Close()
        End If


        Label3.Text = DateTime.Now()
        If My.Settings.Exdate = Nothing Then
            My.Settings.Exdate = DateTime.Now.AddSeconds(30)
        End If
        Label4.Text = My.Settings.Exdate
    End Sub

    Public Sub RefreshTime()
        Label1.Text = DateTime.Now()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        RefreshTime()

        If DateTime.Now > My.Settings.Exdate Then
            MsgBox("Expired")
sender.enabled=false
        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("Enter Serial", "Serial", 1234, , )

        If Serial = "1234" Then
            My.Settings.Registred = True
            Form2.Show()
            Me.Close()


        End If
    End Sub
End Class

 

[Schipperjte]

Ik heb het geprobeerd maar het is geen verschil


een heleboel Msgboxen in beeld

 

[jordumus]

verander 'sender' eens in timer1?

 

[Schipperjte]

Hoi,

Heb wat gevonden,

Timer1.Stop()

hij geeft 1 keer de waarschuwing wou dan eigenlijk dan nog 1 ding

Dat hij de tekst in de textboxen op slaat in een txt bestand op de C schijf als hij de waarschuwing geeft dat bij verlopen is .

Dit had ik gevonden , als ik de button klik schijft bij de textboxen weg

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For Each Control In Me.Controls
            If TypeOf (Control) Is TextBox Then My.Computer.FileSystem.WriteAllText("C:\textdata.txt", Control.name & "," & Control.text & vbCrLf, True)
        Next
    End Sub

ik heb geprobeerd om het in het form te plakken maar krijg steeds fout meldingen.

Kan wel het form laten sluiten andere laten openen enz maar dat hij dat bestand opslaat krijg ik niet gedaan
dit er tussen plakken gaat niet
For Each Control In Me.Controls
If TypeOf (Control) Is TextBox Then My.Computer.FileSystem.WriteAllText("C:\textdata.txt", Control.name & "," & Control.text & vbCrLf, True)
Next

Dus als de datum of tijd verlopen is ,bestandje in txt opslaan . Msgbox("Expired") weergeven

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Settings.Registred = True Then
            Form2.Show()
            Me.Close()
        End If


        Label3.Text = DateTime.Now()
        If My.Settings.Exdate = Nothing Then
            My.Settings.Exdate = DateTime.Now.AddSeconds(30)
        End If
        Label4.Text = My.Settings.Exdate
    End Sub

    Public Sub RefreshTime()
        Label1.Text = DateTime.Now()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        RefreshTime()

        If DateTime.Now > My.Settings.Exdate Then
         Timer1.Stop()
       ' [B]hier zou hij een file moeten aanmaken [/B]
            MsgBox("Expired")

        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("Enter Serial", "Serial", 1234, , )

        If Serial = "1234" Then
            My.Settings.Registred = True
            Form2.Show()
            Me.Close()


        End If
    End Sub
End Class

 

[Schipperjte]

Ben al zover dat hij een txt file op C:\ zet

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Settings.Registred = True Then
            Form2.Show()
            Me.Close()
        End If


        Label3.Text = DateTime.Now()
        If My.Settings.Exdate = Nothing Then
            My.Settings.Exdate = DateTime.Now.AddSeconds(30)
        End If
        Label4.Text = My.Settings.Exdate
    End Sub

    Public Sub RefreshTime()
        Label1.Text = DateTime.Now()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        RefreshTime()

        If DateTime.Now > My.Settings.Exdate Then
         Timer1.Stop()
       ' hier zou hij een file moeten aanmaken
[B]Dim file_write As New System.IO.StreamWriter("C:\Hoi.txt")

file_write.Close()[/B]

            MsgBox("Expired")

        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("Enter Serial", "Serial", 1234, , )

        If Serial = "1234" Then
            My.Settings.Registred = True
            Form2.Show()
            Me.Close()


        End If
    End Sub
End Class