Большой Воронежский Форум Mobile

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

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

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

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

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

на панели инструментов щелкаешь правой кнопкой мыши , в контекстном меню выбираешь 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 [Ответ]

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

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

ну типа того..... [Ответ]

//Запись
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". [Ответ]