Масштабирование окна - 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