作者snowboylove (无心恋战)
看板Visual_Basic
标题[VB6 ] 利用print抓像素
时间Thu Dec 25 22:20:10 2008
如果我在textbox里面输入了12345678欢迎
利用print的方法能不能一开始先不显示任何东西
然後像跑马灯显示一样依序出现1 2 3 4 5 6 7 8 欢 迎
如此一直循环下去~
Private Sub Command1_Click()
Cls
Me.Picture1.Cls
Me.Picture1.Print Text1.Text
For y = 0 To Picture1.ScaleWidth - 1
For x = 0 To Picture1.ScaleHeight - 1
b = Picture1.Point(x, y)
If b = 0 Then
Print "●";
a(x, y) = "●"
Else
Print "○";
a(x, y) = "○"
End If
Next
Print
Next
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.71.224.172
1F：→ new1011:用timer画吧 12/28 19:02
2F：→ snowboylove:我解决了 我用timer搞定 01/01 11:21