visualbasic.net中的一般錯誤

Question

如何使用visual basic express在visual basic.net中的下面的代碼修復此錯誤？ 3循環後不支持異常未處理。 「PictureBox1.Image.Save（dtmTestX，System.Drawing.Imaging.ImageFormat.Jpeg）」

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 

    Dim dtmTest As Date 
    dtmTest = TimeValue(Now) 
    Dim bounds As Rectangle 
    Dim screenshot As System.Drawing.Bitmap 
    Dim graph As Graphics 
    Dim dtmTestSaveLocation As String 
    dtmTestSaveLocation = "D:\test" + dtmTest + ".jpg" 

    bounds = Screen.PrimaryScreen.Bounds 
    screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) 
    graph = Graphics.FromImage(screenshot) 
    graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy) 
    PictureBox1.Image = screenshot 

    PictureBox1.Image.Save(dtmTestSaveLocation, System.Drawing.Imaging.ImageFormat.Jpeg) 
End Sub 

Answer 1

您需要更改行：

PictureBox1.Image.Save(dtmTestX, System.Drawing.Imaging.ImageFormat.Jpeg) 

到：

PictureBox1.Image.Save(dtmTestSaveLocation, System.Drawing.Imaging.ImageFormat.Jpeg) 

您還應該將圖形元素真正嵌入到使用標籤中以確保其正確處置：

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    Try 
     Dim dtmTest As Date 
     Dim bounds As Rectangle 
     Dim dtmTestSaveLocation As String 

     dtmTest = TimeValue(Now) 
     dtmTestSaveLocation = "D:\test" & dtmTest.ToShortTimeString.Replace(":", "_") & ".jpg" 

     bounds = Screen.PrimaryScreen.Bounds 
     Using screenshot As New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) 
      Using graph As Graphics = Graphics.FromImage(screenshot) 
       graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy) 
       PictureBox1.Image = screenshot 
       screenshot.Save() 
       PictureBox1.Image.Save(dtmTestSaveLocation, System.Drawing.Imaging.ImageFormat.Jpeg) 
      End Using 
     End Using 
    Catch theException As Exception 
     Console.WriteLine(theException.ToString) 
     ' Note: In production code, you would want to do something useful with the exception 
     ' here, such as showing it to the user in a messagebox or writing it to a log 
    End Try 
End Sub