Кнопки закрыть, свернуть и развернуть

[GoodWin74]

Вот я видел программы где у окон кнопки закрыть, свернуть и развернуть были не стандартного вида(а видимо заруженные рисунки.)
Можноли сделать так на VB .NET и как?

[Ramzes]

Можно, рисовать их руками или загружать из картинки, для начала FormBorderStyle установи как "none". Дальше сам поймешь?

[GoodWin74]

А по подробнее...
FormBorderStyle это где?

[dr.MIG]

А по подробнее...
FormBorderStyle это где?

В окне Properties для текущей формы.

[GoodWin74]

Извини признаю ступил
------------------------------------
Но вот я задал свойство ноне Но как же все таки загрузить картинки желательно как можно легче командами или гдето есть свойства для этого? Если делать прям на форме, кнопки, то как сделать заголовок за который можно будет перенести форму с места на место?

[tyomitch]

Если делать прям на форме, кнопки, то как сделать заголовок за который можно будет перенести форму с места на место?

http://vbrussian.com/Examples.asp?ID=95

[GoodWin74]

Ты че издеваешься шоли? У меня блин не VB6, а MVS 2005 мне бы проекты а еси формы то с расширением *.vb.
Да уж...

[tyomitch]

А шо, открыть конвертером не судьба?

[Alex[fj]]

Вот код...
А вообще из VB6 компелится в 2005... Просто окурываешь в нем и все!

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


dim IsMouseDown as Boolean, MouseOffset as System.Drawing.Point
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            IsMouseDown = True
            MouseOffset.X = e.X
            MouseOffset.Y = e.Y
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        IsMouseDown = False
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If IsMouseDown Then
            Me.Location = New Point( _
                Me.Location.X + e.X - MouseOffset.X, _
                Me.Location.Y + e.Y - MouseOffset.Y)
        End If
    End Sub


Форма таскается за любое место.