Не получается нарисовать линию программно на динамически созданной панели

@INTOM33 · Регистрация: 03.05.2012

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

Доброго Всем времени суток !
Не могу понять что делаю не так ?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Imports System.Drawing
Public Class Form1
    Dim pan As Panel
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pan = New Panel
        With pan
            .BackColor = Color.Orange
            .Size = New Size(300, 200)
        End With
        Me.Controls.Add(pan)
 
        Dim g As Graphics = pan.CreateGraphics()
        g.DrawLine(Pens.Black, 0, 0, 100, 100)
    End Sub
    
End Class

Почему не получается нарисовать линию g.DrawLine(Pens.Black, 0, 0, 100, 100).
Подскаите что делаю не так?

@ovva · 27.06.2016, 21:53

Рисовку линии перенесите в событие Paint

VB.NET
1
2
3
4
Private Sub Form1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    Dim g As Graphics = pan.CreateGraphics()
    g.DrawLine(Pens.Black, 0, 0, 100, 100)
End Sub

Или привяжите весь код к кнопке

VB.NET
1
2
3
4
5
6
7
8
9
10
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    pan = New Panel
    With pan
        .BackColor = Color.Orange
        .Size = New Size(300, 200)
    End With
    Me.Controls.Add(pan)
    Dim g As Graphics = pan.CreateGraphics()
    g.DrawLine(Pens.Black, 0, 0, 100, 100)
End Sub

@INTOM33 · 28.06.2016, 00:57 **[ТС]**

СПАСИБО !

Добавлено через 5 минут
А вот так почему то не рисуется если рисую на PictureBox

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Imports System.Drawing
Public Class Form1
    Dim pan As PictureBox
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pan = New PictureBox
        With pan
            .BackColor = Color.Orange
            .Size = New Size(300, 200)
        End With
        Me.Controls.Add(pan)
 
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = pan.CreateGraphics()
        g.DrawLine(Pens.Black, 0, 0, 100, 100)
    End Sub
End Class

Почему ?

@Грот · 28.06.2016, 02:16

а если не форм1 паинт, а пикчерсбокс1 паинт?

@INTOM33 · 28.06.2016, 02:32 **[ТС]**

Спасибо буду пробывать

Добавлено через 5 минут
СПАСИБО !
Вот так получилось

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Imports System.Drawing
Public Class Form1
    Dim pan As PictureBox
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pan = New PictureBox
        With pan
            .BackColor = Color.Orange
            .Size = New Size(300, 200)
        End With
        AddHandler pan.Paint, AddressOf pan_Paint
        Me.Controls.Add(pan)
    End Sub
 
    Private Sub pan_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim g As Graphics = e.Graphics
        g.DrawLine(Pens.Black, 0, 0, 100, 100)
    End Sub
End Class

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Грот 15 / 15 / 2 Регистрация: 08.02.2013 Сообщений: 198
	28.06.2016, 02:16
	а если не форм1 паинт, а пикчерсбокс1 паинт? 0