VB.NET：如何让保存对话框弹出时自动从文本框取文件名？

你的代码核心问题是弹出保存对话框的顺序错误——你先调用ShowDialog弹出窗口，之后才设置文件名，此时对话框已经显示，自然不会自动填充文本框内容。只需调整顺序，在弹出对话框前完成文件名赋值即可。

修改后的代码 #

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
    Dim data As IDataObject
    Dim bmap As Image

    ' 复制图像到剪贴板
    SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)

    ' 从剪贴板获取图像并转为位图
    data = Clipboard.GetDataObject()
    If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
        bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
        picCapture.Image = bmap
        PictureBox1.Image = picCapture.Image

        ' 先设置保存对话框的文件名（从TextBox1读取）
        If Not String.IsNullOrEmpty(TextBox1.Text) Then
            sfdImage.FileName = TextBox1.Text
        Else
            ' 文本框为空时设置默认文件名，避免空文件名报错
            sfdImage.FileName = "默认图像"
        End If

        ' 弹出保存对话框
        If sfdImage.ShowDialog = DialogResult.OK Then
            Dim savePath As String = sfdImage.FileName
            ' 自动补全未添加后缀的文件名
            If Not System.IO.Path.HasExtension(savePath) Then
                savePath &= ".jpg"
            End If

            ' 根据后缀选择对应格式保存
            Select Case System.IO.Path.GetExtension(savePath).ToLower()
                Case ".bmp"
                    bmap.Save(savePath, Imaging.ImageFormat.Bmp)
                Case ".jpg", ".jpeg"
                    bmap.Save(savePath, Imaging.ImageFormat.Jpeg)
                Case ".png"
                    bmap.Save(savePath, Imaging.ImageFormat.Png)
            End Select
        End If
    End If
End Sub

关键优化点 #

• 顺序调整：先将TextBox1.Text赋值给sfdImage.FileName，再调用ShowDialog，确保对话框弹出时自动填充目标文件名。
• 空值防护：增加文本框为空的判断，设置默认文件名，避免保存操作因空文件名报错。
• 后缀处理升级：用Path类的方法替代InStr，更严谨地识别和处理文件后缀，支持更多图像格式。

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