vb.net PanelをJpeg保存する時、Labelに表示された名前で保存したい

Question

Visiual Studio2017でvb.netを用いてWindowsアプリケーションを開発中です。

Panel内に張ったLabelにデータベースから引っ張ってきた情報を表示させています。
情報が表示された状態でButtonを押すと、PanelをJpegで保存するコードを書いています。
"C:\test\111.Jpeg"のように保存させるまではできたのですが、名前をlabelに表示させたデータベースの情報に指定したいです。

Private Sub btnSave1_Click(sender As Object, e As EventArgs) Handles btnSave.Click
'Panel1の外観を描画するBitmapの作成
Dim bmp As New Bitmap(pnlBlack.Width, pnlBlack.Height)
'キャプチャする
pnlBlack.DrawToBitmap(bmp, New Rectangle(0, 0, pnlBlack.Width, pnlBlack.Height))
'ファイルに保存する
bmp.Save("C:\test\111.Jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
'後始末
bmp.Dispose()
End Sub

これだと上記の挙動しかできないので、

    'Panel1の外観を描画するBitmapの作成
    Dim bmp As New Bitmap(pnlBlack.Width, pnlBlack.Height)
    'キャプチャする
    pnlBlack.DrawToBitmap(bmp, New Rectangle(0, 0, pnlBlack.Width, pnlBlack.Height))
    Dim strImageFileName As String
    'ファイル名を指定しています
    strImageFileName= lblSaveName.Text
    'ファイルに保存する
    bmp.Save("C:\test\strImageFileName", System.Drawing.Imaging.ImageFormat.Jpeg)

'後始末
bmp.Dispose()
End Sub

なども試してみましたが
未使用のローカル変数: 'strImageFileName'。 の警告や
型 'String' の値を 'Bitmap' に変換できません。などのエラーが出ます。

lblSaveNameが保存したい名前で、このlabelに表示されているtextデータを保存名にしたいです。

お力添えいただけませんでしょうか？
初心者の質問で申し訳ありません。
よろしくお願いいたします。

Answer 1

提示されたコードを貼り付けても

未使用のローカル変数: 'strImageFileName'。 の警告や
型 'String' の値を 'Bitmap' に変換できません。などのエラーが出ます。

こんなエラーは出ません。

以下のコードを試してみてください。

Using bmp As New Bitmap(pnlBlack.Width, pnlBlack.Height)
    pnlBlack.DrawToBitmap(bmp, New Rectangle(0, 0, pnlBlack.Width, pnlBlack.Height))
    Dim strImageFileName As String = System.IO.Path.Combine("C:\test", lblSaveName.Text)
    bmp.Save(strImageFileName, System.Drawing.Imaging.ImageFormat.Jpeg)
End Using

Comments

[input]

ご回答いただきありがとうございます。

Dim bmp As New Bitmap(pnlBlack.Width, pnlBlack.Height)
pnlBlack.DrawToBitmap(bmp, New Rectangle(0, 0, pnlBlack.Width, pnlBlack.Height))
Dim strImageFileName As String = System.IO.Path.Combine("C:\test", lblSaveName.Text)
Dim Jpeg As String = ".Jpeg"
Dim ImageFileName As String = strImageFileName & Jpeg
bmp.Save(ImageFileName, System.Drawing.Imaging.ImageFormat.Jpeg)

'後始末
bmp.Dispose()

拡張子として.Jpegを付け加えないとテキストデータとして保存されてしまったので
上記のように変更しました。

本当に助かりました。感謝いたします。