СРОЧНО НУЖНА ПОМОЩь ПО VISUAL BASIC

[Дурсон]

Люди добрые, помогите пожалуйста начинающему программеру. Помогите осуществить следующее:

1) При нажатии на кнопку "загрузка" появляется окно в котором выбираешь загружаемый файл (расширения, например .zzz)

2) При загрузке этого файла должны произойти следующие изменения: Было окно с frame'ами в которых были значения, так эти значения и должны поменяться.

3) Как сделать файл .zzz , при загрузке которого будут изм. значения.

4) При выходе из программы сохранялся текущие значения и при ее послед. загрузке были значения, которые были при закрытии программы.
Заранее благодарю...

[amer]

на панели инструментов щелкаешь правой кнопкой мыши , в контекстном меню выбираешь components? в открывшемся окне находишь microsoft common dialog control.
с помощью этого контрола будешь выбирать файл....
загрузка и сохранение параметров может осуществляться в файл для этого е го нужно открыть или для записи или для чтения...
у меня возник только один вопрос... какие такие значения и в каком с-ве frame ты хранишь?
можно еще сохранять параметры в реестре...
например:

Public Sub WindowPosition(frmName As Form, blnSavePosition As Boolean)
Dim strWinPosKey As String
Dim strAppName As String
strAppName = IIf(Len(App.ProductName), App.ProductName, App.EXEName)
With frmName
If .WindowState <> vbNormal Then Exit Sub
strWinPosKey = .Name & "Начальная позиция"
If blnSavePosition Then
SaveSetting strAppName, strWinPosKey, "Left", .Left
SaveSetting strAppName, strWinPosKey, "Top", .Top
Else
.Left = CSng(GetSetting(strAppName, strWinPosKey, "Left", (Screen.Width - .Width) / 2))
.Top = CSng(GetSetting(strAppName, strWinPosKey, "Top", (Screen.Height - .Height) / 2))
End If
End With
End Sub

[Дурсон]

у меня возник только один вопрос... какие такие значения и в каком с-ве frame ты хранишь?

Я имел ввиду след. значения: Например у меня в форме написано 5, после загрузки стало 6, я закрыл программу и что б при след. её загрузке было 6 а не 5

[amer]

открытие для чтения (фрагмент программы):

Open App.Path & "\history" For Input As #1
i = 0
Dim tF(999) As String
Do Until EOF(1) ' делать пока не конец файла
Line Input #1, tF(i) ' записываем в массив строку
i = i + 1
Loop
Close #1

для записи -//-//-//-//-

Open App.Path & "\history" For Output As #1
Print #1, Date & " " & Time
For j = 0 To i - 1
Print #1, tF(j)
Next j
Close #1

ну типа того.....

[Kerish]

//Запись
On error resume next
Open App.Path & "\" & App.ExeName & ".exe" for output as #1
Print #1 , "Oh, sorry, don't told me about impossible writing!"
Close #1
//Чтение
on error resume next
Dim FileSize as Long, FileData as String
FileSize = Space(FileLen("C:\myfile.txt"))
Close #1 // Вдруг до этого уже был открыт файл под #1
Open "C:\myfile.txt" for binary as #1
Get #1, , FileData
Close #1
В переменной FileData лежит всё то, что было в файле "C:\myfile.txt".

[Kerish]

Если файл больше 100 мб, то тут уже другой подход...

[Дурсон]

Всем пасибки

[shader]

кури книжки по Дельфи

[Kerish]

Зачем их курить ))