isnoend2001
asked on
Best way to code something vb6
I have a reminder program that loops thru files that contain a date Eg:
C:\Backups\Tasks\02-20-201 6.rtf
C:\Backups\Tasks\02-28-201 5.rtf
C:\Backups\Tasks\03-01-201 5.rtf
C:\Backups\Tasks\03-10-201 5.rtf
C:\Backups\Tasks\03-10-201 6.rtf
C:\Backups\Tasks\06-23-201 5.rtf
C:\Backups\Tasks\06-23-201 6.rtf
the current date is 4 days before one of the dates then a message box displays
Call MsgBox("You have a scheduled task to consider in " & miFirstReminderDays & " days", vbInformation, "Needs attention") and the rtf files is loaded and the form displayed
I have the program run when windows starts invisible and only is shown if a reminder date is found
but i also need to start the program visible to add new items
The only way i could determine a way is to make 2 exeys
one visible and one invisible
Is there another way ?
C:\Backups\Tasks\02-20-201
C:\Backups\Tasks\02-28-201
C:\Backups\Tasks\03-01-201
C:\Backups\Tasks\03-10-201
C:\Backups\Tasks\03-10-201
C:\Backups\Tasks\06-23-201
C:\Backups\Tasks\06-23-201
the current date is 4 days before one of the dates then a message box displays
Call MsgBox("You have a scheduled task to consider in " & miFirstReminderDays & " days", vbInformation, "Needs attention") and the rtf files is loaded and the form displayed
I have the program run when windows starts invisible and only is shown if a reminder date is found
but i also need to start the program visible to add new items
The only way i could determine a way is to make 2 exeys
one visible and one invisible
Is there another way ?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
So am I:) You're welcome.
ASKER
Lot better than 2 exeys I added this:
Private Sub Form_Load()
MsgBox "Press F3 to open"
Me.Visible = False
Timer1.Interval = 1000 ' 1 second
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
MsgBox "Press F3 to open"
Me.Visible = False
Timer1.Interval = 1000 ' 1 second
Timer1.Enabled = True
End Sub
ASKER