PDA

View Full Version : سوال: استفاده از قابلیت Aero Glass ویندوز



Hashemvp
دوشنبه 02 بهمن 1391, 15:59 عصر
سلام حتما میدونید ما میتونیم از قابلیت aero ویندوز یا همون شیشه ای شدن استفاده کنیم
حالا دو تا سوال پیش میاد وقتی از این قابلیت استفاده میکنیم هر object ای که روی فرممون هست یه جورای تغییر پیدا میکنه مثلا یه lable با forecolor سیاه هم شیشه ای مانند میشه و خب دیده نمیشه برای اینکه منظورمو خوب برسونم یه پروژه ی ساده باهاش میزارم یه نگاه کنید

meys34
دوشنبه 02 بهمن 1391, 16:09 عصر
مشکل اینه که ما هرچی میسازیم این شکلی میشه متاسفانه...

http://www.codeproject.com/KB/vista/AeroGlassLegacyWindowsApp/autoaerougly.png

اینجا هم بود ولی به نتیجه نرسید...
http://barnamenevis.org/showthread.php?314113-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%D9%82%D8%A7%D8%A8%D9%84%DB%8C%D8%AA-Aero-%D8%AF%D8%B1-vb6&p=1379203&viewfull=1#post1379203

گویا مستر جان کدشو نوشتند ولی ...

Mr'Jamshidy
دوشنبه 02 بهمن 1391, 16:46 عصر
مشکل اینه که ما هرچی میسازیم این شکلی میشه متاسفانه...

http://www.codeproject.com/KB/vista/AeroGlassLegacyWindowsApp/autoaerougly.png

اینجا هم بود ولی به نتیجه نرسید...
http://barnamenevis.org/showthread.php?314113-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%D9%82%D8%A7%D8%A8%D9%84%DB%8C%D8%AA-Aero-%D8%AF%D8%B1-vb6&p=1379203&viewfull=1#post1379203

گویا مستر جان کدشو نوشتند ولی ...

ولی چی؟ ها؟ بگو دیگه! میخواستی حرف بد بزنی؟ ای بی ادب

این هم از این

98800

meys34
دوشنبه 02 بهمن 1391, 17:33 عصر
ولی چی؟ ها؟ بگو دیگه! میخواستی حرف بد بزنی؟ ای بی ادب


می خواستم... ولی نزدم که...



البته دمت گرم از وقتی وین 7 اومد تا حالا تو کف این glass بودم.. که دیگه تو وین 8 برداشته شد... واقعا که حیف شد...

هرچند هنوز هم جای کار داره تا مثل شکل زیر بشه ولی خیلی خوبه...

به checkBox دقت کنید...
http://www.codeproject.com/KB/vista/AeroGlassLegacyWindowsApp/mixed.png

راستی اینم بگم:
آخه به این هم میگن سورس... حتما باید میگفتم اونیو که نگفتم تا سورس میزاشتی...

Private Sub Command1_Click()
W_DWM.AeroActive True
End Sub

Private Sub Command2_Click()
W_DWM.AeroActive False
End Sub

Private Sub Form_Load()
W_DWM.SetParent Me
End Sub

Private Sub W_DWM_GetError(wID As Long, eMSG As String)
MsgBox CStr(wID) & " - " & eMSG
End Sub


البته خود دانی... نمیخوای سورس prj_stWindowsDWM.ocx رو نگذاری خوب نگذار چرا میزنی...

Mr'Jamshidy
دوشنبه 02 بهمن 1391, 18:12 عصر
من کامپوننت گزاشتم تا کار شما راحت تر بشه اما خوب میدونم که واقعا سورس یگ چیز دیگش

من خودمم سورس رو ترجیه میدم اما بیاید اینم سورس

در ضمن رنگ زمینه هر چیزی vbCyan بشه شیشه ای میشه (البته زمانی که این خاصیت فعاله

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

من OCX کردم که در هر فرمی که خواستید یک دونه بزارید تا مشکلی تو ران تایم پیش نیاد

باز بعدا نگید بی معرفت بودم ها

در ضمن این مورد قبلا بحث شده بود و به نتیجه هم رسیده بود، خودم تاپیک زده بودم ولی حال جستجو ندارم