[VB6 ] 請問一下方塊圖該怎麼做?

看板Visual_Basic作者mroscar (小歐斯卡)時間18年前 (2007/05/03 15:28)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/2 (看更多)

我想要每個方格的顏色隨機出現灰或籃色圖例: ■■■■■■■■■■ ■■■■■■■■■■ ■■■■■■■■■■ ■■■■■■■■■■ ■■■■■■■■■■ ■■■■■■■■■■ ■■■■■■■■■■ ■■■■■■■■■■ 請問一下我的程式碼該怎麼修正呢? Scale (0, 0)-(200, 200) X1 = Int(200 * Rnd) Y1 = Int(200 * Rnd) X2 = Int(200 * Rnd) Y2 = Int(200 * Rnd) w = Rnd If w > 0.5 Then c = QBColor(0) If w < 0.5 Then c = QBColor(1) DoEvents If w > 0.5 Then Line (X1, Y1)-(X2, Y2), c, BF If w < 0.5 Then Line (X1, Y1)-(X2, Y2), c, BF tt = Timer Do While Timer - tt = 0.1 Loop -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.114.192.251

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 mroscar 的文章

文章代碼(AID): #16EOyIdB (Visual_Basic)