Релиб / Программирование / .NET / VB.NET / Помогите студенту. Размер активной области окна / Latest Posts

RE: Помогите студенту. Размер активной области окна

bazile — Tue, 24 Oct 2006 15:13:25 GMT

[quote][b]bonnie_ (24.10.2006)[/b][hr]Mybase забыла убрать с тех времен, когда у меня было Inherits Form[/quote]

Даже для случая с Inherits Form явный вызов не нужен. Это будет сделано автоматически. Кроме того у класса Circle в любом случае есть родительский класс Object. Он является базовым классом для любого класса в .NET

[quote][b]bonnie_ (24.10.2006)[/b][hr]А про SetCircle Вы имеете в виду изменить логику?[/quote]

Да. Если окружность с указанными координатами и радиусом вписывается в прямоугольник, то сохраняем параметры, иначе игнорируем.

RE: Помогите студенту. Размер активной области окна

bonnie_ — Tue, 24 Oct 2006 15:01:31 GMT

[quote][b]bazile (24.10.2006)[/b][hr]Если ты не против, я еще немного покритикую твой код :)

- Координаты центра окружности лучше хранить в структуре Point. Это логичнее выглядит.
- Вызывать базовый конструктор из своего (MyBase.New()) нет необходимости
- Функция SetCircle должна работать по принципу "все или ничего", то есть она должна одновременно изменить все три поля или не изменять ни одного.[/quote]

Критика приветствуется. Про Point сама не догадалась. Mybase забыла убрать с тех времен, когда у меня было Inherits Form, спасибо. А про SetCircle Вы имеете в виду изменить логику?

RE: Помогите студенту. Размер активной области окна

bazile — Tue, 24 Oct 2006 10:53:35 GMT

Если ты не против, я еще немного покритикую твой код :)

RE: Помогите студенту. Размер активной области окна

bonnie_ — Mon, 23 Oct 2006 23:19:37 GMT

так правильно будет?

Public Class Circle

Private mx, my, mRadius As Integer

Dim mypen As Pen = New Pen(Color.Tomato, 1)

Public Sub New()

MyBase.New()

mx = 0

my = 0

mRadius = 0

End Sub

Public ReadOnly Property X()

Get

Return mx

End Get

End Property

Public ReadOnly Property Y()

Get

Return my

End Get

End Property

Public ReadOnly Property Radius()

Get

Return mRadius

End Get

End Property

Public Sub SetCircle(ByVal xValue As Integer, ByVal yValue As Integer, ByVal rValue As Integer, ByRef r as Rectangle)

If xValue > rValue And xValue + rValue < r.Width Then

mx = xValue

End If

If yValue > rValue And yValue + rValue < r.Height Then

my = yValue

End If

If mx > rValue And mx + rValue < r.Width And my > rValue And my + rValue < r.Height Then

mRadius = rValue

End If

End Sub

Public Sub Draw(ByRef objGrap As Graphics)

objGrap.DrawEllipse(mypen, X - Radius, Y - Radius, 2 * Radius, 2 * Radius)

End Sub

Public Sub MoveOrdinate(ByVal dy As Integer, ByRef r As Rectangle)

SetCircle(X, Y + dy, Radius, r)

End Sub

Public Sub MoveAbscissa(ByVal dx As Integer, ByRef r As Rectangle)

SetCircle(X + dx, Y, Radius, r)

End Sub

Public Sub GrowUp(ByVal dr As Integer, ByRef r As Rectangle)

SetCircle(X, Y, Radius + dr, r)

End Sub

End Class

RE: Помогите студенту. Размер активной области окна

bazile — Mon, 23 Oct 2006 13:34:04 GMT

[quote][b]bonnie_ (23.10.2006)[/b][hr]Я так и делаю(DrawEllipse), но мне нужно же как-то оценивать, что окружность не выходит за пределы содержащего ее объекта Garphics(в моем случае я рисую прямо на форме) уже в конструкторе с аргументами или в свойствах Set. Как связать окружность с ее центром и радиусом с размерами объекта, на котором окружность отображается?[/quote]

Ниже уже объяснил - смотри кусок про метод Draw. У него первый аргумент это Rectangle. Ему ты и будешь передавать значение поля ClientRectangle формы на которой идет рисование. Хранить это значение внутри класса не надо.

RE: Помогите студенту. Размер активной области окна

bonnie_ — Mon, 23 Oct 2006 13:11:35 GMT

Еще раз спасибо Вам, Bazile, за помощь.

[quote][b]bazile (23.10.2006)[/b][hr]В наследовании от класса Form нет никакой нужды. Окружность не является элементом управления форма. [/quote]

Мдя, у меня получается класс форма с окружностью на ней:)

Сама не знаю, чего я себя и людей мучу:развила задание, которое никакой такой оценки расположения окружности на форме или каком-другом объекте Graphics не требовало изначально. "И Остапа понесло" (c), меня то есть, так как "зачет" я получила, но остановиться с моими усовершенствованиями не могу .

[quote][b]bazile (23.10.2006)[/b][hr]Убери наследование от Form и добавь в класс метод с именем Draw. Он должен принимать два аргумента: Rectangle (координаты области внутри которой нужно нарисовать окружность) и Graphics (объект дающий возможность "рисовать" внутри себя). [/quote]

Я так и делаю(DrawEllipse), но мне нужно же как-то оценивать, что окружность не выходит за пределы содержащего ее объекта Garphics(в моем случае я рисую прямо на форме) уже в конструкторе с аргументами или в свойствах Set. Как связать окружность с ее центром и радиусом с размерами объекта, на котором окружность отображается?

[quote][b]bazile (23.10.2006)[/b][hr] Рисование окружности ты будешь иницировать из события Paint своей формы[/quote]

Пасиб, усвоила...хотя я в приложении кнопочек наставила, которые инициируют изменения координат центра, радиуса и рисование измененной окружности .

RE: Помогите студенту. Размер активной области окна

bazile — Mon, 23 Oct 2006 10:12:52 GMT

В наследовании от класса Form нет никакой нужды. Окружность не является элементом управления форма. Убери наследование от Form и добавь в класс метод с именем Draw. Он должен принимать два аргумента: Rectangle (координаты области внутри которой нужно нарисовать окружность) и Graphics (объект дающий возможность "рисовать" внутри себя). Рисование окружности ты будешь иницировать из события Paint своей формы.

RE: Помогите студенту. Размер активной области окна

bonnie_ — Sun, 22 Oct 2006 19:20:52 GMT

[quote][b]bazile (22.10.2006)[/b][hr]У класса Form есть свойство ClientRectangle с размерами области окна в которой можно рисовать. Исходя из нее нетрудно рассчитать координаты центра окружности и ее радиус, так чтобы окружность точно вписалась бы в окно.[/quote]

Много-много сэнкс Вам за это хорошее свойство! Если Вас не затруднит ответить, то как как бы мне мой activeform к моем классу привязать? Вот на что хватило моих знаний:

Public Class Circle

Inherits Form

Private mx, my, mRadius As Integer

Dim mypen As Pen = New Pen(Color.Tomato, 1)

Dim r As Rectangle

Public Sub New()

MyBase.New()

mx = 0

my = 0

mRadius = 0

End Sub

Public Property X()

Get

Return mx

End Get

Set(ByVal xValue)

If xValue > mRadius And xValue + mRadius < r.Width Then '

mx = xValue

End If

End Set

End Property

аналогично свойства Y и Radius

Public Sub SetCircle(ByVal xValue As Integer, ByVal yValue As Integer, ByVal rValue As Integer)

r = MyBase.ActiveForm.ClientRectangle()

X = xValue

Y = yValue

Radius = rValue

End Sub

...............

end class

RE: Помогите студенту. Размер активной области окна

bazile — Sun, 22 Oct 2006 09:55:45 GMT

У класса Form есть свойство ClientRectangle с размерами области окна в которой можно рисовать. Исходя из нее нетрудно рассчитать координаты центра окружности и ее радиус, так чтобы окружность точно вписалась бы в окно.

Помогите студенту. Размер активной области окна

bonnie_ — Sun, 22 Oct 2006 00:09:56 GMT

Пишу класс Окружность- координаты центра, радиус. нужно, чтобы окружность не выходила за пределы окна (формы), на котором она рисуется. Как это сделать?