Юзер контрол с указанными свойствами

@HACKER KAY · Регистрация: 03.06.2019

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

Мне нужен юзер-контрол самой обычной кнопки, но со свойствами

VB.NET

   Me.Win10_Button.BackColor = System.Drawing.Color.Gainsboro
        Me.Win10_Button.FlatAppearance.BorderColor = System.Drawing.Color.Gray
        Me.Win10_Button.FlatAppearance.BorderSize = 0
        Me.Win10_Button.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver
        Me.Win10_Button.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.Win10_Button.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Win10_Button.Font = New System.Drawing.Font("Consolas", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Win10_Button.Location = New System.Drawing.Point(257, 225)
        Me.Win10_Button.Name = "Win10_Button"
        Me.Win10_Button.Size = New System.Drawing.Size(177, 30)
        Me.Win10_Button.TabIndex = 3
        Me.Win10_Button.Text = "Button"
        Me.Win10_Button.UseVisualStyleBackColor = False

В создании пользовательских элементов вообще ничего не понимаю)

@Orlangur · 11.07.2020, 12:59

HACKER KAY, для одной кнопки достаточно создать класс, унаследованный от кнопки

VB.NET

Public Class Win10Button
    Inherits Button
    Public Sub New()
        Me.BackColor = System.Drawing.Color.Gainsboro
        Me.FlatAppearance.BorderColor = System.Drawing.Color.Gray
        Me.FlatAppearance.BorderSize = 0
        Me.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver
        Me.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Font = New System.Drawing.Font("Consolas", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Name = "Win10_Button"
        Me.Size = New System.Drawing.Size(177, 30)
        Me.TabIndex = 3
        Me.UseVisualStyleBackColor = False
    End Sub

Далее Сборка - перестроить проект
Проект - обновить панель элементов
Кнопка должна появится на панели и с ней можно работать как с обычной кнопкой

@HACKER KAY · 19.07.2020, 12:55 **[ТС]**

Orlangur, от души)

@HACKER KAY Нарушитель 20 / 46 / 5 Регистрация: 03.06.2019 Сообщений: 368 Записей в блоге: 10
	19.07.2020, 12:55 [ТС]	3
	Orlangur, от души) 0

Опции темы

Юзер контрол с указанными свойствами

Решение