Страница: 1 |
Страница: 1 |
Вопрос: Запуск стороннего приложения
Добавлено: 24.05.07 00:45
Автор вопроса:
dreed7
Помогите. плиз
В RichTextbox есть текст, который нужно открыть с помощью определенной программы. Помогите это реализовать.
В итоге получиться должно так:
1, Вкладка Настроуки, пункт-Найти программу(это наверное надо будит сохранит в настройках при следующем запуске прогр.)
2. При нажатии на кнопку . Сохраняется временный файл и открывается при помощи указанной программы в настройках.
Ответы
Всего ответов: 6
Номер ответа: 1
Автор ответа: EUGY
Вопросов: 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
Автор ответа: dreed7
Вопросов: 1
Ответов: 3
Профиль | | #2
Добавлено: 24.05.07 15:07
а можно коментарии.
файл должен сохраняться в формате .stp
Номер ответа: 3
Автор ответа: dreed7
Вопросов: 1
Ответов: 3
Профиль | | #3
Добавлено: 24.05.07 15:09
и если не сложно выложи посмотреть исходник
Номер ответа: 4
Автор ответа: EUGY
Вопросов: 0
Ответов: 454
Профиль | | #4
Добавлено: 24.05.07 18:17
если у тебя есть уверенность в возможность конвертации из RTF в STP.
то:
strsavfile = "C:\test.stp"
RichTextBox1.SaveFile strsavfile, rtfCFRTF
остальное без комментариев.
на форумах вряд-ли кто на блюде выложит.
попроси www.rentacoder.com
Номер ответа: 5
Автор ответа: dreed7
Вопросов: 1
Ответов: 3
Профиль | | #5
Добавлено: 24.05.07 21:27
ошибка в переменной rtfCFRTF
переменная не определена
Номер ответа: 6
Автор ответа: EUGY
Вопросов: 0
Ответов: 454
Профиль | | #6
Добавлено: 24.05.07 21:49
писал по памяти, мог и ошибиться.
скорее всего
RichTextBox1.SaveFile strsavfile
и так сохраняет в rtf