作者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