[電腦討論]

(visual basic2005)請問該如何檢查四方是否一樣?

本帖最後由 yea620 於 2009-5-10 23:39 編輯

我有5*5個button,並且已經用亂數讓button變顏色,
這是程式碼:
Dim b(25) As Button
        Dim c, i As Integer
        b(1) = Button1
        b(2) = Button2
        b(3) = Button3
        b(4) = Button4
        b(5) = Button5
        b(6) = Button6
        b(7) = Button7
        b(8) = Button8
        b(9) = Button9
        b(10) = Button10
        b(11) = Button11
        b(12) = Button12
        b(13) = Button13
        b(14) = Button14
        b(15) = Button15
        b(16) = Button16
        b(17) = Button17
        b(18) = Button18
        b(19) = Button19
        b(20) = Button20
        b(21) = Button21
        b(22) = Button22
        b(23) = Button23
        b(24) = Button24
        b(25) = Button25
        For i = 1 To 25
the:
            Randomize()
            c = Int(Rnd() * 10)
            If c = 1 Then
                b(i).BackColor = Color.Blue
            ElseIf c = 2 Then
                b(i).BackColor = Color.Red
            ElseIf c = 3 Then
                b(i).BackColor = Color.Green
            ElseIf c = 4 Then
                b(i).BackColor = Color.Yellow
            ElseIf c > 4 Or c < 1 Then
                GoTo the
            End If
        Next i
我想請問:當button click 時,檢查那個button的上下左右是否有同顏色之button,若有則繼續檢查那個button的上下左右,並且消除,沒有則不發生任何事情.
我想請會的大大教教我,該怎麼寫檢查button的上下左右的程式碼,謝謝.

風箏惡魔:
麻煩把您的標題重新修改過
版規裡面有敘述該如何訂標題
喜歡這篇文章嗎?
回覆 0
您需要登入後才可以回帖 登入 | 註冊會員

本版積分規則 回覆 15 個字以上可拿獎勵,
規則詳見此

精選熱門商品

提示訊息
go_top