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