mr.yOoyOo الخميس أكتوبر 01, 2009 4:39 pmبسم الله الرحمن الرحيم ، والصلاة والسلام على اشرف المرسلين ، و خاتم النبيين ، وسيد الخلق اجمعين ، سيدنا محمد وعلى آله وصحبه أجمعين
اخواني الكرام ، السلام عليكم ورحمة الله وبركاته ،
قبل البدء ، أريد أن اقول بان شاشة التوقف ( أو حافظة الشاشة ) يمكن عملها بتغيير امتداد أي ملف تنفيذي ( بامتداد .exe ) إلى .scr ، ولكن لكي تعطي طابع حافظة الشاشة ، هناك عدة امور يجب اخذها في الاعتبار ، سنتناولها باذن الله تعالى :-
أولاً:- يجب ان يتكون المشروع النوافذي من نموذجين : الأول خاص بشاشة التوقف التي سيتم عرضها ، والثاني خاص بالإعدادت ،
ثانيا:- يجب تغيير بعض خصائص النموذج الخاص بشاشة التوقف كجعل النافذة بملئ الشاشة ، والغاء ظهور النموذج في شريط المهام ، .. الخ
ثالثاً :- في حدث MyApplication_Startup من احداث التطبيق يجب التفريق بالكود بين ماهو المطلوب من حافظة الشاشة ، ( بمعنى هل المطلوب عرض الحافظة ام نافذة الاعدادات ، ام التجربة ) أكتب الكود التالى :-
الرمز PHP:
If e.CommandLine.Count > 0 Then
Dim arg As String = e.CommandLine(0).ToLower(System.Globalization.CultureInfo.InvariantCulture).Trim().Substring(0, 2)
Select Case arg
Case "/c"
Me.MainForm = My.Forms.OptionsForm
Case "/p"
e.Cancel = True
Case "/s"
Me.MainForm = My.Forms.ScreenSaverForm
Case Else
MessageBox.Show("Invalid command line argument :" + arg, "Invalid Command Line Argument", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Select
Else
Me.MainForm = My.Forms.ScreenSaverForm
End If
طبعا بالكود نختبر المعامل الموجود بسطر الاوامر :-
اذا كان c/ فهذا يعني ان المطلوب نافذة الاعدات ،
واذا كان s/ فهذا بعني ان المطلوب هو نموذج الحافظة
رابعا :- بالنسبة لنافذة الاعدادات ، فيفضل ان تقوم بحفظ الاعدادات عن طريق السلسلة ،
عند مراعاة هذه العناصر ، يمكنك صنع مابدا لك علي نموذج الحافظة
والان مع مثال ،
======> تابع ======>
__________________
.: اللهم اجعلنا من عتقائك من النار :: أعذروني على قلة دخولي ، مشغول بالدراسة :.
.: مواضيعي http://vb4arab.com/vb/search.php?do=finduser&u=56018&starteronly=1 :.
.: MY E-MAIL :- Zama_anas_lek@hotmail.com
اخواني الكرام ، السلام عليكم ورحمة الله وبركاته ،
قبل البدء ، أريد أن اقول بان شاشة التوقف ( أو حافظة الشاشة ) يمكن عملها بتغيير امتداد أي ملف تنفيذي ( بامتداد .exe ) إلى .scr ، ولكن لكي تعطي طابع حافظة الشاشة ، هناك عدة امور يجب اخذها في الاعتبار ، سنتناولها باذن الله تعالى :-
أولاً:- يجب ان يتكون المشروع النوافذي من نموذجين : الأول خاص بشاشة التوقف التي سيتم عرضها ، والثاني خاص بالإعدادت ،
ثانيا:- يجب تغيير بعض خصائص النموذج الخاص بشاشة التوقف كجعل النافذة بملئ الشاشة ، والغاء ظهور النموذج في شريط المهام ، .. الخ
ثالثاً :- في حدث MyApplication_Startup من احداث التطبيق يجب التفريق بالكود بين ماهو المطلوب من حافظة الشاشة ، ( بمعنى هل المطلوب عرض الحافظة ام نافذة الاعدادات ، ام التجربة ) أكتب الكود التالى :-
الرمز PHP:
If e.CommandLine.Count > 0 Then
Dim arg As String = e.CommandLine(0).ToLower(System.Globalization.CultureInfo.InvariantCulture).Trim().Substring(0, 2)
Select Case arg
Case "/c"
Me.MainForm = My.Forms.OptionsForm
Case "/p"
e.Cancel = True
Case "/s"
Me.MainForm = My.Forms.ScreenSaverForm
Case Else
MessageBox.Show("Invalid command line argument :" + arg, "Invalid Command Line Argument", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Select
Else
Me.MainForm = My.Forms.ScreenSaverForm
End If
طبعا بالكود نختبر المعامل الموجود بسطر الاوامر :-
اذا كان c/ فهذا يعني ان المطلوب نافذة الاعدات ،
واذا كان s/ فهذا بعني ان المطلوب هو نموذج الحافظة
رابعا :- بالنسبة لنافذة الاعدادات ، فيفضل ان تقوم بحفظ الاعدادات عن طريق السلسلة ،
عند مراعاة هذه العناصر ، يمكنك صنع مابدا لك علي نموذج الحافظة
والان مع مثال ،
======> تابع ======>
__________________
.: اللهم اجعلنا من عتقائك من النار :: أعذروني على قلة دخولي ، مشغول بالدراسة :.
.: مواضيعي http://vb4arab.com/vb/search.php?do=finduser&u=56018&starteronly=1 :.
.: MY E-MAIL :- Zama_anas_lek@hotmail.com
