LOTUSSCRIPT/COM/OLE CLASSES

Examples: QueryDragDrop event
This QueryDragDrop event continues the drag and drop operation if the user approves of the start and end times for the calendar view entry.

(Globals) (Declarations)
%INCLUDE "lsconst.lss"

Sub Querydragdrop(Source As Notesuiview, Continue As Variant)
 If Messagebox (Source.CalendarDateTime & Chr(13) & _
 Source.CalendarDateTimeEnd, _
 MB_YESNO + MB_ICONQUESTION, _
 "Are these start and end times OK") = IDYES Then
   Continue = True
 Else
   Continue = False
 End If
End Sub

See Also