Click here to Skip to main content
11,434,743 members (43,618 online)
Click here to Skip to main content
Add your own
alternative version

Extend OpenFileDialog and SaveFileDialog the easy way

, 22 Mar 2012 CPOL
Customize OpenFileDialog and SaveFileDialog using a User Control
CustomFileDialog_old.zip
CustomFileDialog
Properties
Settings.settings
FileDlgExtenders
Properties
CustomFileDialog_src2.zip
VB_Code
FileDlgExtenders
CSharp_Code
FileDlgExtenders
Properties
Properties
My Project
Settings.settings
My Project
Settings.settings
bin
release
bin
Debug
Release
obj
Debug
DesignTimeResolveAssemblyReferencesInput.cache
Refactor
FileDlgExtenders.dll
TempPE
Release
Refactor
TempPE
CustomFileDialog_src_old.zip
C__Projects_CustomFileDialog_src2.zip
Settings.settings
Settings.settings
DesignTimeResolveAssemblyReferencesInput.cache
FileDlgExtenders.dll
CustomFileDialog_src_old.zip
C__Projects_release2.zip
FileDlgExtenders.dll
CustomOpenFileDialog.exe
release2.zip
FileDlgExtenders.dll
CustomOpenFileDialog.exe
'  Copyright (c) 2006, Gustavo Franco
'  Copyright � Decebal Mihailescu 2007-2010

'  Email:  gustavo_franco@hotmail.com
'  All rights reserved.

'  Redistribution and use in source and binary forms, with or without modification, 
'  are permitted provided that the following conditions are met:

'  Redistributions of source code must retain the above copyright notice, 
'  this list of conditions and the following disclaimer. 
'  Redistributions in binary form must reproduce the above copyright notice, 
'  this list of conditions and the following disclaimer in the documentation 
'  and/or other materials provided with the distribution. 

'  THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY
'  KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
'  IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR
'  PURPOSE. IT CAN BE DISTRIBUTED FREE OF CHARGE AS LONG AS THIS HEADER 
'  REMAINS UNCHANGED.


Imports Microsoft.VisualBasic
Imports System
Imports System.IO
Imports System.Data
Imports System.Text
Imports System.Drawing
Imports System.Windows.Forms
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Runtime.InteropServices
Imports System.Drawing.Imaging
Imports AboutUtil
Imports FileDialogExtenders

Namespace CustomControls

	Partial Public Class FormMain
		Inherits Form
		Public Sub New()
			InitializeComponent()

		End Sub

		Protected Overrides Sub OnLoad(ByVal e As EventArgs)
			lblFilePath.Text = Path.Combine(Environment.GetEnvironmentVariable("SystemRoot"), "profiles\All Users\Documents\My Pictures\Sample Pictures\winter.jpg")
			MyBase.OnLoad(e)
		End Sub
		Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles _btnSelect.Click, _btnSave.Click, _btnExtension.Click, _btnSaveExt.Click, _btnExit.Click

			If sender.Equals(_btnSelect) Then
				Using openDialog As New MyOpenFileDialogControl()
					If openDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
						lblFilePath.Text = openDialog.MSDialog.FileName
					End If
				End Using

			ElseIf sender.Equals(_btnSave) Then
				Using saveDialog As New MySaveDialogControl(lblFilePath.Text, Me)
					If saveDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
						lblFilePath.Text = saveDialog.MSDialog.FileName
					End If
				End Using
			ElseIf sender.Equals(Me._btnExtension) Then
				Using openDialogCtrl As New MyOpenFileDialogControl()
					openDialogCtrl.FileDlgInitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
					Dim openDialog As New OpenFileDialog()
					openDialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
					openDialog.AddExtension = True
					openDialog.Filter = "Image Files(*.bmp)|*.bmp |Image Files(*.JPG)|*.JPG|Image Files(*.jpeg)|*.jpeg|Image Files(*.GIF)|*.GIF|Image Files(*.emf)|*emf.|Image Files(*.ico)|*.ico|Image Files(*.png)|*.png|Image Files(*.tif)|*.tif|Image Files(*.wmf)|*.wmf|Image Files(*.exif)|*.exif"
					openDialog.FilterIndex = 2
					openDialog.CheckFileExists = True
					openDialog.DefaultExt = "jpg"
					openDialog.FileName = "Select Picture"
					openDialog.DereferenceLinks = True
					'openDialog.ShowHelp = true;
					If Environment.OSVersion.Version.Major < 6 Then
						 openDialog.SetPlaces(New Object() { "c:\", CInt(Places.MyComputer), CInt(Places.Favorites), CInt(Places.Printers), CInt(Places.Fonts) })
					End If
					If openDialog.ShowDialog(openDialogCtrl, Me) = System.Windows.Forms.DialogResult.OK Then
						lblFilePath.Text = openDialog.FileName
					End If
				End Using
			ElseIf sender.Equals(_btnSaveExt) Then
				Using saveDialog As New SaveFileDialog()
					Dim saveDialogCtrl As New MySaveDialogControl(lblFilePath.Text, Me)
					saveDialogCtrl.FileDlgInitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
					saveDialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
					saveDialog.AddExtension = True
					saveDialog.Filter = "Image Files(*.bmp)|*.bmp |Image Files(*.JPG)|*.JPG|Image Files(*.jpeg)|*.jpeg|Image Files(*.GIF)|*.GIF|Image Files(*.emf)|*emf.|Image Files(*.ico)|*.ico|Image Files(*.png)|*.png|Image Files(*.tif)|*.tif|Image Files(*.wmf)|*.wmf|Image Files(*.exif)|*.exif"
					saveDialog.FilterIndex = 2
					saveDialog.CheckFileExists = True
					saveDialog.DefaultExt = "jpg"
					saveDialog.FileName = "Change Picture"
					saveDialog.DereferenceLinks = True
					'saveDialog.ShowHelp = true;
					If Environment.OSVersion.Version.Major < 6 Then
						saveDialog.SetPlaces(New Object() { CInt(Places.Desktop), CInt(Places.Printers), CInt(Places.Favorites), CInt(Places.Programs), CInt(Places.Fonts) })
					End If
					If saveDialog.ShowDialog(saveDialogCtrl, Me) = System.Windows.Forms.DialogResult.OK Then
						lblFilePath.Text = saveDialog.FileName
					End If
				End Using
			ElseIf sender.Equals(_btnExit) Then
				Me.Close()
			End If

			System.GC.Collect()
			GC.WaitForPendingFinalizers()
		End Sub

		Private Sub _btnAbout_Click(ByVal sender As Object, ByVal e As EventArgs) Handles _btnAbout.Click
			Dim dlg As New About(Me)
			dlg.ShowDialog(Me)
		End Sub

	End Class
End Namespace

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

dmihailescu
Software Developer (Senior)
United States United States
Decebal Mihailescu is a software engineer with interest in .Net, C# and C++.

| Advertise | Privacy | Terms of Use | Mobile
Web04 | 2.8.150428.2 | Last Updated 22 Mar 2012
Article Copyright 2007 by dmihailescu
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid