Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo escribir controles de usuario en VB.net?

¿Cómo escribir controles de usuario en VB.net?

Clase pública UserControl1

#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

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