| Вопрос: Диалоговое окноOpenFileDialog | Добавлено: 15.03.07 23:34 |
Автор вопроса:  den
|
|
Тогда сразу ещё один вопрос.
Как открыть файл из диалогового окна OpenFileDialog? Не удивляйтесь таким простым вопросам. Я ещё только учусь. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Viper ICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #1 | Добавлено: 16.03.07 11:05 |
|
Полный ахтунг....
Получить имя и открыть... Делов то. Учить основы! |
||
|
Номер ответа: 2 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #2 | Добавлено: 16.03.07 17:18 |
|
Написать процедуру открытия файла:
Open Dialog1.FileName For Input As #1
Dim Text As String Do Until EOF(1) Line Input #F, Text TextovoePole = TextovoePole & Text & vbCrLf Loop Close #1 |
||
|
Номер ответа: 3 Автор ответа: ViperICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #3 | Добавлено: 17.03.07 09:16 |
| Только для открытия файла стоит воспользовать более подходящими для VB.NET способами, путем использования классов из пространства имен System.IO. | ||
|
Номер ответа: 4 Автор ответа: den Вопросов: 18 Ответов: 14 |
Профиль | | #4 | Добавлено: 17.03.07 22:56 |
|
Пишу следущий код:
Private Sub MMain()  im miOpen As New MenuItem("&Открыть", AddressOf MenuFileOpenOnClick)
im miSave As New MenuItem("&Сохранить"
im miFile As New MenuItem("&Файл", New MenuItem() {miOpen, miSave})
Menu = New MainMenu(New MenuItem() {miFile}) End Sub Private Sub MenuFileOpenOnClick(ByVal obj As Object, ByVal ea As EventArgs) im OpenFileDialog1 As New OpenFileDialog()
OpenFileDialog1.Filter = "Любой файл (*.*)|*.*" If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then OpenFileDialog1.OpenFile() End If End Sub Но выбранный файл не открывается? Почему? |
||
|
Номер ответа: 5 Автор ответа:  mechanical_manВопросов: 17 Ответов: 10 |
Профиль | | #5 | Добавлено: 18.03.07 16:00 |
|
Это должно выглядеть примерно так:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' Отображаем диалоговое окно открытия файла и проверяем возвращаемый ' функцией результат If OpenFileDialogl.ShowDialog() <> DialogResult.Cancel Then ' Если файл был выбран и в диалоге нажата кнопка Открыть ' В текстовом окне отображаем путь к файлу и его'имя TextBox1.Text = OpenFileDialog1.FileName ' В компонент RichTextBoxl загружаем файл, выбранный в диалоговом ' окне открытия файла, как простой неформатированный текст PlainText RichTextBox1.LoadFile(OpenFileDialogl.FileName, RichTextBoxStreamType.PlainText) Else ' Если файл не был выбран и нажата кнопка Отмена ' Очищаем содержимое текстового окна и компонента RichTextBoxl TextBox1.Text = "" RichTextBox1.Text = "" End If End Sub Пользуйтесь на здоровье. |
||
Страница: 1 |