PictureBox控件组索引问题
为方便管理和编写代码,将一系列的PictureBox控件索引,现在我想实现当鼠标点移到某个PictureMenuMain(X)时,只有当前的那个PictureBox控件会响应,而其它的PictureBox(X...)是不会有任何响应.(它们都是索引起来的控件组)请问如何加条件判断语句呢?或者是否有其它更好的方法去解决?多谢回复!
Private Sub PictureMenuMain_MouseMove(Index As Integer, Button As Integer)
PictureMenuMain(0).Print "File"
PictureMenuMain(0).ForeColor = vbRed
PictureMenuMain(1).Print "Edit"
PictureMenuMain(1).ForeColor = vbRed
PictureMenuMain(2).Print "View"
PictureMenuMain(2).ForeColor = vbRed
PictureMenuMain(3).Print "Setup"
PictureMenuMain(3).ForeColor = vbRed
PictureMenuMain(4).Print "Run"
PictureMenuMain(4).ForeColor = vbRed
PictureMenuMain(5).Print "Help"
PictureMenuMain(5).ForeColor = vbRed
End Sub