Страница: 1 | 2 |
|
Вопрос: Чтение текста при загрузке программы
|
Добавлено: 20.12.11 18:31
|
|
Номер ответа: 17 Автор ответа: IamProgrammer
Вопросов: 1 Ответов: 13
|
Профиль | | #17
|
Добавлено: 22.12.11 18:23
|
Интересует ещё две вещи, как сделать "Сохранить, сохранить как", я попробывал так, но это билиберда по идее:
-
- Dim saveas As Boolean = True
- Dim filename As String
-
- Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
- If TabControl1.SelectedTab.Text = "Безимянный" Then
- saveas = True
- Else
- saveas = False
- End If
- If saveas = True Then
- Dim sw As New IO.StreamWriter(SaveFileDialog1.FileName)
- filename = SaveFileDialog1.FileName
- saveas = False
- sw.Write(CType(TabControl1.SelectedTab.Controls.Item(0), TextBox).Text)
- sw.Close()
- sw.Dispose()
- TabControl1.SelectedTab.Text = SaveFileDialog1.FileName
- Else
- Dim sw As New IO.StreamWriter(SaveFileDialog1.FileName)
- sw.Write(filename)
- sw.Close()
- sw.Dispose()
- End If
- End Sub
-
- Private Sub СохранитьКакToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьКакToolStripMenuItem.Click
- If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
- Dim sw As New IO.StreamWriter(SaveFileDialog1.FileName)
- filename = SaveFileDialog1.FileName
- saveas = False
- sw.Write(CType(TabControl1.SelectedTab.Controls.Item(0), TextBox).Text)
- sw.Close()
- sw.Dispose()
- End If
- End Sub
И интересует как забить во вкладку имя файла, но не к примеру C:\sasd.txt, а просто sasd.txt
Ответить
|
Страница: 1 | 2 |
Поиск по форуму