!Сохранение!

[XEP]

Как сделать так что бы сохранять изменения в exe файле?
На пример я хочу сделать встроенные в мою программу блокнот.
1) я растягиваю Rich Text Box
2) Растягиваю Comand1 и на нё накладываю такую хрень:
RichTextBox1.Save и не работает.
Помогите пожалуйста. Заранее всем спасибо.

[hCORe]

Юзай этот код:

Код: Выделить всё

RichTextBox1.SaveFile "<путь к файлу>", rtfText

для сохранения в виде текста и:

Код: Выделить всё

RichTextBox1.SaveFile "<путь к файлу>", rtfRTF

для сохранения в виде RTF-кодов.

[GAGArin]

Как я понимаю сэр ХЕР хочет сохранить не текст, а свойства элементов управления. Если так то кто мешает сохранять их в отдельный файл (по старинке как текст) а потом при старте программы считывать оттуда и применять.

[RayShade]

Значит так. Автор темы получает предупреждение и 12 часов на смену ника. Если не сменит - получит бан по всей своей подсетке.



Кроме того, ему бы не мешало бы поучиться задавать вопросы.



И отдельное предупреждение сразу - если кто еще подобный ник себе заведет, получит бан сразу и без разговоров.

[gaidar]

Да ну всех, мочить в сортире - приказ президента

[Человек]

У меня похожая проблема.
Я хотел бы сделать для себя простенькую записную книжку.
У меня в ListBox можно добавлять, удалять, перемещять, редактировать имена и прочюю информацию. Но мне надо сделать хоть какой - нибудь SAVE. (ListBox'а)


Видимо я совсем тупой но как сделать вот это: "сохранять их в отдельный файл (по старинке как текст) а потом при старте программы считывать оттуда и применять."

[A.A.Z.]

Код: Выделить всё

Sub SaveFromListBox(List As ListBox, File As String)
Dim I As Long

Open File For Output As #1
For I = 0 To List.ListCount - 1
List.ListIndex = I
Print #1, List.Text
Next I
Close #1
End Sub

Function LoadFromFile(List As ListBox, File As String) As Boolean
'Если удастся открыть - True, если нет - False
On Error GoTo M1
Dim I As Long
Dim S As String

Open File For Input As #1
List.Clear
Do Until EOF(1)
Line Input #1, S
List.AddItem S
Loop
Close #1

M1: If Err.Number = 0 Then
LoadFromFile = True
Else
MsgBox "'" & Err.Number & "'" & " - " & Err.Description, vbCritical, "Ошибка!"
LoadFromFile = False
Exit Function
End If
End Function