By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
455,097 Members | 1,252 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 455,097 IT Pros & Developers. It's quick & easy.

Help needed on reminder application in VB6.0

P: 3
Hi

I want to implement reminder application that pops up at the
specified time. I think there would be some sort of timer that will check
when a reminder is due and pop-up the reminders. The question
is where and how should I implement the timer code so that it runs regardless of if any specific form is open or not.

Regards
Ataana
Apr 2 '07 #1
Share this Question
Share on Google+
5 Replies


100+
P: 149
Hi

I want to implement reminder application that pops up at the
specified time. I think there would be some sort of timer that will check
when a reminder is due and pop-up the reminders. The question
is where and how should I implement the timer code so that it runs regardless of if any specific form is open or not.

Regards
Ataana
Hi ,
You can place the timer on the form itself and make the visible property of the form set to false. This way your form will not be open or visible and the timer code will be there on it.

thanks
ansuman sahu
Apr 2 '07 #2

P: 3
Hi, Thanx for the reply.. but i want the form to do the processing in background and pop up a reminder message on to the main running VB application.
Is it possible?
TIA
Apr 2 '07 #3

devonknows
100+
P: 137
Hi, Thanx for the reply.. but i want the form to do the processing in background and pop up a reminder message on to the main running VB application.
Is it possible?
TIA

Hi not quite understanding what you mean but let me theorise a second.

Get two forms set the property on both of them to Visible = False. ok im assuming that your functions are going to be running constantly ?

Set yourself a private boolean like so

Expand|Select|Wrap|Line Numbers
  1. Option Explicit
  2. Public ReminderActive as Boolean
ok have a timer on your funtions form to run say every 5 minutes ( Interval = 300000 ) and and you could use something like this..

Expand|Select|Wrap|Line Numbers
  1. Private Sub Timer1_Timer()
  2.  
  3. If ReminderActive = False Then 
  4.     frmReminder.Show             'This Will Show your reminder form (rename as appropriate)
  5.     'Place Your Labels Texts Here and Such
  6.     With frmReminder
  7.         .Label1.Caption = "Message1"
  8.         .Label2.Caption = "Message2"
  9.         .Label3.Caption = "Message3"    
  10.     End With
  11. End Sub
  12.  
Then on your form that pops up as a reminder you would put another timer and use something like this using these properties
Timer.Interval = 30000: Timer1.Enabled = True

Expand|Select|Wrap|Line Numbers
  1. Private Sub Timer1_Timer()
  2.    'Run This Command After Interval
  3.    frmFunctions.ReminderActive = False
  4.    Unload Me
  5. End Sub
  6.  
Without fully understanding what you are trying to do i think thats all i can offer without a better description at least. Hope this helps you.

Kind Regards
Devon
Apr 2 '07 #4

vijaydiwakar
100+
P: 579
If ur prog have MDI then use timmer ctrl there ur problem will be get solved
Apr 2 '07 #5

P: 3
Hi not quite understanding what you mean but let me theorise a second.

Get two forms set the property on both of them to Visible = False. ok im assuming that your functions are going to be running constantly ?

Set yourself a private boolean like so

Expand|Select|Wrap|Line Numbers
  1. Option Explicit
  2. Public ReminderActive as Boolean
ok have a timer on your funtions form to run say every 5 minutes ( Interval = 300000 ) and and you could use something like this..

Expand|Select|Wrap|Line Numbers
  1. Private Sub Timer1_Timer()
  2.  
  3. If ReminderActive = False Then 
  4.     frmReminder.Show             'This Will Show your reminder form (rename as appropriate)
  5.     'Place Your Labels Texts Here and Such
  6.     With frmReminder
  7.         .Label1.Caption = "Message1"
  8.         .Label2.Caption = "Message2"
  9.         .Label3.Caption = "Message3"    
  10.     End With
  11. End Sub
  12.  
Then on your form that pops up as a reminder you would put another timer and use something like this using these properties
Timer.Interval = 30000: Timer1.Enabled = True

Expand|Select|Wrap|Line Numbers
  1. Private Sub Timer1_Timer()
  2.    'Run This Command After Interval
  3.    frmFunctions.ReminderActive = False
  4.    Unload Me
  5. End Sub
  6.  
Without fully understanding what you are trying to do i think thats all i can offer without a better description at least. Hope this helps you.

Kind Regards
Devon
Hi, thanx for the reply.. let me explain what i exactly intend to do.I am developing an reminder application in VB6.0
(i) with features like adding,viewing and deleting reminders.Now, This application needs to be integrated with main application.
(ii) Now, when the main application is running and time of a reminder occurs, a pop up dialog appears which informs abt. the reminder.Can u plz throw some light how to code for the (ii) part.

TIA
Ataana
Apr 2 '07 #6

Post your reply

Sign in to post your reply or Sign up for a free account.