按下按钮时创建Picturebox

Question

我正在创建一个名为KernalOS的操作系统具有完整功能的桌面但我的问题是我希望能够在单击按钮时添加图标。我希望Icon能够检测鼠标按钮是否已关闭/点击。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim newPictureBox As New PictureBox
    newPictureBox.Visible = True
    newPictureBox.Top = 20
    newPictureBox.Width = 100
    newPictureBox.Height = 50
    newPictureBox.Left = 10
    'add control to form
    Controls.Add(newPictureBox)
    newPictureBox.Location = New Point(100, 100)
End Sub

此代码无效，因此Idk发生了什么或为什么它无法正常工作。请问问题我会向您提供详细信息。谢谢伙计们

Answer 1

使用AddHandler事件：

newPictureBox.AddHandler, AddressOf newPictureBox_Click

newPictureBox.AddHandler, AddressOf newPictureBox_MouseDown

现在我不确定它有多精确;你现在必须写一个

Private Sub newPictureBox_Click.

这可能不是完整的正确语法，但你明白了。