|
cmd2(i).Move cmd1(i).Left + cmd1(i).Width, cmd1(i).Top
cmd3(i).Move cmd1(i).Left + cmd1(i).Width, cmd1(i).Top + cmd1(i).Height
cmd4(i).Move cmd3(i).Left + cmd3(i).Width, cmd3(i).Top
Case 3
cmd2(i).Move cmd1(i).Left, cmd1(i).Height + cmd1(i).Top
cmd3(i).Move cmd1(i).Left - cmd1(i).Width, cmd2(i).Top
cmd4(i).Move cmd3(i).Left, cmd3(i).Height + cmd3(i).Top
Case 4
cmd2(i).Move cmd1(i).Left + cmd1(i).Width, cmd1(i).Top
cmd3(i).Move cmd1(i).Left + cmd1(i).Width, cmd1(i).Top + cmd1(i).Height
cmd4(i).Move cmd3(i).Left + cmd3(i).Width, cmd3(i).Top
End Select
End Sub
（7）Private Sub tx7(X As Integer)
Select Case X
Case 1
cmd2(i).Move cmd1(i).Left + cmd1(i).Width, cmd1(i).Top
cmd3(i).Move cmd2(i).Left + cmd2(i).Width, cmd1(i).Top
cmd4(i).Move cmd2(i).Left, cmd1(i).Top + cmd1(i).Height
Case 2
cmd2(i).Move cmd1(i).Left, cmd1(i).Height + cmd1(i).Top
cmd3(i).Move cmd2(i).Left, cmd2(i).Height + cmd2(i).Top
cmd4(i).Move cmd2(i).Left - cmd2(i).Width, cmd2(i).Top
Case 3
cmd2(i).Move cmd1(i).Left + cmd1(i).Width, cmd1(i).Top
cmd3(i).Move cmd2(i).Left + cmd2(i).Width, cmd1(i).Top
cmd4(i).Move cmd2(i).Left, cmd1(i).Top - cmd1(i).Height
Case 4
cmd2(i).Move cmd1(i).Left, cmd1(i).Height + cmd1(i).Top
cmd3(i).Move cmd2(i).Left, cmd2(i).Height + cmd2(i).Top
cmd4(i).Move cmd2(i).Left + cmd2(i).Width, cmd2(i).Top
End Select
End Sub
'图形的变换是通过改变其相对位置来实现的！
参考文献
［1］李雁翎.Visual Basic 程序设计.第2版, 清华大学出版社
|
