You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Util/OpenDialog
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
EventHandler Sub Open()
dim o as OpenDialogMBS
dim i,c as integer
dim f as FolderItem
o=new OpenDialogMBS
o.ShowHiddenFiles=true
o.PromptText="Select one or more files:"
o.MultipleSelection=false
o.ActionButtonLabel="Open files"
o.CancelButtonLabel="no, thanks."
o.WindowTitle="This is a window title."
o.ClientName="Client Name?"
o.ShowDialog
c=o.FileCount
if c>0 then
for i=0 to c-1
f=o.Files(i)
dim Path as string = f.nativePath
FileList.List.AddRow path
next
else
// MsgBox "no file was selected."
quit
end if
End EventHandler
End Class
Class FileList Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
End Class