O Visual Basic permite a criação de controlos por parte do programador, estes controlos podem ser, posteriormente, utilizados noutros projetos.
Começamos por criar um projecto no VB:
Depois adicionamos o user control:
De seguida criamos o nosso user control adicionando componentes e código de acordo com o pretendido. Neste exemplo o user control vai apresentar um relógio analógico, assim adicionamos uma picturebox, definimos o dock em fill, adicionamos um timer com interval em 1000 (1 segundo) e colocamos o seguinte código no controlo:
Public Class Relogio
Sub hora_analogica(ByVal x As PictureBox)
Dim meiox, meioy As Integer
Dim tamanhohx, tamanhohy, tamanhomx, tamanhomy, tamanhosx, tamanhosy As Integer
Dim hora, minuto, segundo As Integer
Dim phorax, phoray, pminutox, pminutoy, psegundox, psegundoy As Integer
Dim anguloh, angulom, angulos As Double
Dim tipo_letra As New Font("Arial", 10)
Dim corp As New Pen(Brushes.Black, 2)
Dim corv As New Pen(Brushes.Red, 2)
Dim cora As New Pen(Brushes.Blue, 2)
'limpa a picturebox
x.CreateGraphics.Clear(x.BackColor)
'achar o meio da imagem
meiox = x.Width / 2
meioy = x.Height / 2
'tamanho dos ponteiros
tamanhomx = meiox
tamanhomy = meioy
tamanhosx = tamanhomx * 0.8
tamanhosy = tamanhomy * 0.8
tamanhohx = tamanhomx * 0.5
tamanhohy = tamanhomy * 0.5
'desenhar mostrador
'12 horas
anguloh = ((0 / 12 * 360) - 90) * Math.PI / 180
phorax = meiox + Math.Cos(anguloh) * tamanhomx
phoray = meioy + Math.Sin(anguloh) * tamanhomy
x.CreateGraphics.DrawString("12", tipo_letra, Brushes.Black, phorax, phoray)
'6 horas
anguloh = ((6 / 12 * 360) - 90) * Math.PI / 180
phorax = meiox + Math.Cos(anguloh) * tamanhomx
phoray = meioy + Math.Sin(anguloh) * tamanhomy
x.CreateGraphics.DrawString("6", tipo_letra, Brushes.Black, phorax, phoray - 20)
' 3 horas
anguloh = ((3 / 12 * 360) - 90) * Math.PI / 180
phorax = meiox + Math.Cos(anguloh) * tamanhomx
phoray = meioy + Math.Sin(anguloh) * tamanhomy
x.CreateGraphics.DrawString("3", tipo_letra, Brushes.Black, phorax - 10, phoray)
'9 horas
anguloh = ((9 / 12 * 360) - 90) * Math.PI / 180
phorax = meiox + Math.Cos(anguloh) * tamanhomx
phoray = meioy + Math.Sin(anguloh) * tamanhomy
x.CreateGraphics.DrawString("9", tipo_letra, Brushes.Black, phorax, phoray)
'horas
hora = Now.Hour
If hora > 12 Then hora = hora - 12
anguloh = ((hora / 12 * 360) - 90) * Math.PI / 180
phorax = meiox + Math.Cos(anguloh) * tamanhohx
phoray = meioy + Math.Sin(anguloh) * tamanhohy
'ponteiro das horas
x.CreateGraphics.DrawLine(corp, meiox, meioy, phorax, phoray)
'minutos
minuto = Now.Minute
angulom = ((minuto / 60 * 360) - 90) * Math.PI / 180
pminutox = meiox + Math.Cos(angulom) * tamanhomx
pminutoy = meioy + Math.Sin(angulom) * tamanhomy
x.CreateGraphics.DrawLine(cora, meiox, meioy, pminutox, pminutoy)
'segundos
segundo = Now.Second
angulos = ((segundo / 59 * 360) - 90) * Math.PI / 180
psegundox = meiox + Math.Cos(angulos) * tamanhosx
psegundoy = meioy + Math.Sin(angulos) * tamanhosy
x.CreateGraphics.DrawLine(corv, meiox, meioy, psegundox, psegundoy)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
hora_analogica(Me.PictureBox1)
End Sub
End Class
Depois executamos o Build do projeto, com esta tarefa concluída passamos a contar com o nosso componente na Tool Box:
Este icon só aparece se não estivermos no modo design do user control!
Feito isto podemos adicionar o nosso novo componente a qualquer formulário deste projeto do mesmo modo que se adiciona os restantes.
Se pretendermos utilizar este componente noutro projeto basta adicionar o componente criado utilizando a opção de adicionar elemento existente:
Projeto com o componente e uma aplicação que utiliza esse componente para download.
Sem comentários:
Enviar um comentário