منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
::: Disable a windows themes for controls ::: شئ عجيب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : ::: Disable a windows themes for controls ::: شئ عجيب (/showthread.php?tid=6571)

::: Disable a windows themes for controls ::: شئ عجيب - RaggiTech - 20-10-12

كاتب الموضوع : BADRMEDIA



عندما تصمم برنامج على ويندوز 98 وتأخذ الأدوات شكل أدوات ويندوز 98 ربنا يستر

لو شغلنا هذا البرنامج على ويندوز فيستا ستأخذ الأدوات شكل ويندوز فيستا شئ جميل

لكن ماذا لو هذا الجمال لا يعجبك وكنت تريد ارجاع شكل الأداة للشكل

هل ممكن تحتاج ذلك

نعم ربما تحتاج ذلك لو أردت تغيير شكل الأداة لشكل خاص بك وتقوم بعملية override لها


ببساطة أضف فضاء الاسم
Name Space


كود :
[color=#000000][COLOR=#0000bb]Imports System[/color][color=#007700].[/color][color=#0000bb]Runtime[/color][color=#007700].[/color][COLOR=#0000bb]InteropServices  
[/COLOR][/COLOR]


وضع هذه الدالة في مشروعك

vb.net


كود :
[color=#000000][COLOR=#0000bb][/color][color=#007700]<[/color][color=#0000bb]DllImport[/color][color=#007700]([/color][color=#dd0000]"uxtheme.dll"[/color][color=#007700], [/color][color=#0000bb]CharSet[/color][color=#007700]:=[/color][color=#0000bb]CharSet[/color][color=#007700].[/color][color=#0000bb]Unicode[/color][color=#007700], [/color][color=#0000bb]ExactSpelling[/color][color=#007700]:=[/color][color=#0000bb]True[/color][color=#007700])> Private [/color][color=#0000bb]Shared [/color][color=#007700]Function [/color][color=#0000bb]SetWindowTheme[/color][color=#007700]([/color][color=#0000bb]ByVal hWnd [/color][color=#007700]As [/color][color=#0000bb]IntPtr[/color][color=#007700], [/color][color=#0000bb]ByVal appName [/color][color=#007700]As [/color][color=#0000bb]String[/color][color=#007700], [/color][color=#0000bb]ByVal partList [/color][color=#007700]As [/color][color=#0000bb]String[/color][color=#007700]) As [/color][COLOR=#0000bb]Integer

    End [/COLOR][COLOR=#007700]Function  
[/COLOR][color=#0000bb][/color][/COLOR]
C#

كود :
[color=#000000][COLOR=#0000bb] [/color][color=#007700][[/color][color=#0000bb]DllImport[/color][color=#007700]([/color][color=#dd0000]"uxtheme.dll"[/color][color=#007700], [/color][color=#0000bb]CharSet [/color][color=#007700]= [/color][color=#0000bb]CharSet[/color][color=#007700].[/color][color=#0000bb]Unicode[/color][color=#007700], [/color][color=#0000bb]ExactSpelling [/color][color=#007700]= [/color][color=#0000bb]true[/color][COLOR=#007700])]

        private static [/COLOR][color=#0000bb]extern int SetWindowTheme[/color][color=#007700]([/color][color=#0000bb]IntPtr hWnd[/color][color=#007700], [/color][color=#0000bb]string appName[/color][color=#007700], [/color][color=#0000bb]string partList[/color][COLOR=#007700]);  
[/COLOR][color=#0000bb][/color][/COLOR]


ومرر لها أي أداة تريد عقابها بسحب الجمال عنها

مثال أداة MonthCalendar

vb.net

كود :
[color=#000000][COLOR=#0000bb]  SetWindowTheme[/color][color=#007700]([/color][color=#0000bb]MonthCalendar1[/color][color=#007700].[/color][color=#0000bb]Handle[/color][color=#007700], [/color][color=#0000bb]String[/color][color=#007700].Empty, [/color][color=#0000bb]String[/color][COLOR=#007700].Empty)  
[/COLOR][color=#0000bb][/color][/COLOR]

c#


كود :
[color=#000000][COLOR=#0000bb]SetWindowTheme[/color][color=#007700]([/color][color=#0000bb]monthCalendar1[/color][color=#007700].[/color][color=#0000bb]Handle[/color][color=#007700], [/color][color=#0000bb]string[/color][color=#007700].Empty, [/color][color=#0000bb]string[/color][COLOR=#007700].Empty);  
[/COLOR][color=#0000bb][/color][/COLOR]


والله ولي التوفيق