我用VB做了一个井字棋,然后想判断两个相邻的棋子的颜色,棋子我是用form1.circle画的,坐标有确定的。

解决方案 »

  1.   


    Private Sub Command1_Click()
       Me.FillColor = vbRed
       Me.FillStyle = vbFSSolid
       Me.Circle (100, 100), 100, vbRed
       Debug.Print Point(110, 110)
       
       Me.FillColor = vbYellow
       Me.FillStyle = vbFSSolid
       Me.Circle (300, 300), 100, vbYellow
       Debug.Print Point(310, 310)
         
       Me.FillColor = vbRed
       Me.FillStyle = vbFSSolid
       Me.Circle (600, 600), 100, vbRed
       Debug.Print Point(610, 610)
    End Sub
    Point 方法
    按照长整数,返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。