我复制来的..呵呵..
新建工程,放一个label,将index设置为0(因为后面要动态添加数组控件),VB6,XP测试通过
PrivateSubForm_Load()
Label1(0).Visible=False
Dimmytop,myleft,i,j,kAsInteger
mytop=0
Fori=1To8
myleft=0
Forj=1To8
k=(i-1)*8+j
LoadLabel1(k)
Label1(k).BackColor=IIf((i+j)Mod2=0,vbWhite,vbBlack)
Label1(k).Visible=True
Label1(k).Caption=
Label1(k).Top=mytop
Label1(k).Left=myleft
myleft=myleft+Label1(0).Width
Nextj
mytop=mytop+Label1(0).Height
Nexti
EndSub
===========呵呵,顺便我自己也学会了========
下面这个是我改的..用窗体的高来等分..画的棋盘随窗体的缩放而自动改变以填满窗体.
PrivateSubForm_Load()
Dimi%,j%,k%
Label1(0).Visible=False
Fori=1To8
Forj=1To8
k=(i-1)*8+j
LoadLabel1(k)
Label1(k).BackColor=IIf((i+j)Mod2=0,vbWhite,vbBlack)
Label1(k).Visible=False
Label1(k).Caption=
Next
Next
EndSub
PrivateSubForm_Resize()
Dimi%,j%,k%,mytop%,myleft%,m%
m=Me.ScaleHeight\8
Fori=1To8
myleft=0
Forj=1To8
k=(i-1)*8+j
Label1(k).Visible=True
Label1(k).Movemyleft,mytop,m,m
myleft=myleft+m
Nextj
mytop=mytop+m
Nexti
EndSub
