property of a Control (Group)

0

And create some properties for a TextBox , for example I created lower border for my TextBox using a Label add within TextBox

Question: Do I want to know how to group these properties?

See my code:

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Windows.Forms
Imports System.Drawing

Public Class HTextbox

    Inherits TextBox

    '1° Parte: Declara as Variáveis como Label e Boolean em modo privado (Borda Inferior visibilidade)
    Private LBA1, LBA2 As Label
    Private B_Label As Boolean

    '2° Parte: Declara as Variáveis como Color e Boolean em modo privado (Borda Inferior Cor)
    Private CorVelha, CorNova As Color
    Private BCor, BTítulo As Boolean

    '3° Parte: Declra as Variáveis como inteiro e Boolean em modo privado
    Private LarguraAntiga, LarguraNova As Integer
    Private B_Largura As Boolean

    '1° Grupo de Propriedades

    '1° Propriedade é a label em si (Borda Inferior)
    Public Property Label As Label
        Get
            Return LBA1
        End Get
        Set(ByVal value As Label)
            LBA1 = value
        End Set
    End Property

    '2° Propriedade é a visibilidade da label (Borda Inferior, Visivel ou invisivel)
    Public Property LabelBordaVisible As Boolean
        Get
            Return B_Label
        End Get
        Set(ByVal value As Boolean)
            B_Label = value
        End Set

    End Property

    '2° Grupo de Propriedades

    ' 1° Propriedade é a Cor (Onde será digitado ou selecionado a cor da label, (borda inferior))
    Public Property LabelBordaCor As Color
        Get
            Return CorNova
        End Get
        Set(ByVal value As Color)
            CorNova = value
        End Set
    End Property

    ' 2° Propriedade é Verificação se a cor vai ou não mudar
    Public Property LabelMudarCor As Boolean
        Get
            Return BCor
        End Get
        Set(ByVal value As Boolean)
            BCor = value
        End Set
    End Property

    '3° Grupo de Propriedades

    '1° Propriedade é a largura da borda dentro da textbox
    Public Property LabelLarguraBorda As Integer
        Get
            Return LarguraNova
        End Get
        Set(ByVal value As Integer)
            LarguraNova = value
        End Set
    End Property

    ' 2° Propriedade é Verificação se a Largura vai ou não mudar
    Public Property LabelMudarLargura As Boolean
        Get
            Return B_Largura
        End Get
        Set(ByVal value As Boolean)
            B_Largura = value
        End Set
    End Property

    Protected Overrides Sub OnCreateControl()
        MyBase.OnCreateControl()

        'Me.Text = "R$ 100.000,00" ' Texto Inicial
        'Me.Font = New Font(Me.Font.FontFamily.Name, 12)
        Me.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.TextAlign = HorizontalAlignment.Right
        Me.AutoSize = False

        '2° Parte: Cria um label dentro da textbox para Simula um r cifrão (r$)
        If Me.B_Largura = True Then

            Controls.Add(New Label() With {
                  .Text = "R$",
                  .Height = 1,
                  .Width = LarguraNova,
                  .Dock = DockStyle.Left,
                  .ForeColor = Me.ForeColor,
                 .BackColor = Color.Green
              })

        ElseIf Me.LabelLarguraBorda = False Then
            Controls.Add(New Label() With {
                   .Text = "R$",
                   .Height = 1,
                   .Width = 45,
                   .Dock = DockStyle.Left,
                   .ForeColor = Me.ForeColor,
                  .BackColor = Color.Green
               })
        End If

        '3° Parte: Cria um label dentro da textbox para simular uma borda inferior
        If Me.B_Label = True Or BCor = True Then


            Controls.Add(New Label() With {
                .Text = "",
                .Height = 3,
                .Dock = DockStyle.Bottom,
                .ForeColor = Me.ForeColor,
                .BackColor = CorNova
            })
        ElseIf Me.B_Label = False Then
            Controls.Add(New Label() With {
                           .Text = "",
                           .Height = 0,
                           .Dock = DockStyle.Bottom,
                           .ForeColor = Me.ForeColor,
                           .BackColor = Me.ForeColor
                       })
        End If
    End Sub

End Class

It was like this:

ButIwanttoknowhowtogroupallthepropertiesinasingleeyepieceminusspaces,similartowhathappenswiththegroupoffont,locationetc.

cananswerbothin c # and in

asked by anonymous 12.06.2018 / 14:19

0 answers