我已经尝试了很长时间来解决这个问题。如果可以,请帮忙。
我有2个表格。
目前我已经设法让每个图像在鼠标悬停时发光,这是我的代码的一部分,以防它相关。谢谢!
Private Sub pbBook_MouseEnter(ByVal sender As Object,
ByVal e As System.EventArgs) Handles pbBook.MouseEnter
pbBook.Image() = Project2Game.My.Resources.Resources.bookglow
pbBookDescription.Show()
End Sub
Private Sub pbBook_MouseLeave(ByVal sender As Object,
ByVal e As System.EventArgs) Handles pbBook.MouseLeave
pbBook.Image() = Project2Game.My.Resources.Resources.book
pbBookDescription.Hide()
End Sub
答案 0 :(得分:1)
这是我在评论中描述的那种事情:
在Form2
:
Public Sub New(image As Image)
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
Me.PictureBox1.Image = image
End Sub
在Form1
:
Dim f2 As New Form2(myImage)
f2.Show()