在VB中选择保存表单打印屏幕的文件路径答案

【问题标题】：select a file path to save form print screen in VB在VB中选择保存表单打印屏幕的文件路径
【发布时间】：2015-09-14 21:44:02
【问题描述】：

我有一个 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

【问题讨论】：

标签： vb.net

【解决方案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

【讨论】：

谢谢，如何选择保存路径？以及如何添加扩展？
非常感谢。它就像一个魅力。抱歉回复晚了，但我不得不走了。

【解决方案2】：

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

textbox1.Text

【讨论】：

谢谢，但是将 textbox1.text 放在哪里？抱歉，我不是 VB 专业人士