15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


А вот Вам когда нибудь нужно было, чтобы ваше приложение при запуске принимало определённые размеры ? Один из вариантов как это сделать приведён ниже. Значения координат читаются из файла C:\Properties.ini

  Листинг 1

Dim Str$
Dim FormPos(3) As Single
'Поля массива FormPos:
'0 - Высота
'1 - Ширина
'2 - Отступ сверху
'3 - Отступ слева

'В нашем случае форма называется frmMain

Open "C:\Properties.ini" for Input As 1
Do Until EOF(1)
Line Input #1, Str$
If Mid(Str$, 1, 1) = "[" Or _
Str$ = "" Then
GoTo 1
Else
If Mid(Str$, 1, Len("Height")) = _
"Height" Then
FormPos(0) = _
Val(Mid(Str$, 1, Len("Height = ")))
ElseIf Mid(Str$, 1, Len("Width")) = _
"Width" Then
FormPos(1) = _
Val(Mid(Str$, 1, Len("Width = ")))
ElseIf Mid(Str$, 1, Len("Top")) = _
"Top" Then
FormPos(2) = _
Val(Mid(Str$, 1, Len("Top = ")))
ElseIf Mid(Str$, 1, Len("Left")) = _
"Left" Then
FormPos(3) = _
Val(Mid(Str$, 1, Len("Left = ")))
End If
End IF
Loop

frmMain.Height = FormPos(0)
frmMain.Width = FormPos(1)
frmMain.Top = FormPos(2)
frmMain.Left = FormPos(3)