شیشه ای کردن فرم

[REZADG]

دوستان من در باره ی شیشه ای کردن فرم توی اینترنت میگشتم که این رو پیدا کردم
http://www.danielmoth.com/Blog/vb6glass2.jpg

نوشتمش اما اون دی ال ال
dwmapi.dll
رو خواست منم گزاشتم کنارش اما حالا بازم ایراد میده میگه فایل رو پیدا نمیکنم رفتم رو سوین گفت اون خط
DwmExtendFrameClientArea
موجود نیست دیگه چیزی به عقلم نمیرسه اگر لطف کنید و راهنمایی کنید ممنون میشم

[lordarma]

dll رو ثبت کردین؟!:متفکر:

[earse+erse]

دوستان من در باره ی شیشه ای کردن فرم توی اینترنت میگشتم که این رو پیدا کردم
http://www.danielmoth.com/Blog/vb6glass2.jpg

نوشتمش اما اون دی ال ال
dwmapi.dll
رو خواست منم گزاشتم کنارش اما حالا بازم ایراد میده میگه فایل رو پیدا نمیکنم رفتم رو سوین گفت اون خط
DwmExtendFrameClientArea
موجود نیست دیگه چیزی به عقلم نمیرسه اگر لطف کنید و راهنمایی کنید ممنون میشم

لینک دانلودش رو واسه ما هم می زاری؟

آیا این فایل فقط تو ویندوز7 و ویستا کار می کنه یا رو XP هم جواب میده؟

برای ثبت دی ال ال
project/refrences

[REZADG]

اگر لینک دانلود دی ال ال زمیمه کردم و اینکه بله ثبتش کردم اما کار نکرد
و در ضمن نمیدونم تو کجا کار میکنه چون اصلا نتونستم بازش کنم و این که سورس کد هاش همون چهار خط هست

[REZADG]

لطفا اگر کسی نظری داره دریغ نکنید

[aryasoft2872]

توی ایکس پی که ثبت نشد....

[butterfly8528]

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

شیشه ای کردن یک فرم که دیگه dll نمی خواد !


Option Explicit

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Function TranslucentForm(frm As Form, TranslucenceLevel As Byte) As Boolean
SetWindowLong frm.hwnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes frm.hwnd, 0, TranslucenceLevel, LWA_ALPHA
TranslucentForm = Err.LastDllError = 0
End Function


Private Sub Form_Load()
TranslucentForm Me, 200
End Sub



موفق باشید .

[REZADG]

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

شیشه ای کردن یک فرم که دیگه dll نمی خواد !


Option Explicit

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Function TranslucentForm(frm As Form, TranslucenceLevel As Byte) As Boolean
SetWindowLong frm.hwnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes frm.hwnd, 0, TranslucenceLevel, LWA_ALPHA
TranslucentForm = Err.LastDllError = 0
End Function


Private Sub Form_Load()
TranslucentForm Me, 200
End Sub

موفق باشید .
ممنون منم این کد هارو یه زمانی رو سایت گزاشته بودم اگر بگردی پیدا میکنی اما این فرم رو شیشه ای نمیکنه رنگش رو با تمام ابزارش کم میکنه درسته ، اونی که تو تصویر میبینید فقط فرم رو مانند شیشه میکنه

[earse+erse]

من و ما دنبال Aero ویستا یا 7 هستیم تو اکس پی

[REZADG]

یک اکتیو ایکس هست که این کار رو واسمون میکنه
http://barnamenevis.org/forum/attachment.php?attachmentid=44100&stc=1&d=1266166050


دانلود (http://rapidshare.com/files/350570310/vista_suite_ocx.rar.html)

[earse+erse]

سلام رضا جون

این اکتیواکس تو MsgBox ایراد داره و ارور می ده!

[behrouz_n]

یک اکتیو ایکس هست که این کار رو واسمون میکنه
http://barnamenevis.org/forum/attachment.php?attachmentid=44100&stc=1&d=1266166050


دانلود (http://rapidshare.com/files/350570310/vista_suite_ocx.rar.html)

فایل دانلود خرابه. مثل اینکه این فایل از روی راپیدشر پاک شده. لطفا دوباره آپلود کنید.

[ameri110]

این مثال رو ببینید

[www.pc3enter.tk]

ببین این بدردت می خوره یا نه
اگر خوب بود تشکر یادت نرود
(http://www.barnamenevis.org/forum/attachment.php?attachmentid=52550&stc=1&d=1278613414)

[mohmir2]

یک اکتیو ایکس هست که این کار رو واسمون میکنه
http://barnamenevis.org/forum/attachment.php?attachmentid=44100&stc=1&d=1266166050


دانلود (http://rapidshare.com/files/350570310/vista_suite_ocx.rar.html)

فایل دانلود خراب شده میشه یک جای دیگر آپلود کنید

[R2du-soft]

دوستان از لینک زیر میتونید فایل Vista Suite رو دانلود کنید.


http://s3.picofile.com/file/7700825371/Vista_Suite_www_sourcevb6_blogfa_com.rar.html

چطور میشه از این فایل تو برنامه استفاده کرد؟! و فرم رو شیشه ای کرد؟!