| |
|
|
| | Вот код изменения формы (часть кода):
Dim x1 As Integer
X1 = [1Прямоугольник].Width + [Прямоугольник1].Left - [Прямоугольник2].Left
[Прямоугольник2].Left = [Прямоугольник].Width + [Прямоугольник].Left - x2
В частности, если Width - устанавливает или получает ширину прямоугольника, а Left используется для указания местоположения объекта, то ... в общем, запутался я здесь.
Может ли кто-то пояснить, что делается в каждой строке? Спасибо. | |
| |
| |
| |
|
|
| | как-то странно все это
х1 - это расстояние между правой границей прямоугольника1 и левой границей прямоугольника2 (только как мне кажется получается отрицательное число)
во второй строке мне кажется что прямоугольник2 должен лечь (наползти) на прямоугольник | |
| |
| |
| |
|
|
| | Слишком маленький кусок кода
и перепутано название
то он
1прямоугольник
а то он
прямоугольник1
а то он без индекса вообще........  | |
| |
| |
| |
|
|
| | Разобрался. Все оказалось проще, чем казалось (как часто бывает).
Там везде получаются положительные числа. В итоге суть кода сводится к тому, что сначала в переменную записывается значение, получаемое из ширины соответствующего прямоугольника и положения этого прямоугольника. Далее при расширении формы на весь экран это значение для соответствующих прямоугольников восстанавливается.
Спасибо всем, кто пытался помочь. | |
| |
| |
| |
|
|
| | молоток  | |
| |
| |
