Como criar controles personalizados em vb .net?
Gostaria de cria-los e modificar valores de suas propriedades. Minha finalidade é de importá-los em outros projetos.
Não é fácil. Existem várias possibilidades, dentre elas:
UserControl
// a maneira mais fácilÉ bem simples criar um conjunto de controles, como talvez uma listinha com alguns botões predefinidos ou talvez um único controle. Você sempre poderá acessar as propriedades do seu controle se forem públicos e visíveis para o Designer.
Public Class MeuControle
Inherits System.Windows.Forms.UserControl
' Propriedade interna
Private Dim _CorDeFundo As Color
<DesignerSerializationVisibilityAttribute()>
Public Property CorDeFundo As Color
Get
Return _CorDeFundo
End Get
Set (value As Color)
_CorDeFundo = value
End Set
End Property
...
...
No código acima, a propriedade CorDeFundo
não altera nada no código, ela só está ali para indicar que há uma propriedade no designer que altera a cor de fundo. Para mostrar no designer essa propriedade, adicione o atributo DesignerSerializationVisibilityAttribute
em cima do método como está acima.
Aprenda sobre os UserControl
aqui.
Control
diretamente // criar um controle do zeroAqui é um pouco mais complicado, você não vai usar o designer para desenhar seu controle, irá usar tudo à base de validações do controle, terá que implementar uma classe que herda o tipo System.Windows.Forms.Control
e terá que emular os eventos (quase todos) como MouseDown
, OnPaint
(o que mais será usado), Focused
, etc.
Uma dica que te dou, é procurar vários exemplos no CodeProject, lá o pessoal desenvolve bastantes controles.
Também dá uma olhada nesse link (somente em inglês).
Como o @LINQ disse, é herdando controles em sua classe. Por exemplo, você pode alterar a cor da seleção de uma ListBox
com este código:
Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.LightSeaGreen, e.Bounds)
End If
Using b As New SolidBrush(e.ForeColor)
e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Index)), e.Font, b, e.Bounds)
End Using
e.DrawFocusRectangle()
End Sub
Em suma, não é fácil se você quiser fazer um controle do zero, sem usar nenhum outro controle como base. Fica mais fácil ainda usando UserControls.
Public Class TextBoxPersonalizado Inherits TextBox