vb.net LED BOARD DISPLAY 用户控制

Question

我正在 vb.net 中开发 LEDBOARD 用户控件。我也做过。实际上加载时间太长了。在 vb6 相同的应用程序中，我正在使用标签控件加载 3000 个标签数组但不耗时。在 vb.net 我也在做同样的事情，但加载 3000 个标签需要太多时间。还有其他方法（任何控件或任何自定义控件）来绘制输入文字（任意字体），如下图所示 如下图

Answer 1

通过继承 Control 从头开始​​创建您的 LedBoard 控件，而不是使用 UserControl 并添加大量标签。

我只是做了一个小测试来告诉你我的意思。您必须调整逻辑以满足您的需求。

Public Class LedBoard
    Inherits Control

    Private _rand As Random = New Random()

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        e.Graphics.FillRectangle(Brushes.Black, 0, 0, Width, Height)

        Const nx As Integer = 40, ny As Integer = 25

        Dim w = CInt((Width - 1) / nx) - 1
        Dim h = CInt((Height - 1) / ny) - 1
        For x As Integer = 0 To nx - 1
            For y As Integer = 0 To ny - 1
                If _rand.NextDouble() < 0.8 Then
                    e.Graphics.FillRectangle(Brushes.Red, x * (w + 1) + 1, y * (h + 1) + 1, w, h)
                End If
            Next
        Next

    End Sub

End Class