vb.net - VB.NET での JPEG から PNG への変換 (保存された出力には拡張子がありません)

Question

これは私の画像を変換する際の私のコードです

Public Sub ConvertImage(ByVal Filename As String, _
      ByVal DesiredFormat As System.Drawing.Imaging.ImageFormat, _
      ByVal NewFilename As String)
        NewFilename = "ConvertedToPNG-" + NewFilename + "-" + Format(Date.Now, "MMMMddyyyyhhmmtt")
        Try
            Dim imgFile As System.Drawing.Image = _
              System.Drawing.Image.FromFile(Filename)
            imgFile.Save(txtPNGFileDestination.Text & "\" & NewFilename, DesiredFormat)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

正常に実行されましたが、保存された画像には PNG ファイル拡張子がないため、単なるファイルになっています。私は何か間違ったことをしていますか？

ご協力いただきありがとうございます

Answer 1

拡張子を NewFileName に追加するだけです。また、NewFileName "ByRef" を宣言する必要があります。

Public Sub ConvertImage(ByVal Filename As String, ByVal DesiredFormat As System.Drawing.Imaging.ImageFormat, ByRef NewFilename As String)
  NewFilename = "ConvertedToPNG-" + NewFilename + "-" + Format(Date.Now, "MMMMddyyyyhhmmtt") & "." & DesiredFormat.ToString