Dim a As Integer, b As Integer
a = 2: b = 3
Open "txt.txt" For Output As 1
Print #1, a, b
Close 1
a = 3: b = 2
Open "txt.txt" For Input As 1
Input #1, a, b
Close 1
Как сохранить
Помогите, кто, чем может!!!
Как сохранить: например в моё приложение я меняю цвет в text1 на красный и цвет шрифта text1 на зеленый мне нужно сохранить в фаил а потом открыть это файл моим приложением и чтобы когда я открыл цвет был в text1 на красный и шрифта text1 на зеленый
Как сохранить: например в моё приложение я меняю цвет в text1 на красный и цвет шрифта text1 на зеленый мне нужно сохранить в фаил а потом открыть это файл моим приложением и чтобы когда я открыл цвет был в text1 на красный и шрифта text1 на зеленый
Цитата:
Originally posted by ВуД
Помогите, кто, чем может!!!
Как сохранить: например в моё приложение я меняю цвет в text1 на красный и цвет шрифта text1 на зеленый мне нужно сохранить в фаил а потом открыть это файл моим приложением и чтобы когда я открыл цвет был в text1 на красный и шрифта text1 на зеленый
Помогите, кто, чем может!!!
Как сохранить: например в моё приложение я меняю цвет в text1 на красный и цвет шрифта text1 на зеленый мне нужно сохранить в фаил а потом открыть это файл моим приложением и чтобы когда я открыл цвет был в text1 на красный и шрифта text1 на зеленый
А разве здесь это не обсуждалось? Ну или тупо в тектовые файлы кидай
Код:
Можешь в бинарники кидать, или библиотечку для работы с txtшками подключить (типа Microsoft Scripting Runtime). Вариантов-то вагон...
Private Type man
lpCaption As String
lW As Long
lH As Long
End Type
Dim woman As man
Private Sub Command1_Click()
With woman
.lpCaption = "Hello"
.lH = Height
.lW = Width
End With
Open "hi.txt" For Binary As #1
Put #1, , woman
Close #1
End Sub
Private Sub Command2_Click()
Open "hi.txt" For Binary As #1
Get #1, , woman
Close #1
With woman
Caption = .lpCaption
Height = .lH
Width = .lW
End With
End Sub
Пользуйся: сохранение настроек/данных в файл и изьятия их обратно из этого же файла... :)
lpCaption As String
lW As Long
lH As Long
End Type
Dim woman As man
Private Sub Command1_Click()
With woman
.lpCaption = "Hello"
.lH = Height
.lW = Width
End With
Open "hi.txt" For Binary As #1
Put #1, , woman
Close #1
End Sub
Private Sub Command2_Click()
Open "hi.txt" For Binary As #1
Get #1, , woman
Close #1
With woman
Caption = .lpCaption
Height = .lH
Width = .lW
End With
End Sub
Пользуйся: сохранение настроек/данных в файл и изьятия их обратно из этого же файла... :)
К стати ВуД я из Ангарска... Иркутская обл. рулит!!!:D
Zlak я не самого Иркутска я с Усолья это радом с Ангарском.
Вот тебе моё мыло: [email]zlak_killer@inbox.ru[/email] Если у тебя возникнут ещё какие либо вопросы по Visual Basic 6.0 или Turbo Pascal, пиши...:P