Оформление формы (цвет рамки, вид контролов на форме)

@Zhivoder · Регистрация: 16.12.2019

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

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

@andrsh · 12.02.2020, 10:22

Zhivoder, Вот пример по работе с формой думаю тебе чем то поможет.

@Orlangur · 12.02.2020, 10:22

Zhivoder, ставите у формы свойство FormBorderStyle= None и создаете свои кнопки

@Zhivoder · 12.02.2020, 10:25 **[ТС]**

Все, спасибо, извините не разобрался:

1. FormBorderStyle ставим None
2. Рисуем или качаем картинки кнопок (Min, Max, Close)
3. Обрабатываем в коде:

Кликните здесь для просмотра всего текста

VB.NET

Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
        Me.Close()
    End Sub
 
    Private Sub PictureBox7_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox7.MouseHover
        PictureBox7.Image = My.Resources.close_red
    End Sub
 
    Private Sub PictureBox7_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox7.MouseLeave
        PictureBox7.Image = My.Resources.close
    End Sub
 
    Private Sub PictureBox5_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox5.MouseHover
        PictureBox5.Image = My.Resources.minimize_yellow
    End Sub
 
    Private Sub PictureBox5_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox5.MouseLeave
        PictureBox5.Image = My.Resources.minimize
    End Sub
 
    Private Sub PictureBox6_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox6.MouseHover
        PictureBox6.Image = My.Resources.fs_yellow
    End Sub
 
    Private Sub PictureBox6_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox6.MouseLeave
        PictureBox6.Image = My.Resources.fs
 
    End Sub
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Me.Capture = False
        Me.WndProc(Message.Create(Me.Handle, &HA1, New IntPtr(2), IntPtr.Zero))
    End Sub
 
    Private Sub Panel2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel2.MouseDown
        sender.Capture = False
        Me.WndProc(Message.Create(Me.Handle, &HA1, New IntPtr(2), IntPtr.Zero))
    End Sub

4. И вуаля:

@Zhivoder · 12.02.2020, 10:27 **[ТС]**

Не по теме:

Часть кода пропустил и пока писал, уже успели наотвечать))

VB.NET

Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
        Me.WindowState = FormWindowState.Minimized
 
    End Sub
 
    Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
        If Me.WindowState = FormWindowState.Maximized Then
            Me.WindowState = FormWindowState.Normal
        Else
            Me.WindowState = FormWindowState.Maximized
        End If
    End Sub

@andrsh · 12.02.2020, 10:43

Zhivoder, В примере чтоя выслал там меню создается в панели. Панели позиционируются в верху формы и при изменении ширины формы меняют свою ширину. Кнопки обыкновенные можешь поставить любой рисунок вставить и надпись сделать ну ацвет формы в ее свойствах можно установить или програмно менять. так же и с панелями. кнопки позиционируются в зависимости от степени растяжения формы. Какие кнопки хочешь те и добавляй и растягивание формы без бордюров там есть.

@Zhivoder · 12.02.2020, 11:28 **[ТС]**

andrsh, спасибо, но в моем конкретном случае придется заново элементы расставлять по форме. Прога уже готовая, просто решил приукрасить немного =))

Добавлено через 31 минуту
Если кому-то интересно как в этом случае менять размер окна, то:

VB.NET

Private CanResize As Boolean = False
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.X > Me.Width - 10 And e.Y > Me.Height - 10 Then
            Me.Cursor = Cursors.SizeNWSE
        Else
            Cursor = Cursors.Default
        End If
        If e.Button = Windows.Forms.MouseButtons.Left And CanResize Then
            Dim newsize As Size = New Size(e.X, e.Y)
            If newsize.Width > Me.MinimumSize.Width Then
                Me.Size = New Size(Me.Size.Width, e.Y)
            End If
            If newsize.Height > Me.MinimumSize.Height Then
                Me.Size = New Size(e.X, Me.Size.Height)
            End If
        End If
    End Sub
 
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        CanResize = False
    End Sub
 
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        CanResize = True
        'Me.Capture = False
        'Me.WndProc(Message.Create(Me.Handle, &HA1, New IntPtr(2), IntPtr.Zero))
    End Sub

@Zhivoder 32 / 28 / 3 Регистрация: 16.12.2019 Сообщений: 108
		1
	.NET 4.x Оформление формы (цвет рамки, вид контролов на форме) 12.02.2020, 09:23. Показов 2867. Ответов 6 Метки нет (Все метки) Есть ли возможность отредактировать саму рамку формы, поменять цвет или вообще ее убрать? И сами кнопочки закрыть, свернуть другого вида сделать? Например вот как то так: Миниатюры 0

@Orlangur Лень — мое второе и 3222 / 2411 / 686 Регистрация: 28.11.2014 Сообщений: 3,599 Записей в блоге: 3
	12.02.2020, 10:22	3
	Zhivoder, ставите у формы свойство FormBorderStyle= None и создаете свои кнопки 2

@andrsh 262 / 214 / 53 Регистрация: 01.08.2016 Сообщений: 827
	12.02.2020, 10:43	6
	Zhivoder, В примере чтоя выслал там меню создается в панели. Панели позиционируются в верху формы и при изменении ширины формы меняют свою ширину. Кнопки обыкновенные можешь поставить любой рисунок вставить и надпись сделать ну ацвет формы в ее свойствах можно установить или програмно менять. так же и с панелями. кнопки позиционируются в зависимости от степени растяжения формы. Какие кнопки хочешь те и добавляй и растягивание формы без бордюров там есть. 1

	12.02.2020, 11:28