VB中如何获取TextBox内容并作为摄像头拍摄图片的文件名？

你已经成功从剪贴板捕获并显示了摄像头的静态照片，要实现用TextBox1.Text自动作为保存文件名的需求，只需要在SaveFileDialog的逻辑里加一行核心代码就行。下面是整合后的完整代码，我会标注关键修改点：

Dim data As IDataObject = Clipboard.GetDataObject()
Dim bmap As Image = Nothing

If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
    bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
    picCapture.Image = bmap
    picCapture.SizeMode = PictureBoxSizeMode.StretchImage

    ' --- 新增的保存逻辑，核心在这里 ---
    Using saveDialog As New SaveFileDialog()
        ' 自动把TextBox1的内容设为默认文件名
        saveDialog.FileName = TextBox1.Text
        ' 设置图片格式过滤器，引导用户选择合适的格式
        saveDialog.Filter = "PNG图片 (*.png)|*.png|JPEG图片 (*.jpg)|*.jpg|BMP图片 (*.bmp)|*.bmp"
        ' 设置默认扩展名，避免文件名无后缀的问题
        saveDialog.DefaultExt = "png"

        ' 如果用户确认保存操作
        If saveDialog.ShowDialog() = DialogResult.OK Then
            ' 把捕获到的图片保存到指定路径
            bmap.Save(saveDialog.FileName)
            MessageBox.Show("图片保存成功！")
        End If
    End Using
End If

关键细节说明 #

• saveDialog.FileName = TextBox1.Text：这就是实现自动文件名的核心，直接将文本框内容赋值给对话框的文件名属性。如果文本框里的内容已经带扩展名（比如my_photo.png），对话框会自动识别；如果没有，会自动加上你设置的DefaultExt后缀。
• 用Using语句包裹SaveFileDialog：确保控件使用后自动释放资源，避免内存泄漏。
• 可选的空值判断：可以在打开对话框前加个校验，防止用户没输入文件名就保存：

  If String.IsNullOrWhiteSpace(TextBox1.Text) Then
      MessageBox.Show("请先输入文件名哦！")
      Return
  End If
  

  把这段代码放在创建SaveFileDialog之前即可。

这样修改后，每次捕获图片弹出保存对话框时，就会自动把TextBox1里的内容作为默认文件名，完全符合你的需求~

内容的提问来源于stack exchange，提问作者Katipunero