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.