save ,save as, open

[Pokahantes]

یه برنامه پینت نوشتم میخوام امکانات < open,save ,save as > رو داشته باشه و واقعا فایلها رو تو کامپیوتر سیو کنه یا عکسها رو از تو کامپیوتر رو برنامه نشون بده.
این کدو نوشتم منتهی فقط کادر سیو و نشون میده.




() Private Sub Command3_Click

CommonDialog4.Filter = "jpg files|*.jpg| bmp files|*.bmp

CommonDialog4.FilterIndex = 2

CommonDialog4.ShowSave

End Sub

[Danial_Yousefi]

دوست عزیز اینا فقط همون کار رو می کنه و در آخر باید این خط هم اظافه کنی

savepicture picture1.image,commanddialog4.filenamei

البته این کد خیلی بهتره

Private Sub Command1_Click()

Dim bm As Image
cd1.CancelError = True

cd1.Filter = "Bitmap |*.bmp"

On Error GoTo 1

cd1.ShowSave
'taiin resolution aks
Picture2.Width = Val(Text1.Text) + 4
Picture2.Height = Val(Text2.Text) + 4
Picture2.PaintPicture Form1.picdraw.Image, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight
'save aks
'If UCase(Right(cd1.FileName, 4)) <> ".BMP" Then cd1.FileName = cd1.FileName & ".BMP"

SavePicture Picture2.Image, cd1.FileName

MsgBox "Picture Saved successfully in " + vbCrLf + cd1.FileName, vbApplicationModal + vbInformation, "Saving Picture"
Exit Sub
1 MsgBox "Error in Saving File", vbCritical + vbApplicationModal, "Saving Picture"
End Sub

[Pokahantes]

این دو تا کدی که شما زحمتشو کشیدین ارور میده سیو نمیکنه

[ابوذر محمودی]

سلام دوست عزیز
اینم یه قطعه برنامه برای شما.
اگه برنامتون کامله سورسش رو برای استفاده قرار بدین.

[Pokahantes]

با این روشها کار نکرد. لطف کنید یه نگاه بندازید .

[r_oscar2007]

شما باید خاصیت AutoRedraw را با True مقدار دهی کنی بعد از کد زیر استفاده کنی
CommonDialog4.Filter = "bmp files|*.bmp|"
CommonDialog4.ShowSave
SavePicture frmpaint.Image, CommonDialog4.FileName

[Pokahantes]

برای open وsave as و print چه کدی بنویسم؟

[r_oscar2007]

برای open

cd1.showopen
frmpaint.picture = loadpicture(cd1.filename)

[Danial_Yousefi]

برای پرینت هم از این کد

cd1.showprinter
printer.paintpicture picture1.image,0,0,picture1.scalewidth,picture1.sc aleheight
printer.enddoc

با تغییر دادن پارامتر های paintpicture نوع مورد علاقه تو درست کن