| Вопрос: Сохранение настроек с ini файл. | Добавлено: 06.08.08 13:29 |
Автор вопроса:  Comoc
|
| Как сохранить и загрузить настройки в файл. Подскажите, как можно это реализовать желательно с примером. Заранее спасибо за помощь. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545 |
Web-сайт: Профиль | | #1 | Добавлено: 06.08.08 15:06 |
|
Public Class INI Private path As String Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer Public Function Read(ByVal section As String, ByVal key As String, ByVal sDefault As String) As String Dim temp As String Dim length As Integer temp = Space(256) length = GetPrivateProfileString(section, key, sDefault, temp, 255, path) Return temp.Substring(0, length) End Function Public Sub Write(ByVal section As String, ByVal key As String, ByVal value As String) WritePrivateProfileString(section, key, value, path) End Sub Public Sub New(ByVal inifile As String) path = inifile End Sub End Class |
||
|
Номер ответа: 2 Автор ответа: Comoc Вопросов: 4 Ответов: 9 |
Профиль | | #2 | Добавлено: 06.08.08 19:41 |
Можно пример в виде Sample? 
|
||
|
Номер ответа: 3 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #3 | Добавлено: 06.08.08 19:42 |
| Советую все-же использовать XML | ||
|
Номер ответа: 4 Автор ответа: pasha ICQ: 209913513 Вопросов: 10 Ответов: 45 |
Профиль | | #4 | Добавлено: 07.08.08 09:08 |
| а как можно поинтересоваться? | ||
|
Номер ответа: 5 Автор ответа: ComocВопросов: 4 Ответов: 9 |
Профиль | | #5 | Добавлено: 12.08.08 08:19 |
|
Пример можно найти здесь.
http://download.microsoft.com/download/f/7/8/f780fb58-77dc-4d5d-adcd-55818c9f23da/VB101SamplesWinforms.msi |
||
Страница: 1 |