• Home
 · 
• Custom Controls/Forms/Menus
 · 
• ADVANCED Form Loaded Times

ADVANCED Form Loaded Times

Gets how many times your form was loaded

Returns
Returns as Long

Rate ADVANCED Form Loaded Times

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Public Sub SetLoaded()
  'put this in your main forms' Load procedure
  'this will set the count
  Dim lTemp As Long, sPath As String
  lTemp& = GetLoaded&
  If Right$(App.Path, 1) <> "\" Then sPath$ = App.Path & "\" & App.EXEName & ".tmp" Else sPath$ = App.Path & App.EXEName & ".tmp"
  Open sPath$ For Output As #1
  Print #1, lTemp& + 1
  Close #1
 End Sub
 Public Function GetLoaded() As Long
  'call this to get how many times program has been loaded
  On Error Resume Next
  Dim sPath As String, sTemp As String
  If Right$(App.Path, 1) <> "\" Then sPath$ = App.Path & "\" & App.EXEName & ".tmp" Else sPath$ = App.Path & App.EXEName & ".tmp"
  Open sPath$ For Input As #1
  sTemp$ = Input(LOF(1), #1)
  Close #1
  If sTemp$ = "" Then GetLoaded& = 0 Else GetLoaded& = CLng(sTemp$)
 End Function