Программирование
Веб программирование

Объекты vb.net. Объекты OpenFileDialog и SaveFileDialog

 
 

Объекты OpenFileDialog и SaveFileDialog является по сути частью компонента Common Dialog, который входит в VB6. У него такие же свойства и методы, так что кто работал с этим компонентом в VB6, VB.Net с ним разобраться будет очень легко. При помощи этого объекта можно создовать такие вот окна открытия и сохранения файлов:


Сейчас мы сделаем программу, которая будет показывать окна показывать окна открытия и сохранения файлов. На форме размести 2 кнопки(Button1.Text = "Открыть", Button2.Text = "Сохранить"), OpenFileDialog(Name="OFD1"), и SaveFileDialog(Name = "SFD1").

Код:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' При нажатии на кнопку 'Открыть':
OFD1.InitialDirectory = "C:" ' Указываем начальную папку
OFD1.Title = "Программируем на Visual Basic.Net" ' Указываем заголовок
OFD1.Filter = "HTML файлы|*.html; *.htm|Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*" ' При помощи фильтра можно отбросить ненужные типы файлов(в нашем случае делаем выбор из списка(HTML файлы, Текстовые файлы, Все файлы)).
OFD1.FilterIndex = 2 ' Если есть список выбора типов, то можно указать какой тип будет выбран при загрузке диалога
If OFD1.ShowDialog = DialogResult.OK Then MsgBox(OFD1.FileName) ' Открываем диалог выбора файлов(OFD1.ShowDialog), если был выбран файл и нажата кнопка 'Открыть'(= DialogResult.OK), то показываем полный путь выбранного файла(MsgBox(OFD1.FileName))(зная путь, можно открыть файл(если диалог SaveFileDialog - то сохранить))
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' При нажатии на кнопку 'Сохранить'
' Здесь все аналогично
SFD1.InitialDirectory = "C:"
SFD1.Title = "Программируем на Visual Basic.Net"
SFD1.Filter = "HTML файлы|*.html; *.htm|Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*"
SFD1.FilterIndex = 2
If SFD1.ShowDialog = DialogResult.OK Then MsgBox(SFD1.FileName)
End Sub 

Исходник


Есть вопросы? Спроси на нашем форуме!!
Desh [05.08.2010 14:45]

Пасиб, просто и понятно)))

Максим [17.08.2010 17:39]

Огромное спасибо:))

Riga [31.05.2011 18:42]

ну автор молодец!

Slava_V [09.10.2011 23:14]

Dim myStream
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "fil files (.fil)|.fil|All files (.)|."
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Try
myStream = openFileDialog1.OpenFile()
Finally
End Try
End If

так вроде тоже можно

abisma200810 [26.03.2013 17:59]

При сохранение можно как то автоматом в поле имя вставить имя которые мы открыли?
Спасибо!



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.