Масштабирование окна - VB

Формулировка задачи:

Написал простенькую программу которая определяет радиус вводимый пользователем,а как сделать чтобы окно формы масштабировалось при изменении размера,да и вообще подгонялось под размер круга ?
Private Sub Command1_Click()
Scale (-10, -10)-(10, 10)
a = InputBox("ввод радиуса", "введите радиус")
Circle (x, y), a, vbRed
End Sub

Код к задаче: «Масштабирование окна - VB»

textual
Option Explicit
Dim R As Single
 
Private Sub Form_DblClick()
    ScaleMode = 3
    R = txtR.Text
    Width = 30 * R
    Height = 30 * R + 400
    Scale (-R, R)-(R, -R)
    DrawWidth = 3
    AutoRedraw = True
    Circle (0, 0), R, vbRed
End Sub

10   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ