vb图片框问题

代码如下

Option Base 1
Dim a As Variant

Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To UBound(a)
        Picture1.Print a(i)
        If i Mod 3 = 0 Then Picture1.Print
       
    Next i
   
End Sub

Private Sub Command2_Click()
    Dim i As Integer, s As String
    For i = 1 To UBound(a)
        s = s & Str(a(i))
        If i Mod 3 = 0 Then s = s & vbCrLf
    Next i
    Text1 = s
End Sub

Private Sub Form_Load()
a = Array(15, 23, 17, 36, 21, 18, 32, 36, 25)
End Sub

 

要现实文本框的样式，图片框的属性需要怎样修改

没太看明白你的意思  是左边的跟右边显示一样的话 改这里 Picture1.Print a(i);  加了一个;号

picturebox有个属性是backcolor，选为“突出显示文本”

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息