| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 596 人关注过本帖
标题:国际象棋
只看楼主 加入收藏
termite
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2006-4-15
收藏
 问题点数:0 回复次数:6 
国际象棋
大家看一下还有更简洁的方法来实现棋盘的问题
搜索更多相关主题的帖子: 国际象棋 
2006-05-02 20:38
termite
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2006-4-15
收藏
得分:0 

Option Explicit
Dim t As Integer, l As Integer, i As Integer, j As Integer, k As Integer

Private Sub Form_Click()
t = 0
For i = 1 To 8
l = 50
For j = 1 To 8
k = (i - 1) * 8 + j
Load Label1(k)
Label1(k).BackColor = IIf((i + j) Mod 2 = 0, QBColor(0), QBColor(15))
Label1(k).Visible = True
Label1(k).Top = t
Label1(k).Left = l
l = l + Label1(0).Width
Next j
t = t + Label1(0).Height
Next i
End Sub


Private Sub Label1_Click(Index As Integer)
Label1(Index) = Index
For i = 1 To 8
For j = 1 To 8
k = (i - 1) * 8 + j
If Label1(k).BackColor = QBColor(0) Then
Label1(k).BackColor = QBColor(15)
Else
Label1(k).BackColor = QBColor(0)
End If
Next j

Next i

End Sub


恋漠白蚁
2006-05-02 20:40
termite
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2006-4-15
收藏
得分:0 
[IMG]http://photo.[/IMG]

恋漠白蚁
2006-05-02 20:53
termite
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2006-4-15
收藏
得分:0 
[URL=http://photo.]URL]

恋漠白蚁
2006-05-02 20:55
termite
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2006-4-15
收藏
得分:0 
图片[IMG]http://photo.[/IMG]

恋漠白蚁
2006-05-02 20:56
termite
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2006-4-15
收藏
得分:0 
图片搞不上去,请原谅
题目是做一国际象棋棋盘,任意单击出现,再单击其中任意格就变换黑白并显示相应格数

恋漠白蚁
2006-05-02 21:00
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 
想不出来了,支持一下吧

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-05-03 21:40
快速回复:国际象棋
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025467 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved