Есть три элемента List1, Text1, Frame1 расположены друг под другом…
Width= Me.ScaleWidth
А вот с Height у меня проблема… Мне нужно что бы при растягивании формы изменялось значение List1.Height а значения Text1.Height и Frame1.Height были такими какими заданны на форме (допустим 500 твипов)…
Вот мой код:
Private Sub Form_Resize()
Text1.Left = 0
List1.Left = 0
Frame1.Left = 0
List1.Top = 0
List1.Width = Me.ScaleWidth
Text1.Width = Me.ScaleWidth
Frame1.Width = Me.ScaleWidth
List1.Height = Me.ScaleHeight - Text1.Height - Frame1.Height - 100
Text1.Top = List1.Height + 100
Frame1.Top = (List1.Height + 200) + (Text1.Height)
End Sub
Код работает, но при изменении формы, элемент Frame1 иногда съедается или наоборот от него получается слишком большой отступ… Почему это происходит? Объясните пожалуйста… И что можно с эти сделать?
Второй вопрос:
В List1 я ввел код который изменяет размер шрифта при нажатии на клавишу + и –
Проблема в том что при этом меняется размер самого List1.... (он начинает уменьшаться...
). Подскажите, как можно от этого избавится? У меня не получилось…
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyAdd Then
List1.FontSize = List1.FontSize + 2
End If
If KeyCode = vbKeySubtract Then
List1.FontSize = List1.FontSize - 2
End If
End Sub
