Простой вопрос по VBNET: Line

[zHackLeX]

Народ, в VB6 всё было просто:
Me.Line (x,y)-(x2,y2)
А как в VBNET?
Спасибо заранее

[corgi]

ну а в dotnet еще проще

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

        Dim hwnd As New IntPtr()
        hwnd = MyBase.Handle
        Dim g As Graphics = Graphics.FromHwnd(hwnd)
        Dim br As New Pen(Color.Black)
        g.DrawLine(br, 50, 50, 100, 100)


[zHackLeX]

У меня была в VB6 функция градиента, применимая к PictureBoxу или форме. А как мне завернуть такую функцию к любому PictureBox'y или к любой форме, чтобы она была универсальной?

В смысле, уже в VBNET'e?

[Lobo]

В .Net это уже не нужно, там есть градиентная кисть. См.
System.Drawing.Drawing2D.LinearGradientBrush class

[zHackLeX]

Слушай, я в НЕТе совсем зелень, объясни наглядно, как заставить эту строку работать с каким-нть объектом, у которого есть BackgroundImage?

Спасибо заранее.

[Lobo]

Ну, если вкратце...
Перед всеми декларациями пишешь:

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

Imports System.Drawing.Drawing2D

В событии Paint контрола:

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

Dim g As Graphics = Me.CreateGraphics
Dim myBrush As New LinearGradientBrush(ClientRectangle, Color.SkyBlue, _
    Color.RoyalBlue, LinearGradientMode.Vertical)
g.FillRectangle(myBrush, ClientRectangle)

Вот и всё!
Подробнее - в хелпе:
Visual Basic and Visual C# Concepts, Pens, Brushes, and Colors

[zHackLeX]

Спасибо, попробую.

ЗЫ. Да у меня просто вся студия на одном сидюке,
естесно, что никакого хелпа там и за километр (-байт?)
невидно.

[Lobo]

Вот тоже статья по теме:
http://msdn.microsoft.com/library/defau ... tBrush.asp