Построить прямоугольник по центру формы - VB
Формулировка задачи:
как сделать чтобы по центру формы я мог построить прямоугольник.и что бы при нажатии на него ЛКМ прямоугольник увеличивался на 10 пикселей а при нажатии ПКМ уменьшался на 10 пикселей!
Решение задачи: «Построить прямоугольник по центру формы»
textual
Листинг программы
Sub Form_MouseDown(B%, S%, g!, f!): Static d: Scale (-20, -20)-(20, 20): d = d + 2 * (B = 1) + 1: Cls: Line (d, d)-(-d, -d), 255, BF: End Sub