想請問在vb中如何產生一個圖檔(.jpg)，在畫面上畫圖後，再儲存檔案。我的程式碼如下，這樣的作法是可以，但產生出的檔案都只能在我的程式中讀出，而不能由小畫家開啟。到底該做什麼設定才好呢?謝謝回答囉....
FileNum = FreeFile
Open "c:\e1.jpg" For Binary As #FileNum
OLE1.FileNumber = FileNum
OLE1.SaveToFile (FileNum)
Close #FileNum
MsgBox ("存檔成功!")
Exit Sub
FileNum = FreeFile
Open "c:\e1.jpg" For Binary As #FileNum
OLE1.FileNumber = FileNum
OLE1.SaveToFile (FileNum)
Close #FileNum
MsgBox ("存檔成功!")
Exit Sub
文章標籤
全站熱搜
如果使用了SavePicture指令可以嗎
OLE物件並沒有SavePicture的指令阿???還是我不知該怎麼應用呢?麻煩指點囉!謝謝!
例如使用了Picture1的物件,在物件上繪圖形欲存檔,則使用的方式為 SavePicture Picture1.Image, "C:\TTT.JPG"
我原本的需求不是在vb端寫小畫家，而是使用ole物件去呼叫小畫家。繪圖後，希望可以存成jpg.目前作到的是能存檔，且使用自己的程式存取ok.使用一般繪圖軟體，ex.小畫家，卻認不得此圖格式，可見我的檔案格式是不對的。還是各位前輩有更好的作法，不透過ole，可以去呼叫小畫家，作繪圖動作後，由vb端來控制存圖檔格式(jpg).謝謝!
ole 的 SaveToFile 是把你的 ole 二進位資訊存到檔案內，包含屬性。 跟 jpg 沒關。