Question

我有一个textbox1和一个按钮。当我按下按钮时，程序会截取我的表单的屏幕截图并将其保存到代码中给出的路径。什么是代码，所以我可以选择以jpg格式保存我的打印屏幕的路径？文件的文件名应该是输入textbox1的文本。

我的代码：

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)Handles Button4.Click

        'send keys with Alt key
        SendKeys.SendWait("%({PRTSC})")
        My.Computer.Clipboard.GetImage().Save("C:\temp\form.jpg")

End Sub

Answer 1

文件的文件名应该是输入textbox1的文本

这似乎是一个愚蠢的答案......但它是你要求的：

My.Computer.Clipboard.GetImage().Save(TextBox1.Text)

---------编辑----------

谢谢，以及如何选择保存位置的路径？以及如何添加扩展名？

使用SaveFileDialog。您也可以使用Control.DrawToBitmap()函数代替Alt-PrtSc，并在保存图像时实际指定JPEG format：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Using sfd As New SaveFileDialog
        sfd.Filter = "JPEG Files(*.JPG)|*.JPG"
        If sfd.ShowDialog = DialogResult.OK Then
            Try
                Dim bmp As New Bitmap(Me.Size.Width, Me.Size.Height)
                Me.DrawToBitmap(bmp, New Rectangle(0, 0, bmp.Width, bmp.Height))
                bmp.Save(sfd.FileName, Imaging.ImageFormat.Jpeg)
            Catch ex As Exception
                MessageBox.Show("FileName: " & sfd.FileName & vbCrLf & vbCrLf & ex.Message, "Error Saving Screenshot")
            End Try
            MessageBox.Show("FileName: " & sfd.FileName, "Screenshot Saved")
        End If
    End Using
End Sub

Answer 2

您只需要文本框的Text属性，所以......

textbox1.Text

选择一个文件路径以在VB中保存表单打印屏幕

2 个答案: