RickLiebespach
Programmer
I'm on to my next puzzle... wanna help?
I'm using an OCX alarm. When the alarm fires I'm trying to display a message in a new page, displayed in a new browse window.
My alarm function is currently displaying a msgbox. I've looked at the msgbox and it looks like it supports a variety of buttons. I've tried to display a message with Yes/No buttons... but every time I try I get an error message.
... what I really need is to display a new page with radiobuttons and other such stuff... but I don't know how to open that page in it's own browse window.
How would you change this function to do that?
Sub ctAlarm1_Alarm(ByVal cKeyID, ByVal cAlarmData)
' Show that the Alarm event has been raised
dim cMessage
dim nStyle
dim cTitle
dim myHour
dim myMinute
dim mySecond
DIM TestDate
TestDate = DateDiff("d",#01/01/1900#,Now)
cMessage = "Reminder: " & cKeyID & CHR(10) & CHR(13) & " Snooze?"
msgbox(cMessage)
'nStyle = 4 'YesNo buttons
'cTitle = "Reminder"
'msgbox(cMessage, nStyle, cTitle)
'If response = MsgBoxResult.Yes Then ' User chose Yes.
' ' Perform some action.
' myHour = hour(Now)
' myMinute = minute(Now)
' mySecond = second(Now)+15
' Call ctAlarm1.SetKeyTimeAlarm(TestDate, myHour, myMinute, mySecond, cKeyID, False, 0, 0, 0)
'Else
' ' Perform some other action.
'End If
End Sub
Rick Liebespach
I'm using an OCX alarm. When the alarm fires I'm trying to display a message in a new page, displayed in a new browse window.
My alarm function is currently displaying a msgbox. I've looked at the msgbox and it looks like it supports a variety of buttons. I've tried to display a message with Yes/No buttons... but every time I try I get an error message.
... what I really need is to display a new page with radiobuttons and other such stuff... but I don't know how to open that page in it's own browse window.
How would you change this function to do that?
Sub ctAlarm1_Alarm(ByVal cKeyID, ByVal cAlarmData)
' Show that the Alarm event has been raised
dim cMessage
dim nStyle
dim cTitle
dim myHour
dim myMinute
dim mySecond
DIM TestDate
TestDate = DateDiff("d",#01/01/1900#,Now)
cMessage = "Reminder: " & cKeyID & CHR(10) & CHR(13) & " Snooze?"
msgbox(cMessage)
'nStyle = 4 'YesNo buttons
'cTitle = "Reminder"
'msgbox(cMessage, nStyle, cTitle)
'If response = MsgBoxResult.Yes Then ' User chose Yes.
' ' Perform some action.
' myHour = hour(Now)
' myMinute = minute(Now)
' mySecond = second(Now)+15
' Call ctAlarm1.SetKeyTimeAlarm(TestDate, myHour, myMinute, mySecond, cKeyID, False, 0, 0, 0)
'Else
' ' Perform some other action.
'End If
End Sub
Rick Liebespach