¿Cómo escribir controles de usuario en VB.net?
#Región "Variable"
Atenuar Down_Color As Color = Color.Blue
Atenuar UP_Color As Color = Color.Gray
Modo atenuado como corto = 0
Indicador atenuado como booleano
Modo atenuado offset_X como integración. Modo atenuado como corto = 0
Indicador atenuado como booleano p>
Atenuar offset_X como entero
Atenuar offset_Y como entero
Atenuar Mouse_P como punto
#EndRegion
#Región " Propiedad"
'Color abajo
Propiedad pública _DownColor como color
Obtener
Devolver Down_Color
Fin Obtener
Establecer (valor ByVal como color)
Down_Color = valor
Conjunto final
Propiedad final
' Color emergente
Propiedad pública _UpColor como color
Obtener
Devolver UP_Color
Fin de obtener
Establecer ( Valor ByVal como color)
UP_Color = valor
Conjunto final
Propiedad final
'Modo de diapositiva 0-Horizontal 1-Vertical
Propiedad pública _Modo como corto
Obtener
Modo de retorno
Fin Obtener
Establecer (valor ByVal como corto )
Modo = valor
Finalizar conjunto (valor ByVal como corto)
Finalizar conjunto (valor ByVal como corto).p> Finalizar conjunto
Propiedad final
#End Region
Private Sub UserControl1_Load(ByVal remitente como objeto, ByVal y As System.EventArgs) Me maneja.Load
Yo .BackColor = UP_Color(ByVal remitente como objeto, ByVal y como System.EventArgs).
BackColor = UP_Color
End Sub
'MouseDown
Private Sub UserControl1_MouseDown(ByVal remitente como objeto, ByVal y como System.Windows.Forms.MouseEventArgs) Me maneja .MouseDown
Me.MouseDown(ByVal remitente como objeto, ByVal e As System.EventArgs)BackColor = Down_Color
Mouse_P = e.Location
flag = True
End Sub
'Movimiento del mouse
Private Sub UserControl1_MouseMove(ByVal remitente como objeto, ByVal y As System.Windows.Forms.MouseEventArgs)Windows.Forms. MouseEventArgs) maneja Me.MouseMove
Si flag = False, entonces salga de Sub
Seleccione el modo de caso
Caso 0 'horizontal-
offset_X = e.X - Mouse_P.X
If Me.MouseMove(ByVal remitente como objeto). Ubicación. p> Me.Ubicación = Nuevo Punto(Me.Ubicación. p>
flag = False
Else
Me.Ubicación = Nuevo Punto(Me.Ubicación.Y offset_Y lt; = 0)Windows.Forms.MouseEventArgs) Procesarme
Me.BackColor = UP_Color
flag = False
End Sub
Finalizar clase