VB中怎么判断用form画的两个不同坐标的圆的颜色相不相同呢 我用VB做了一个井字棋,然后想判断两个相邻的棋子的颜色,棋子我是用form1.circle画的,坐标有确定的。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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 SubPoint 方法按照长整数,返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。 VB中timer控件的用法? 简单问题 帮帮忙!关于用VBS提取index.dat VB使用GDI+打开图像的问题 vb中如何获取当前操作系统的版本呢??? EasyMail Object 6如何发布??? 这段简单的代码为啥不行??各位帮帮忙 VB 中怎么取得本地计算机名 VB.neT走迷宫游戏源代码 ::::::::::紧急求救:如何得到拨号服务器的ip地址,(UP有分) VB 数据库从下往上添加数据 将sql2000数据插入到SQL2005的问题
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) 颜色。