Как сохранить

[ВуД]

Помогите кто чем может!!!
Как сохранить : например в моё приложение я меняю цвет в text1 на красный и цвет шрифта text1 на зеленый мне нужно сохранить в фаил а потом открыть это файл моим приложением и чтобы когда я открыл цвет был в text1 на красный и шрифта text1 на зеленый

[Twister]

Что именно вызвало проблему?
1. Не можешь сохранить значения в файл
2. Не можешь прочитать от туда
3. Не можешь поменять цвет шрифта
4. Что?

Просто твое Как сохранить не раскрывает суть вопроса. Если я тебе отвечу, как сохранять в файл, ты спросишь как от туда считывать...

[ВуД]

и что не как не сделать

[GSerg]

ВуД
Тебе сюда для начала и сюда после этого.

[Twister]

и что не как не сделать

Смысл этой фразы от меня ускользает...
Повторяю, скажи что тебе не ясно и я отвечу...

[ВуД]

Я сделал текстовой редактор в нем я меня цвет фона мне надо сожранить. А потом открыть и что я сохранял чтоб открылось.

[Хакер]

Я меня цвет... мне надо сожрать...
1) Прислушайся к GSerg'у
2) Ещё раз прислушайся к GSerg'у
3) Если тебе надо, чтобы при открытии файла цвет текста устанавливался таким, каким ты его поставил при сохранении файла надо использовать RTF

[Twister]

Если тебе надо, чтобы при открытии файла цвет текста устанавливался таким, каким ты его поставил при сохранении файла надо использовать RTF

Да, где-то это решение рациональней, чем то, что хочет автор. Но даю именно то решение, которое он захотел...
Итак, сохраняем цвет шрифта в файл:

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

Dim ff As Integer
ff = FreeFile
Open "C:\font_color.txt" For Output As #ff
Print #ff, Str(Text1.ForeColor)
Close #ff

А так загружаем:

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

Dim ff As Integer
Dim s As String
ff = FreeFile
Open "C:\font_color.txt" For Input As #ff
Input #ff, s
Text1.ForeColor = Val(s)
Close #ff

Надеюсь, с этим все ясно?