[VB6 ] 利用print抓像素

看板Visual_Basic作者snowboylove (無心戀戰)時間17年前 (2008/12/25 22:20)推噓0(0推 0噓 2→)

留言2則, 2人參與討論串1/1

如果我在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

→

new1011

12/28 19:02, , 1^F

12/28 19:02, 1^F

→

snowboylove

01/01 11:21, , 2^F

01/01 11:21, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 snowboylove 的文章

文章代碼(AID): #19KvQTvB (Visual_Basic)