Страница: 1 |
Вопрос: Запуск стороннего приложения | Добавлено: 24.05.07 00:45 |
Автор вопроса: ![]() |
Помогите. плиз
В RichTextbox есть текст, который нужно открыть с помощью определенной программы. Помогите это реализовать. В итоге получиться должно так: 1, Вкладка Настроуки, пункт-Найти программу(это наверное надо будит сохранит в настройках при следующем запуске прогр.) 2. При нажатии на кнопку . Сохраняется временный файл и открывается при помощи указанной программы в настройках. |
Ответы | Всего ответов: 6 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 0 Ответов: 454 |
Профиль | Цитата | #1 | Добавлено: 24.05.07 01:53 |
Option Explicit Private strmypro As String Private Sub Command1_Click() Dim strsavfile As String strsavfile = "C:\test.txt" RichTextBox1.SaveFile strsavfile, rtfCFText Call Shell(strmypro & " " & strsavfile, vbNormalFocus) End Sub Private Sub Form_Load() strmypro = GetSetting(App.Title, "My settings", "openwith" ![]() If Len(strmypro) = 0 Then strmypro = "C:\windows\notepad.exe" End Sub Private Sub OpenWith_Click() CommonDialog1.Filter = "выбор проги|*.exe" CommonDialog1.ShowOpen strmypro = CommonDialog1.FileName SaveSetting App.Title, "My settings", "openwith", strmypro End Sub |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 1 Ответов: 3 |
Профиль | Цитата | #2 | Добавлено: 24.05.07 15:07 |
а можно коментарии.
файл должен сохраняться в формате .stp |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 1 Ответов: 3 |
Профиль | Цитата | #3 | Добавлено: 24.05.07 15:09 |
и если не сложно выложи посмотреть исходник |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 0 Ответов: 454 |
Профиль | Цитата | #4 | Добавлено: 24.05.07 18:17 |
если у тебя есть уверенность в возможность конвертации из RTF в STP.
то: strsavfile = "C:\test.stp" RichTextBox1.SaveFile strsavfile, rtfCFRTF остальное без комментариев. на форумах вряд-ли кто на блюде выложит. попроси www.rentacoder.com |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 1 Ответов: 3 |
Профиль | Цитата | #5 | Добавлено: 24.05.07 21:27 |
ошибка в переменной rtfCFRTF
переменная не определена |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 0 Ответов: 454 |
Профиль | Цитата | #6 | Добавлено: 24.05.07 21:49 |
писал по памяти, мог и ошибиться.
скорее всего RichTextBox1.SaveFile strsavfile и так сохраняет в rtf |
Страница: 1 |
|