20-10-12, 12:12 PM
كاتب الموضوع : BADRMEDIA
عندما تصمم برنامج على ويندوز 98 وتأخذ الأدوات شكل أدوات ويندوز 98 ربنا يستر
لو شغلنا هذا البرنامج على ويندوز فيستا ستأخذ الأدوات شكل ويندوز فيستا شئ جميل
لكن ماذا لو هذا الجمال لا يعجبك وكنت تريد ارجاع شكل الأداة للشكل
هل ممكن تحتاج ذلك
نعم ربما تحتاج ذلك لو أردت تغيير شكل الأداة لشكل خاص بك وتقوم بعملية override لها
ببساطة أضف فضاء الاسم
Name Space
وضع هذه الدالة في مشروعك
vb.net
C#عندما تصمم برنامج على ويندوز 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]
كود :
[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]
والله ولي التوفيق