جهت مطالعه و دسترسی به سورس ها به ادامه مطلب مراجعه نمائید
افکت روی عکس
خب ببینم امروز چی داریم یه برنامه برای ایجاد افکت روی عکس یعنی وقتی یه عکس داره تبدیل می شه به عکس دومی به شکل
زیبایی محو بشه.خب برای هر چیز قشنگی باید زحمت کشید
پس با جدیت شروع کنید تو کادر عکسPictureبه فرم اضافه کنید سپس
خاصیتAutoReDrawعکس اولیه روTrueودومیه رو Falseکنید تا تصویر بعد از طراحی باقی بمونه
ویک دکمه که باید بازدن اون افکت اجرا بشه.یه ماژول اضافه کنید و کد زیر رو براش بنویسید
دو تا عکس به سلیقه خودتون داخل کادر عکس ها بندازید سعی کنید هم اندازه باشند
در خط اول کد های فرم کد های زیر رو بنویسید
Option Explicit End With End With With BrushBitmapInfo.bmiColors(1) ‘ Initialize brush bitmap pixel data to all white. For Counter = 0 To 7 For Counter = 1 To DissolveStep * (64 / NumberOfSteps) Next Counter ‘ Convert the DIB into a DDB and create the pattern brush. hCompBitmap = CreateDIBitmap(Disolve1.hDC, BrushBitmapInfo.bmiHeader, CBM_INIT, PixelData, BrushBitmapInfo, DIB_RGB_COLORS) CreateDissolveBrush = CreatePatternBrush(hCompBitmap) Dummy = DeleteObject(hCompBitmap) End Function’———————————————— Private Sub Picture2_Paint() Private Sub CreatePixelSetSequence() |
حالا یه تایمر به فرم اضافه کنید و خاصیتIntervalآن را به۵۶وEnabledآن را به Falseتغییر دهید
وبه ترتیب برای دکمه ها کد های زیر را بنویسید
رویداد کلیک دکمه
Command1.Enabled = False
Timer1.Enabled = True
رویداد لواد فرم
CreatePixelSetSequence |
رویداد کلیک عکس دومی
If DissolveStep < NumberOfSteps Then |
روداد تایمر کنترل تایمر
If DissolveStep < NumberOfSteps Then |