Сайт Юрца
Партнерка (15 Друзей)
Кирпичи

I ) Мой, а может не только мой, но я к нему самостоятельно пришел - способ записи и чтения файла настроек и конфигураций.
'======================================================
Sub to_ini(a As String, b As Long)
Dim c As Integer
c = FreeFile
Dim d As String
d = App.Path + "\settings.dat"
Open d For Random As #c
Put #c, b, a
Close #c
End Sub

Function get_ini(b As Long) As String
GetNomer = GetNomer + 1
Dim c As Integer
c = FreeFile
d = App.Path + "\settings.dat"
Open d For Random As #c
Get #c, b, get_ini
Close #c
End Function

'Мануал:
'Запись настроек - to_ini "параметр", "уникальный номер настройки в файле"
'Чтение настроек text1=get_ini(номер настройки)
'======================================================
Добавьте мою кнопку на свой сайт! Код кнопки:
Контакты:
Электро-почта - mytaht2@ya.ru

ICQ - 395172

http://vkontakte.ru
Единый кошелек
Hosted by uCoz