Программирование
Система
Веб программирование
|
Объекты 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
Урок 47 - Работа с ListBox, ComboBox, CheckedListBox Содержание
Урок 49 - Объекты vb.net. Объект FolderBrowesDialog
Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях. |
Пасиб, просто и понятно)))
Огромное спасибо:))
ну автор молодец!
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
так вроде тоже можно
При сохранение можно как то автоматом в поле имя вставить имя которые мы открыли?
Спасибо!
Оставлять комментарии можно только зарегистрированным