如何在mouseEnter上使用数组显示ToolStripStatusLabel.Text

时间:2011-11-30 02:51:29

标签: vb.net

我有一系列带图像的图片框。我希望状态栏在鼠标进入图像时更改。当鼠标悬停在pictureBox上时,我无法显示正确的文本。

hr1StatusText是从文本文件中读取的文本数组。一切正常但我无法想象如何遍历状态栏的文本。

只要索引被更改,下面的代码就可以显示所有PB的文本。我要找的是为PB(0)显示hr1StatusText(0),为PB(1)显示hr1StatusText(1)等。

Public Sub Tile_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
    Dim TileMouse As PictureBox = DirectCast(sender, PictureBox)
    ToolStripStatusLabel1.Text = hr1StatusText(0)
End Sub

1 个答案:

答案 0 :(得分:1)

类似于:

Me.ToolStripStatusLabel1.Text = hr1StatusText(Array.IndexOf(PB, TileMouse))

编辑:如果它们不在数组中,请为每个Tag分配一个PictureBox(通过Designer)以获取要显示的字符串,并执行以下操作:

Me.ToolStripStatusLabel1.Text = DirectCast(PB.Tag, String)