vb 6.0 要如何以日期時間為檔名存檔 ?

Question

我的程式中(vb 6.0)有一個 picturebox
我想把 picturebox 中的圖 , 以日期時間存檔(我要存成 jpg 檔)
請各位前輩幫幫忙

Answer 1

'如果您的VB是企業版的話,請先引用Kodak Image Control元件(別的版本找找看ImgEdit.OCX,不知道有沒有XD);表單置一個PictureBox,CommandButton,ImgEdit

Private Sub Command1_Click()
'刪除暫存圖片
If Dir("C:\Temp.bmp") <> "" Then Kill "C:\Temp.bmp"
'將PictureBox的圖先暫存
SavePicture Picture1.Picture, "C:\Temp.bmp"
'將圖先暫存的圖片載入Kodak Image Control
ImgEdit1.Image = "C:\Temp.bmp"
ImgEdit1.Display
'存成以日期為檔名的jpg檔
ImgEdit1.SaveAs "C:\" & Replace(Replace(Now, "/", "_"), ":", "_") & ".jpg", wiFileTypeJPG, , 6
'刪除暫存圖片
If Dir("C:\Temp.bmp") <> "" Then Kill "C:\Temp.bmp"
End Sub

Private Sub Form_Load()
'將ImgEdit1的Visible設成False
ImgEdit1.Visible = False
'圖片載入PictureBox(C:\test.bmp)
Picture1.AutoSize = True
Picture1.Picture = LoadPicture("C:\test.bmp")
End Sub
'其實圖片就可直接Show在ImgEdit上,可以不用到PictureBox
'ImgEdit1.Image = "C:\test.bmp"
'ImgEdit1.Display
'ImgEdit的用法請直接上Google大神找Orz