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