WPF用户控件

WPF 用户控件的写法，前端代码

后端代码

Public Class wenshi
    Inherits UserControl
    Private ReadOnly _colorBlue As Color = Color.FromRgb(0, 255, 200)
    Private ReadOnly _colorRed As Color = Color.FromRgb(255, 0, 0)
    Public Sub New()
        InitializeComponent()
    End Sub
    Public _id As Integer = -1
    Public Sub setContent(ByVal id As Integer)
        Name = "自定义控件" + id
        label.Content = id
        _id = id
    End Sub
    Public Sub SetValue(ByVal wendu_num As Double, ByVal shidu_num As Double)
        textBox_wendu.Text = wendu_num
        textBox_shidu.Text = shidu_num
    End Sub

    Public Sub setColor(ByVal i As Integer)
        If i = 0 Then
            Background = New SolidColorBrush(_colorBlue)
        End If
        If i = 1 Then
            Background = New SolidColorBrush(_colorRed)
        End If
    End Sub
End Class

调用方式

Class wenshidu

    Public controls As New List(Of wenshi)
    Public Sub tianjia(ByVal num As Integer)
        If num > 0 Then
            For i = 1 To num
                Dim wenshict As New wenshi
                wpmain.Children.Add(wenshict)
                controls.Add(wenshict)
            Next
        End If
    End Sub
End Class