在运行时创建控件

时间:2014-11-17 17:28:38

标签: vb.net picturebox

我需要在VB.NET中使用代码而不是工具箱制作一个图片框,所以它不在我的表单上,只是我想在代码中绘制它。也不,我不想使用:visible = falsetrue 我想在特殊位置/ x,y上显示一个图片框。然后我需要它一旦点击就执行一个命令。我正在制作一个vb游戏,这几乎就是图形布局。 如果它可以帮助我几乎想到它显示一个面板,将通过使用绘图功能等...

1 个答案:

答案 0 :(得分:2)

此代码可以帮助您

  • 以编程方式创建PictureBox
  • 将其放在表单上
  • 设置图片
  • 添加点击事件处理程序
  • 将其添加到表单

创建一个新的WinForms项目并粘贴此代码。无需添加任何控件

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    addPictureBoxToForm()
End Sub

Private Sub addPictureBoxToForm()
    Dim pb As New PictureBox
    pb.Location = New Point(0, 0)
    pb.Image = Bitmap.FromFile("C:\test.png")
    AddHandler pb.Click, AddressOf PictureBox_Click
    Me.Controls.Add(pb)
End Sub

Private Sub PictureBox_Click(sender As Object, e As EventArgs)
    MessageBox.Show("The picture box was clicked")
End Sub