مشخص کردن مکان ذخیره عکس گرفته شده از فرم

[Hassan2500]

سلام

چه کدی باید نوشته بشه که مکان ذخیره عکس رو در کد زیر که مربوط به یکی از دوستان است خودم مشخص کنم و همچنین میخوام فرمت عکس jpg باشه اگه میشه برام ویرایشش کنید طبق این چیزائی که میخوام

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _

ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)



Private Const KEYEVENTF_KEYUP = &H2



Function GetScreenBitmap(Optional ActiveWindow As Boolean) As Picture



Dim pic As StdPicture

Set pic = Clipboard.GetData(vbCFBitmap)

' Alt-Print Screen captures the active window only

If ActiveWindow Then

' Press the Alt key

keybd_event vbKeyMenu, 0, 0, 0

End If

' Press the Print Screen key

keybd_event vbKeySnapshot, 0, 0, 0

DoEvents

' Release the Print Screen key

keybd_event vbKeySnapshot, 0, KEYEVENTF_KEYUP, 0

If ActiveWindow Then

' Release the Alt key

keybd_event vbKeyMenu, 0, KEYEVENTF_KEYUP, 0

End If

DoEvents

' return the bitmap now in the clipboard

Set GetScreenBitmap = Clipboard.GetData(vbCFBitmap)

' restore the original contents of the clipboard

Clipboard.SetData pic, vbCFBitmap

End Function



Private Sub Command1_Click()

SavePicture GetScreenBitmap(True), "c:\a.bmp"

End Sub

[the king]

سلام

چه کدی باید نوشته بشه که مکان ذخیره عکس رو در کد زیر که مربوط به یکی از دوستان است خودم مشخص کنم و همچنین میخوام فرمت عکس jpg باشه اگه میشه برام ویرایشش کنید طبق این چیزائی که میخوام

اینجا اش :

SavePicture GetScreenBitmap(True), "c:\a.bmp"

برای خروجی گرفتن JPEG خود ویژوال بیسیک 6 همچین قابلیتی نداره، یا باید از +GDI استفاده کنید یا کمپوننت های پردازش تصویر مثل Intel JPEG Library
یا فایل های جانبی تبدیل تصویر مثل bmp2jpg

مثال پیوستی رو ببینید :

Screenshot JPEG.zip

[Hassan2500]

من میخوام که وقتی کامند1 رو زدم مکان ذخیره عکس رو خودم مشخص کنم و این سورسی که گذاشتید اون چیزی نیست که من میخوام

[m.4.r.m]

Commondialog.ShowOpen

SavePicture GetScreenBitmap(True), CommonDialog.Fielname

کامپوننت Microsoft Common Dialog Control رو هم اضافه می کنی .

[Hassan2500]

جناب m.4.r.m از کد شما استفاده کردم اما ارور میده حالا از دوستان میخوام این سورس رو برام درست کنن خودم هر کاری کردم نتونستم و مشکلاتش اینه

1- هنگام اجرای برنامه ارور میده
2- میخوام بجای فرمت Bitmap فرمت JPG گذاشته بشه
3- وقتی صفحه مشخص کردن مکان ذخیره عکس باز میشه مکان رو خودم مشخص کنم کجای کامپیوتر ذخیره بشه بعد با زدن دکمه Save همون جا ذخیره بشه

Zakhireh Kardane Aks.rar

[setroyd]

درست شد همونه که میخوای ؟

[Hassan2500]

سورس پست 6 دوتا مشکل داره که اگه برطرفشون کنید ممنون میشم

1- وقتی فرم Save As روی برنامه قرار میگیره و دکمه Save رو میزنیم از فرم Save As هم عکس میندازه میخوام فقط از برنامه اصلی عکس بندازه

Form 1.jpg

2- وقتی ضربدر فرم Save As رو میزنیم یه ارور ظاهر میشه میخوام این ارور رو هم برطرف کنید

Run-time error '53':
File not found

[setroyd]

برای error شما بالا تو قسمت general بنویس on error resume next این از error و اینکه برنامه از فرم شما میندازه مشکلی نیست !

[m.4.r.m]

Commondialog.ShowSave

SavePicture GetScreenBitmap(True), CommonDialog.Fielname

کامپوننت Microsoft Common Dialog Control رو هم اضافه می کنی .

دستور اصلاح شد حتما اجرا خواهد شد . تست کن

[Hassan2500]

برنامه اجرا میشه و عکس میگیره اما من نمیخوام که عکس از Save As هم گرفته بشه فقط میخوام از برنامه ام عکس گرفته بشه تصویر پست 7 رو نگاه کنید میخوام اینطوری نباشه

[setroyd]

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

[Hassan2500]

از دوستان کسی میتونه یه سورسی مثل سورس پست 6 قرار بده که فقط از خود فرم عکس بندازه و محل ذخیره عکس رو هم خودم مشخص کنم

[محسن واژدی]

سلام علیکم
کد های زیر را جایگزین روال Command1_Click کنید:

 Private Sub Command1_Click()

    CommonDialog1.FileName = ""

    CommonDialog1.ShowSave

    DoEvents

    If CommonDialog1.FileName > "" Then

        SavePicture GetScreenBitmap(True), CommonDialog1.FileName

    End If

End Sub

موفق باشید