' 27-March-2011 Open file Dialog by J. van Zijl aka Slowdown. ' Q7Basic BETA released on 24-March-2011 ' You can find me on, ' http://www.q7basic.org/forum/index.php and ' http://www.kbasic.com/forum/index.php ' this is the mainwindow scope Outlet FileDialog As QPushButton Outlet ShowFile As QLabel Outlet DeleteFile As QPushButton Public Dim SelectedFile As String Signal on_FileDialog_clicked(Checked As Boolean) SelectedFile = OpenFileDialog.GetFile() ShowFile.Text = SelectedFile End Signal Signal on_DeleteFile_clicked(Checked As Boolean) MsgBox("File delete Warning", "File : " & SelectedFile & " is deleted") ' real file deletion is de-activated ' Delete (SelectedFile) End Signal