شیشه ای کردن عکس

[butterfly8528]

سلام به دوستان و اساتید گل

من میخوام عکسی که در picture1 قرار داره رو به صورت شفاف ( شیشه ای ) در بیارم .

یعنی هر چیزی که پشت عکس قرار گرفته مشخص باشه .:متفکر:

من این کار رو در مورد فورم به چند روش بلدم انجام بدم ولی در مورد عکس هر چی باهاش ور رفتم نشد که نشد !

لطفا هرکی میتونه راهنماییم کنه :چشمک:

با تشکر

[AMIBCT]

داخل شیء Picture نمی‌تونید تصویر شفاف قرار بدید

با استفاده از شیء (مجازی) Image می‌تونید از تصاویر شفاف استفاده کنید

اشیای خارجی دیگه‌ای هم هستن که فرمت‌های دیگه مثل png شفاف رو قبول می‌کنن
اگه همین‌جا جستجو کنید پیداشون می‌کنید

[butterfly8528]

AMIBCT عزیز خیلی ممنون اما انگار منظور من رو خوب نفهمیدید !


من میخوام عکسی که در picture1 قرار داره رو به صورت شفاف ( شیشه ای ) در بیارم .

یعنی هر چیزی که پشت عکس قرار گرفته مشخص باشه .

واضح تر بگم من میخوام این کار رو با کد های vb انجام بدم !!!!!!:متفکر:

نه این که یه عکسی که قبلا شفاف بوده رو وارد vb کنم .

کمممممممممممممممممممممممم ممممممممممممممممممممممممم ممک :گریه:

[butterfly8528]

یعنی تو فروم به این بزرگی با این همه استاد ، کسی نیست جواب این سوال ساده من رو

بده :متفکر:

بچه ها هرکی بلده دریق نکنه اورژانسیه اورژانسیه :گریه:

[aidin-joon]

سلام دوست گرامي
اميدوارم كه منظور شما رو درست متوجه شده باشم. من يك ocx براتون ميزارم كه در اين زمينه واقعا عاليه.
شما براي شيشه اي كرن عكستون ميتونيد خاصيت opacity اين ocx رو تغيير بديد.
اينم لينك دانلود : http://upload.iranblog.com/2/1203324851.rar (http://upload.iranblog.com/2/1203324851.rar)
اميدوارم به دردتون بخوره.

[butterfly8528]

aidin-joon عزیز خیلی ممنون ازلطفت :تشویق:

بلاخره یکی جواب ما رو داد :عصبانی++:

اما دوست عزیز . . .


واضح تر بگم من میخوام این کار رو با کد های vb انجام بدم !!!!!!:متفکر:


کسی نبووووووووووووووووووووووو وووووووووووود کمک کنه :ناراحت:

[MBG73]

واضح تر بگم من میخوام این کار رو با کد های vb انجام بدم !!!!!!:متفکر:

دوست عزیز امیدوارم این کد به دردتون بخوره .

ابتدا باید یک picturebox و یک hscrollbar بسازید .


Private Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC 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 widthSrc As Long, ByVal heightSrc As Long, ByVal dreamAKA As Long) As Boolean
Dim nBlend As Long
Private Sub Form_Load()
Me.AutoRedraw = True
HScroll1.Max = 255
With Picture1
.ScaleMode = 3
.Visible = False
.AutoRedraw = True
.AutoSize = True
End With
End Sub
Private Sub HScroll1_Scroll()
nBlend = vbBlue - CLng(HScroll1.Value) * (vbYellow + 1)
Me.Cls
AlphaBlend Me.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, nBlend
End Sub