Масштабирование окна - 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 из 5
Похожие ответы