تابعنا :

الاثنين، 28 مايو 2012

الدوال فى الفيجوال بيسك وشرحها الجزء الحادى عشر



دوال الريجسترى


دالة Get Setting

'المثال 1

()Private Sub Form_Load
 Dim S As String
     ("S = GetSetting("RunOnce", "OnlyTest", "Times

      If S = > 3 Then
    " لقد تم تشغيل هذا البرنامج3 مرات من قبل ولن يعمل الان"msgbox

   

    End
    End If
    
    S = Val(S) + 1
    SaveSetting "RunOnce", "OnlyTest", "Times", S
     'S & "هذة هي المرة رقم "= Caption 

    End Sub

'المثال 2

()Private Sub Command1_Click
SaveSetting "TestApplication", "TestSection", "K",              Val(Text1.Text
End Sub

()Private Sub Command2_Click
Label1.Caption = GetSetting("TestApplication", "TestSection",    K"
    




End Sub

'مثال لكيفية استرجاع اعدادات فورم
()Private Sub Form_Load
WindowState = GetSetting("MyProgram", "Window State", "State", 0
'إذا كان وضع النافذة مكبراً أو مصغراً فلا داعي لاستعادة الأبعاد
If WindowState = 0 Then
(Move GetSetting("MyProgram", "Window State", "Left", 500
_( GetSetting("MyProgram", "Window State", "Top", 500,
_( GetSetting("MyProgram", "Window State", "Width", 5000,
( GetSetting("MyProgram", "Window State", "Height", 4000,
End If
End Sub


دالة استرجاع البيانات. وتستخدم في عدة اغراض :-
 كالحصول مثلا على عدد مرات  تشغيل البرنامج.  
بحيث يمكن ان تستفيد من هذه الداله في اعطاء المستخدم فرصة لتجريب برنامجك وبعد ذلك لن يعمل ابدا حتى يحصل على النسخة الكاملة من برنامجك
انظر المثال:1
وتستخدم ايضا في استرجاع بيانات من الريجستري(راجع ايضا الداله(saveSetting) .
وصيغة كتابة الأمر كالتالي:
([ GetSetting (AppName, Section, Key, [Default

هذه الدالة أيضاً تحتاج إلى تمرير ثلاثة قيم والرابع اختياري، وجميع هذه القيم نصية من نوع String، وهي كالتالي:

AppName اسم المفتاح الرئيسي والذي نريد استرجاع البيانات منه، وبالطبع يجب أن يكون هذا المفتاح موجود مسبقاً ..

Section اسم المفتاح الفرعي للمفتاح الرئيسي الذي نريد الاسترجاع منه ..

Key اسم مدخل القيمة والموجود تحت المفتاح الفرعي السابق، والذي سنسترجع قيمته ..

Default قيمة اختيارية أي أنه يمكن إدخالها كما يمكن تجاهلها، وفي هذه القيمة نقوم بوضع نص افتراضي، وفي حالة عدم عثور الدالة GetSetting على القيمة التي نريد استرجاعها فإنه يقوم باسترجاع هذا النص الافتراضي عوضاً عنها ..


دالة Save Setting


()Private Sub Command1_Click
SaveSetting "TestApplication", "TestSection", "K",   Val(Text1.Text
End Sub

()Private Sub Command2_Click
Label1.Caption = GetSetting("TestApplication", "TestSection", "K"K
End Sub

'مثال لكيفية حفظ اعدادات فورم
'راجع ايضا المثال للدالة GetSetting
(Private Sub Form_Unload(Cancel As Integer
SaveSetting "MyProgram", "Window State", "State", WindowState
'إذا كان وضع النافذة مصغراً أو مكبراً فلا داعي لحفظ ابعادها
If WindowState = 0 Then
SaveSetting "MyProgram", "Window State", "Left", Left
SaveSetting "MyProgram", "Window State", "Top", Top
SaveSetting "MyProgram", "Window State", "Width" , Width
SaveSetting "MyProgram", "Window State", "Height", Height
End If
End Sub

'مثال لثلاث من الدوال وذلك لتسهيل فهم وظيفتها
"SaveSetting "MyProject", "Check", "Value", "1
'وعندما نود استرجاع هذه القيمة المحفوضة في المفتاح نستخدم الدالة GetSetting 
("Text1.Text = GetSetting ( "MyProject"Check", "Value
'ولحذف المفتاح استخدم الدالة DeleteSettings 
"DeleteSettings "MyProject", "Check", "Value


وتستخدم لحفظ بيانات البرنامج حيث نحتاج في بعض الأحيان إلى أن يتذكر البرنامج بعض الأوضاع التي كان عليها البرنامج قبل انهائه، مثل حجم النافذة الألوان الخطوط...الخ.(راجع الداله GetSetting)ايضا حيث تعمل على استرجاع البيانات

وصيغة كتابة الدالة كالتالي:
SaveSetting AppName, Section, Key, Setting
لاحظ أن هذه الدالة تحتاج إلى تمرير أربعة قيم، وجميع هذه القيم نصية من نوع String، وهي كالتالي:

AppName اسم المفتاح الرئيسي لبرنامجنا في الريجستري، وبالطبع يمكنك اختيار الاسم الذي تريده، والافتراضي هو أن تقوم بكتابة اسم البرنامج الخاص بك ..

Section اسم المفتاح الفرعي والذي سيكون متفرعاً عن المفتاح الرئيسي السابق، وأيضاً الحرية متروكة لك في اختيار الاسم الذي تريده، ولكن من المهم أن يكون اسماً دالاً على الوظيفة منه ..

Key اسم مدخل القيمة والذي سنقوم بإنشائه تحت المفتاح الفرعي السابق، وهو من نوع String value، ويفضل اختيار اسم مناسب للوظيفة التي يقوم بها..

Setting اسم القيمة الذي نريد تخزينها في مدخل القيمة السابق الذي أنشأناه ..
ولكن يجب أن انبه أولاً إلى أن الإكثار من حفظ المعلومات الغير ضرورية سيؤدي إلى تضخم ملف التسجيل، مما يؤدي إلى بطء النظام بشكل عام.







دالة Delete Setting


()Private Sub Command1_Click
حذف مفتاح'
"DeleteSetting "MyProgram", "Window State", "Top
حذف قسم'
"DeleteSetting "MyProgram", "Window State
حذف التطبيق'
"DeleteSetting "MyProgram
End Sub



عدد وسائط هذا الاجراء ثلاث، الوسيطة الأولى اجبارية، والبقية اختيارية، وتختلف نتيجة استدعاء الاجراء حسب عدد الوسائط الممرة، وفيما يلي شرح الاحتمالات: 
- اسم التطبيق. اجباري، إذا تم تمرير اسم التطبيق بمفردة فسيتم حذف التطبيق وكافة كافة الأقسام والمفاتيح التابعة له.
- القسم. اختياري، اذا تم تمرير اسم التطبيق واسم القسم، فسيتم حذف القسم وكافة المفاتيح التابعة له.
- المفتاح. إذا تم تمرير جميع الوسائط بما في ذلك المفتاح فسيتم حذف المفتاح المحدد.
مثال حذف (تطبيق، قسم، مفتاح)

0 التعليقات:

إرسال تعليق

ما هو رايكم فى المدونة ؟ او يتم الاقتراح لاضافة اشياء اخرى ؟

Related Posts Plugin for WordPress, Blogger...