Расположите на форме элемент
RichTextBox (подключается через меню
Project | Components - Microsoft Rich
Textbox Control 6.0) а также CommandButton.
CODE NOW!
Private Sub Command1_Click() 'присваиваем переменной содержимое
RichTextBox1 Dim txt As String txt =
RichTextBox1.Text 'переменная для хранения htm-файла Dim a As
String a = "<html>" & vbCrLf & "<head>" &
vbCrLf & "<title>Заголовок</title>" & vbCrLf &
"</head>" & vbCrLf & "<body>" a = a & vbCrLf
& "<pre>" & txt & "</pre>" & vbCrLf &
"</body>" & vbCrLf & "</html>" 'сохранение в
htm-файл Dim FN As Integer FN = FreeFile Dim FName As
String FName = "C:\index.htm" Open FName For Output As #FN Print
#FN, a Close #FN End Sub Private Sub Form_Load() 'загрузка
файла RichTextBox1.FileName = "C:\Мои документы\1.rtf" End Sub
Комментарии
отсутствуют
Добавление комментария
:: Последние обновления ::
04.09.2011 Долгожданный релиз VB Decompiler. Масса улучшений декомпиляции Native Code. Значительно расширенна и обновлена справочная система на русском и английском языках.
20.12.2010 DotFix Software поздравляет наших клиентов и посетителей сайта с наступающим Новым Годом и рождеством! Желаем приятно провести праздники и успехов в новом году!
28.11.2010 Выпущена новая версия защиты DotFix NiceProtect. Основные изменения коснулись обфускатора Delphi программ. Теперь имеется полная поддержка Tab и Page контролов на формах, что обеспечивает максимальную совместимость обфускации с Delphi XE программами.
21.10.2010 Обновлен декомпилятор Visual Basic программ до версии 8.1. Декомпиляция P-Code программ становится все более идеальной, также проделана большая работа по улучшению анализа Native Code и .NET приложений.
16.09.2009 Полностью обновлен движок сайта! Теперь все ссылки имеют читаемый понятный вид, разного рода глюки на страницах убраны. И теперь сайт полноценно работает на второй версии нашего движка.