Получить значение NumericUpDown для изменения размера нарисованных объектов

@Бекболот · Регистрация: 22.06.2016

Студворк — интернет-сервис помощи студентам

Привет всем. Нужно сделать так чтобы размеры ellips менялись при помощи numericupisdown в запущенной форме.Вот код

VB.NET
1
2
3
4
5
6
7
Public Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        '
        Dim ellips As New RectangleF(0, 0, 20, 20)
 
        e.Graphics.DrawEllipse(Pens.Red, ellips)
      
    End Sub

@ViterAlex · 12.11.2016, 14:48

Ну вот там, где у тебя 20, 20 подставляй значения из NumericUpDown

@MrCrown · 12.11.2016, 15:18

VB.NET
1
2
3
4
5
6
7
Private Sub NumericUpDown1_ValueChanged(ByVal sender As NumericUpDown, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        Dim ellips As New RectangleF(0, 0, sender.Value, sender.Value)
        Using g As Graphics = Me.CreateGraphics
        g.Clear(Me.BackColor)
        g.DrawEllipse(Pens.Red, ellips)
        End Using
    End Sub

@Бекболот · 12.11.2016, 15:52 **[ТС]**

Спасибо))))

@Бекболот · 12.11.2016, 16:29 **[ТС]**

Это как?

@ViterAlex · 12.11.2016, 16:35

Т.е. о событии Paint ты знаешь, а как передать значение из контрола в код нет? Ладно, вот так:

VB.NET
1
2
3
4
5
6
7
    Public Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        '
        Dim ellips As New RectangleF(0, 0, NumericUpDown1.Value, NumericUpDown2.Value)
 
        e.Graphics.DrawEllipse(Pens.Red, ellips)
 
    End Sub

Естественно, если NumericUpDown у тебя названы иначе, то подставить нужные

@Бекболот · 12.11.2016, 16:40 **[ТС]**

Имею ввиду при запущенной форме

Добавлено через 58 секунд

VB.NET
1
Dim ellips As New RectangleF(0, 0, NumericUpDown1.Value, NumericUpDown2.Value)

это я пробовал, не работает

@ViterAlex · 12.11.2016, 16:59

Сообщение от Бекболот

это я пробовал, не работает

Т.е. как это не работает? Ты, наверное, не вызываешь перерисовку формы после изменения значений. Надо вызывать Refresh

@Бекболот · 12.11.2016, 17:10 **[ТС]**

Аааа, вот оно что!!! Спасибо,большое.Получилось!!!

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

Получить значение NumericUpDown для изменения размера нарисованных объектов

Решение

Решение

Решение

@ViterAlex 8952 / 4864 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	12.11.2016, 14:48
	Ну вот там, где у тебя `20, 20` подставляй значения из NumericUpDown 0

@Бекболот 3 / 3 / 0 Регистрация: 22.06.2016 Сообщений: 61
	12.11.2016, 15:52 [ТС]
	Спасибо)))) 0

@Бекболот 3 / 3 / 0 Регистрация: 22.06.2016 Сообщений: 61
	12.11.2016, 16:29 [ТС]
	Это как? 0

@Бекболот 3 / 3 / 0 Регистрация: 22.06.2016 Сообщений: 61
	12.11.2016, 17:10 [ТС]
	Аааа, вот оно что!!! Спасибо,большое.Получилось!!! 0