flip کردن عکس در ویژوال بیسیک

[SHAZAM]

سلام
کدی رو میخوام تو ویژوال بیسیک که وقتی یه کاربر تو picture box عکس بذاره
و با یه دکمه اونو flip کنه ینی عکس قرینه شه
ممنون میشم اگه کمکم کنین واسه مدرسه لازمه

[m.4.r.m]

ماژول :

Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020

کد :



Private Sub Command1_Click()
Picture1.ScaleMode = 3 ' pixels
'flip horizontal
Call StretchBlt(Picture1.hdc, Picture1.ScaleWidth, 0, Picture1.ScaleWidth * -1, Picture1.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, SRCCOPY)
'flip vertically
Call StretchBlt(Picture1.hdc, 0, Picture1.ScaleHeight, Picture1.ScaleWidth, Picture1.ScaleHeight * -1, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, SRCCOPY)
End Sub

[SHAZAM]

ماژول :

Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020

کد :



Private Sub Command1_Click()
Picture1.ScaleMode = 3 ' pixels
'flip horizontal
Call StretchBlt(Picture1.hdc, Picture1.ScaleWidth, 0, Picture1.ScaleWidth * -1, Picture1.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, SRCCOPY)
'flip vertically
Call StretchBlt(Picture1.hdc, 0, Picture1.ScaleHeight, Picture1.ScaleWidth, Picture1.ScaleHeight * -1, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, SRCCOPY)
End Sub


اقا این که اشتباهه ارور میده....

اگه میشه یکی دیگه بدین

[as987498749874]

س اینو ببین
pic 1: تصویر مورد نظر
حاصل در pic2 بعد زدن کانورت

[m.4.r.m]

اقا این که اشتباهه ارور میده....

اگه میشه یکی دیگه بدین

شما بلد نیستی استفاده کنی چرا الکی میگی اشتباهه ؟ من این کد رو تست کردم بهتون دادم هیچ مشکلی نداره .

[SHAZAM]

شما بلد نیستی استفاده کنی چرا الکی میگی اشتباهه ؟ من این کد رو تست کردم بهتون دادم هیچ مشکلی نداره .

ولی ارور کامپایل میده