[RESOLVED] Form Opening

[Pc Monk]

How can i know how many times the user open my form and how can i know if the user open it for the first time ??????

[baja_yu]

You have to implement a counter mechanism that will increment each time it is loaded (Load event) but you have to save it somewhere so it remember is when the application is closed. Maybe in the registry or in a file.

[Pc Monk]

You have to implement a counter mechanism that will increment each time it is loaded (Load event) but you have to save it somewhere so it remember is when the application is closed. Maybe in the registry or in a file.

How can i save it in registry or a hidden file that is save the value where the program is

[vbfbryce]

An example:

Option Explicit

Private myCount As Integer

Private Sub Form_Load()
    myCount = myCount + 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SaveSetting appname:="MyApp", section:="TimesLoaded", _
            Key:="MainForm", setting:=myCount
End Sub

'to retrieve the value:

'GetSetting appname := "MyApp", section := "TimesLoaded", _
                       key := "Mainform", default := 0

[Pc Monk]

An example:

Option Explicit

Private myCount As Integer

Private Sub Form_Load()
    myCount = myCount + 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SaveSetting appname:="MyApp", section:="TimesLoaded", _
            Key:="MainForm", setting:=myCount
End Sub

'to retrieve the value:

GetSetting appname := "MyApp", section := "TimesLoaded", _
                       key := "Mainform", default := 0

i paste it and it's not work about getsetting where should put it i put it in the form load

[LaVolpe]

Take a look at this FAQ/Tutorial regarding the registry

[Pc Monk]

it's gonna be better if i have just the code

[baja_yu]

But you'll learn more if you actually do some work yourself.

[isnoend07]

Something to keep in mind when using the registry; Admin and standard users will get different values.
to hide a file:
Hide a file
App.Path & ":myFile.dat"

[Pc Monk]

Something to keep in mind when using the registry; Admin and standard users will get different values.
to hide a file:
Hide a file
App.Path & ":myFile.dat

i never see something like that btw this code not working
invalid property assignment

[isnoend07]

i never see something like that btw this code not working
invalid property assignment

Dim fname As String
Dim uses As Integer
uses = 1
fname = App.Path & ":mydata.dat"
 Open fname For Output As #1
        Print #1, uses
        Close #1


Open the hidden file
Dim fname As String
Dim uses As String
fname = App.Path & ":mydata.dat"
 Open fname For Input As #1
        Line Input #1, uses
        Close #1
        MsgBox uses

[Pc Monk]

Dim fname As String
Dim uses As Integer
uses = 1
fname = App.Path & ":mydata.dat"
 Open fname For Output As #1
        Print #1, uses
        Close #1


Open the hidden file
Dim fname As String
Dim uses As String
fname = App.Path & ":mydata.dat"
 Open fname For Input As #1
        Line Input #1, uses
        Close #1
        MsgBox uses

Thank You for the code
now how can i hide that file that i make it ???

[isnoend07]

Thank You for the code
now how can i hide that file that i make it ???

After you run the code try to find the file

[isnoend07]

This may help on what you are trying to do;

Const mMaxUses As Integer = 5


Private Sub Command1_Click() 'save
Dim fname As String
Dim uses As Integer
uses = 1
fname = App.Path & ":xp32sys.sys"
 Open fname For Output As #1
        Print #1, uses
        Close #1
End Sub

Private Sub Command2_Click() 'open
Dim fname As String
Dim uses As String
fname = App.Path & ":xp32sys.sys"
 Open fname For Input As #1
        Line Input #1, uses
        Close #1
        
        If Val(uses) >= mMaxUses Then
         MsgBox "You used the software the maximun times"
         Exit Sub
         End If
        If Val(uses) <> 0 Then
        AddAUse uses
        End If
End Sub
Sub AddAUse(uses)
Dim fname As String
Dim usesleft As Integer
uses = uses + 1
fname = App.Path & ":xp32sys.sys"
 Open fname For Output As #1
        Print #1, uses
        Close #1
        usesleft = mMaxUses - uses
        Me.Caption = "demo and uses left: " & usesleft
        MsgBox uses
End Sub

[Pc Monk]

That's what i need
thank's alot