VB 2008 графика

[Александр_ФФ]

Здравствуйте!
Простите, если тема уже поднималась, по поиску не нашёл того, что надо.
VB2008 поставил сегодня, после шести лет на VB 6.
Сам вопрос:
Как выводить графику на форму или PicBox?
старые Pset, Line, Circle не поддерживаются, API не заработали у меня. (((
В справке VB2008 - только вывод графики в событии Paint. А если мне надо в любой момент в любом месте программы? Вызывать функцию Paint - я параметров sender и e не знаю.
Подскажите пожалуйста, хотя бы от клика кнопки чтобы рисовалось... дальше сам.
вот пример из справки

Код: Выделить всё

' Visual Basic
Private Sub Form1_Paint(ByVal sender As Object, ByVal e _
As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    ' Draw a solid black line 25 pixels from the top of the form.
    e.Graphics.DrawLine(Pens.Black, 0, 25, Me.Width, 25)
End Sub


а как вызвать DrawLine не в Form1_Paint, а в любом событии?

[1Steps]

Form1_Paint(...) отвечает за отрисовку формы. Это событие доступно почти во всех контролах.

Код: Выделить всё

Public Class Form1
    Private _drawLine As Boolean

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Можно так
        Using G As Graphics = Me.CreateGraphics
            G.DrawLine(Pens.Black, 0, 40, Me.Width, 40)
        End Using

        'Или так
        '_drawLine = True
        'Me.Refresh()
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        ' Draw a solid black line 25 pixels from the top of the form.
        If _drawLine Then
            e.Graphics.DrawLine(Pens.Black, 0, 25, Me.Width, 25)
        End If
    End Sub
End Class

[Александр_ФФ]

Благодарю!!
разобрался, что можно и в одну строчку:

Код: Выделить всё

PictureBox1.CreateGraphics.DrawLine(Pens.Black, 0, 40, Me.Width, 40)

Но ещё вопрос - цвета можно по-нормальному задавать? (rgb) я где-то видел, что задавались, но там в коде не смог разобраться.
И Api Gdi функции, что, совсем не работают? зачем всё усложнили-то?

[MIT]

Код: Выделить всё

PictureBox1.CreateGraphics.DrawLine(New Pen(Color.FromARGB(a, r, g, b), 1), 0, 40, Me.Width, 40)