以下是使用VB代码在图片框中分行显示11~50,每行显示五个数字的示例:

Private Sub Command4_Click()
    Dim number As Integer = 11
    Dim row As Integer = 0
    Dim column As Integer = 0

    For i As Integer = 0 To 39 ' 循环40次,从11到50
        Dim label As New Label()
        label.AutoSize = True
        label.Text = number.ToString()

        ' 计算当前应该显示的位置
        label.Location = New Point(column * 50, row * 20)

        ' 将标签添加到图片框中
        Picture1.Controls.Add(label)

        ' 更新行和列的值
        column += 1
        If column = 5 Then
            column = 0
            row += 1
        End If

        number += 1
    Next i
End Sub

你可以将以上代码添加到你的VB应用程序中的适当位置,然后将该代码与名为'Command4'的按钮关联。当用户点击'Command4'按钮时,将会在图片框中显示数字。请确保图片框的名称是'Picture1',如果不是,请相应地更改代码中的名称。

希望这可以帮助到你!如果你有其他问题,请随时提问。

VB代码:在图片框中分行显示数字 11-50

原文地址: https://www.cveoy.top/t/topic/bPy2 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录