將圖像從圖片框移動到另一個圖片的另一個圖片盒

Question

即時圖片試圖將圖片從PictureBox移動到另一個，該圖片被網絡攝像頭捕獲，但我的代碼無法正常工作。

Public Class Form12 
Private _capture As Emgu.CV.Capture 
Private _captureInProgress As Boolean 
Dim form23 As Form23 

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click 
    form23.SetPictureBoxImage(captureImageBox.Image) 
    form23.Show() 
End Sub 

Private Sub captureButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles captureButton.Click 
     If (_capture Is Nothing) Then 
      Try 
       _capture = New Emgu.CV.Capture 
      Catch excpt As NullReferenceException 
       MessageBox.Show(excpt.Message) 
      End Try 
     End If 
     If (Not _capture Is Nothing) Then 
      If _captureInProgress Then 
       Me.captureButton.Text = "Start Capture" 
       RemoveHandler Application.Idle, New EventHandler(AddressOf Me.ProcessFrame) 

      Else 
       captureButton.Text = "Capture" 
       AddHandler Application.Idle, New EventHandler(AddressOf Me.ProcessFrame) 
      End If 
      _captureInProgress = Not _captureInProgress 
     End If 
End Sub 

Private Sub ProcessFrame(ByVal sender As Object, ByVal arg As EventArgs) 

    Dim frame As Emgu.CV.Image(Of Emgu.CV.Structure.Bgr, Byte) = Me._capture.QueryFrame 
    Dim grayFrame As Emgu.CV.Image(Of Emgu.CV.Structure.Gray, Byte) = frame.Convert(Of Emgu.CV.Structure.Gray, Byte)() 
    Dim smoothedGrayFrame As Emgu.CV.Image(Of Emgu.CV.Structure.Gray, Byte) = grayFrame.PyrDown.PyrUp 

    captureImageBox.Image = frame.Bitmap 
End Sub 

Private Sub ReleaseData() 
    If (Not _capture Is Nothing) Then 
     _capture.Dispose() 
    End If 
End Sub 

第二表格

Public Class Form23 
Public Sub SetPictureBoxImage(ByVal image As Bitmap) 
    PictureBox1.Image = image 
End Sub 
End Class 

所有攝像頭的事情是工作，只是圖像的傳輸是沒有的。對不起，這裏只是一個新手。剛剛從教程中獲得這些代碼。謝謝！

Answer 1

形式是類 - 它是這麼說的，在所有這些的頂部：

Public Class Form817 

所以，他們的實例應該創建並且那是你的代碼應該在任何地方使用什麼：

Dim myFrm As Form817   ' DECLARES the variable 
myFrm = New Form817    ' Initialize myFrm as an instance of Form817 

' short method: 
Dim myFrm As New Form817 

的問題是在這裏：

form23.SetPictureBoxImage(captureImageBox.Image) 
form23.Show() 

VB不區分大小寫的，你的代碼沒有創造和實例，所以第一行是引用類，而不是實例。當你通常做類似Form23.Show - 而沒有創建一個實例時，VB爲你創建一個同名的實例。這被稱爲默認表單實例，應該避免（總是）。

您的圖像傳輸失敗，因爲代碼引用了一個事件（Form23），但顯示了另一個事件（Form23的一個新實例）。