Настойки программы: редактирование и хранение - VB
Формулировка задачи:
Подскажите как вставить в своё приложение настройка и и как создать форму с настройками
null
Решение задачи: «Настойки программы: редактирование и хранение»
textual
Листинг программы
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Sub Form_Load() Dim Htenie Dim z As String z = Space(255) ' Выделяем место в памяти из 255 пробелов(можно написать так z="255 раз нажми на пробел(хотя можно и меньше(я вписал 255 т.к. это 1 строчка))"), для записи(см. ниже) значения читаемой переменной Htenie = GetPrivateProfileString("Setup", "Left", "no", z, 255, App.Path & "/set.ini") ' Считываем из ключа Setup, значение переменной Left. Я написал слово "no"(можно вписать любое), это слово нам потом пригодится(если ключа/переменной нет, то z будет равно слову no). z = Left(z, Htenie) ' убираем все ненужные символы с правой стороны у строки, чтобы получить настоящее значение. If z = "no" Then MsgBox "Такого раздела/переменной не существует" ' Если ключа/переменной нет, то сообщем об этом Else Form1.Left = val(z) ' Ставим форму на то место, которое указано в файле ini. (в разделе Setup переменной Left) End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д