استفاده از قابلیت Aero در vb6

[M.T.P]

سلام
دوستان ارجمند:
در این تاپیک به Aero و نحوه استفاده از آن در برنامه ها و فرم های ویژوال بیسیک 6 پرداخته و سعی داریم با استفاده از کتابخانه dwmapi.dll این قابلیت رو در برنامه ها و پروژه هامون پیاده کنیم.



جهت پیشبرد این پروژه و چگونگی استفاده از کتابخانه مذکور ، از دوستان و مدیران گرامی تقاضا میشود همکاری نمایند.

جهت تست و اجرای این پروژه باید از ویندوز ویستا یا 7 استفاده شود.
با تشکر.

[M.T.P]

تابعی برای تشخیص فعال و یا غیر فعال بودن Aero


Private Declare Function DwmIsCompositionEnabled Lib "dwmapi.dll" (ByRef nEnabled As Long) As Long

Function IsAeroEnabled() As Boolean
Dim blnResult As Boolean
Dim IntRef As Long

Call DwmIsCompositionEnabled(IntRef)
If IntRef Then
blnResult = True
Else
blnResult = False
End If

IsAeroEnabled = blnResult

End Function

[meys34]

این رو هم میتونید بسازید؟
http://www.codeproject.com/KB/vista/AeroGlassLegacyWindowsApp/autoaero.png
http://www.codeproject.com/KB/vista/AeroGlassLegacyWindowsApp/autoaerougly.png

ما که هرچی میسازیم اینجوری میشه!!!!!
http://myup.ir/images/63668739450271462297.jpg

آدرس:
http://www.codeproject.com/KB/vista/AeroGlassLegacyWindowsApp.aspx

[Mr'Jamshidy]

مشکل شما از رنگ زمینه هست
مثلا شما داخل کد هاتون میزنید که رنگ مشکی رو Aero کن

بعد اونم هرچی رنگ مشکی باشه این مدلی میکنه

[meys34]

مشکل شما از رنگ زمینه هست
مثلا شما داخل کد هاتون میزنید که رنگ مشکی رو Aero کن

بعد اونم هرچی رنگ مشکی باشه این مدلی میکنه

by default رنگ مشکی شیشه ای میشه
اما بعد از اجرا مشکل اینجاست که بقه جاها هم حالت نیمه:متعجب: شیشه ای میگیرند....

*به فلش ها دقت کنید*

اگر دقت کنید در تصویر دوم چون پشت command1 مشکی بوده caption کامند قابل خواندن است(برعکس text1) و ربطی هم به اون shape مشکی که قرار دادم نداره

:قهقهه:قبل از عمل:
http://myup.ir/images/76931883575952372215.jpg

:قهقهه:بعد از عمل:
http://myup.ir/images/15506633581774576641.jpg