I have an application which I am displaying images in a dialog box either by selecting individual ones from a list or by running it like a slide show (code below is the slideshow code).
In the slideshow I need to show the cancel button to stop it if necessary, but, however much I try, I cannot get the cancel button to show up.
I use dialog boxes a lot so, unless I am missing something obvious here , I can’t see anything wrong.
Please put me out of my misery!
Thanks in advance
Dim session As New notessession
Dim db As notesdatabase
Dim view As notesview
Dim doc As notesdocument
Dim ws As New NotesUIWorkspace
Dim uidoc As notesuidocument
Set view = db.GetView(“POS Pics”)
Set doc =view.GetFirstDocument
While Not (doc Is Nothing)
pictoshow=doc.picturename(0)
flag=ws.DialogBox(“POSPics”,True,True,False,True,True,True,pictoshow,doc,True,False,False)
If Not flag Then Exit Sub
Set doc = view.getnextdocument(doc)
Wend