Как создать имя файла для изображения, которые были сохранены из буфера обмена? VisualBasic

Question

Я только начал изучать VB, и я хотел создать программу, которая сохраняет мой буфер обмена (ProntScreen). У меня все получилось, но я хочу сгенерировать имя файла для этих изображений, чтобы я мог взять их много в одну папку, не меняя исходный код.

Вот мой код:

    Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then
        Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject()
        If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then
            Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True)
            'To Save as Bitmap
            'oImgObj.Save("c:\Test.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
            'To Save as Jpeg
            oImgObj.Save("d:\Test\test.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
            'To Save as Gif
            'oImgObj.Save("c:\Test.gif", System.Drawing.Imaging.ImageFormat.Gif)
        End If
    End If
End Sub
End Class

Как вы можете видеть, изображение сохраняется в определенном месте, которое D:\Test\Test.jpegЯ хочу создать имя файла (test.jpeg). Может быть, текущее время будет круто, как 114512 или что-то в этом роде

Answer 1

Я не VB человек, я работаю на C#, но позвольте мне дать ему шанс. Объявить System.DateTime переменная и сохранить текущую дату и время в этом. Тогда объявите другой String переменная, давайте назовем это imagePath. В строковой переменной создайте путь, соединив путь к папке (d:\Test\", timestand, extention изображения (.jpeg). Наконец, используйте эту переменную imagePath в.Save methond для передачи пути и имени. Ниже приведен код для это, как я уже сказал, это мой первый раз, когда я даже пробую код VB. В коде могут быть ошибки, но логика остается той же, пожалуйста, измените код, если есть какие-либо ошибки.

Dim timeStamp As System.DateTime
timeStamp = Now;

Dim imagePath as String
imagePath = "d:\Test\" + timeStamp + ".jpeg";

oImgObj.Save(imagePath, System.Drawing.Imaging.ImageFormat.Jpeg)