UC知道VB 如何让输出的内容全部显示在picture中
来源：百度知道 编辑：UC知道 时间：2024/05/28 03:22:29
显示只会让它一排或一列，但后面的内容就看不到了，怎么编程序可以让picture.print后全部显示进来呢？
谢谢啦~~
题：任意输入一串字母，分别童年国际26个字母的个数
Private Sub Form_click()
Dim arr(25) As Integer
s = Text1.Text
For i = 1 To Len(s)
s1 = UCase(Mid(s, i, 1))
n = Asc(s1)
If n >= 65 And n <= 90 Then
arr(n - 65) = arr(n - 65) + 1
End If
Next i
For i = 0 To 25
Picture1.Print Chr(65 + i) & "有" & arr(i) & "个"
Next i
End Sub
谢谢啦~~
题：任意输入一串字母，分别童年国际26个字母的个数
Private Sub Form_click()
Dim arr(25) As Integer
s = Text1.Text
For i = 1 To Len(s)
s1 = UCase(Mid(s, i, 1))
n = Asc(s1)
If n >= 65 And n <= 90 Then
arr(n - 65) = arr(n - 65) + 1
End If
Next i
For i = 0 To 25
Picture1.Print Chr(65 + i) & "有" & arr(i) & "个"
Next i
End Sub
'每行显示5个:
Private Sub Form_click()
Dim arr(25) As Integer
s = Text1.Text
For i = 1 To Len(s)
s1 = UCase(Mid(s, i, 1))
n = Asc(s1)
If n >= 65 And n <= 90 Then
arr(n - 65) = arr(n - 65) + 1
End If
Next i
For i = 0 To 25
Picture1.Print Tab((i Mod 5) * 8 + 1); Chr(65 + i) & "有" & arr(i) & "个";
Next i
End Sub
Picture的CurrentX和CurrentY记录了当前绘图点的位置，改变它们的值就可以达到在任意坐标点上画图的效果了
你把picture 拉大点就好了