[VB6 ] 井字遊戲的勝負判定

[xtimer ()]

我用的是VB2005版本

作業是寫出一個井字遊戲 (OOXX那個~@@)

遊戲本身我已經寫好了

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        x = x + 1
        Button1.Enabled = False
        If x Mod 2 = 1 Then
            Button1.Text = "Ｏ"
        Else
            Button1.Text = "Ｘ"
        End If
    End Sub

分別為Button1~9

可是要怎麼判別
147 258 369 123 456 789 159 357的text相同
就跳出一個label說該text玩家贏了呢?

懇求提點  謝謝各位

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.143.32.124
推 ClubT:你可以試試用二維陣列記錄玩的情形
→ xtimer:呃...怎麼試...= =||
→ xtimer:因為作業只要以上就完成了 判定勝負還沒教  單純是有做加分
→ xtimer:所以....我不會.....@@  完全沒頭緒...(汗顏)
推 MrOrz:我被標題分類騙進來了囧"
推 yauhh:在ox指定之後,就要判斷{1,2,3},{1,4,7},{1,5,9},{2,5,8}...
→ yauhh:等,看o或x哪一項連佔三個位置,就是哪邊勝
→ yauhh:以你的ButtonX配置,把八條線的判斷都寫一次是最基本的方法;
→ yauhh:要快的話,宣告一個二維陣列,把ButtonX都指定到二維陣列各格,
→ yauhh:然後用陣列方式寫判斷,程式會比較短
推 su27:你自己拿筆畫 怎麼樣的情形才會贏 井字遊戲不會沒玩過吧