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

@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

Блоги программистов
Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .	Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного сумматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .

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

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

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

	12.02.2020, 11:28