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

看板Visual_Basic作者tpjobp (邪修歲月)時間17年前 (2007/05/03 18:06)推噓1(1推 0噓 1→)

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

※ 引述《mroscar (小歐斯卡)》之銘言： : 我想要每個方格的顏色隨機出現灰或籃色 : 圖例: : ■■■■■■■■■■ : ■■■■■■■■■■ : ■■■■■■■■■■ : ■■■■■■■■■■ : ■■■■■■■■■■ : ■■■■■■■■■■ : ■■■■■■■■■■ : ■■■■■■■■■■ 改寫過不曉得是不是你要的 Dim Num As Byte Cls Num = InputBox("請問是多少乘多少的方塊") Scale (0, 0)-(Num, Num) ReDim SQ(1 To Num ^ 2) As Boolean Randomize Timer For i = 1 To Num ^ 2 SQ(Int(Rnd * Num ^ 2) + 1) = True Next i X1 = 0 Y1 = 0 For i = 1 To Num ^ 2 If SQ(i) = True Then c = QBColor(7) Else c = QBColor(1) X2 = X1 + 1 Y2 = Y1 + 1 Line (X1, Y1)-(X2, Y2), c, BF X1 = X1 + 1 If i Mod Num = 0 Then Y1 = Y1 + 1: X1 = 0 Y1 = ((i \ Num)) * 1 Next i -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 219.81.88.26

推

mroscar

05/03 20:12, , 1^F

05/03 20:12, 1^F

→

mroscar

05/03 20:12, , 2^F

05/03 20:12, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 tpjobp 的文章

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