بتـــــاريخ : 1/24/2011 1:13:32 AM
الفــــــــئة
  • الحـــــــــــاسب
  • التعليقات المشاهدات التقييمات
    0 834 0


    [دروس] الدرس الثالث من الدروس الإحترافية في دورة AutoIt3 Scripting Language الأدوات الخاصة بالنصوص Label + Input Box + Edit Box

    الناقل : elmasry | العمر :42 | الكاتب الأصلى : TinyHacker | المصدر : www.arabteam2000-forum.com

    كلمات مفتاحية  :

     
    ملاحظة: يجب أن تتابع الدروس بالتسلسل منذ بداية الدورة وإلا لن تستطيع تطبيق الدروس ولن تفهم فحواها

    الدرس الأول من الدروس الإحترافية في دورة AutoIt3 Scripting Language

     



    الأدوات الخاصة بالنصوص Label + Input Box + Edit Box :

    وهي أدوات معروفة وسهلة الإستخدام ولها عدة أوامر إضافية للتحكم بخصائصها سيكون لها درس لاحق مستقل للتحكم بالأدوات جميعها إن شاء الله...

    أمر إنشاء نص هو:

    GuiCtrlCreateLabel("Text", Left, Top)
    Text = النص
    Left = البعد عن يسار النافذة
    Top = البعد عن أعلى النافذة



    ولا ننسى سكريبت الإرفاق الخارجي لهذه الأداة وهو:
    #include <StaticConstants.au3>


    أمر إنشاء مربع نص Input Box :

    GuiCtrlCreateInput("Text", Left, Top, Width, Height)
    Text =الإفتراضي النص
    Left = البعد عن يسار النافذة
    Top = البعد عن أعلى النافذة
    Width = العرض
    Height = الإرتفاع


    ولا ننسى سكريبت الإرفاق الخارجي لهذه الأداة وهو:

    #include <EditConstants.au3> 


    أمر إنشاء مربع نص Edit Box :

    GuiCtrlCreateEdit("Text", Left, Top, Width, Height)
    Text =الإفتراضي النص
    Left = البعد عن يسار النافذة
    Top = البعد عن أعلى النافذة
    Width = العرض
    Height = الإرتفاع

    ولا ننسى سكريبت الإرفاق الخارجي لهذه الأداة وهو مشابه للأداة السابقة:

    #include <EditConstants.au3> 


    وهذا تطبيق شامل يوضح إنشاء الأدوات الثلاثة معاً:

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    GUICreate("My Program", 220, 291, -1, -1)
    $Label1 = GUICtrlCreateLabel("This is a text label", 65, 24)
    $Input1 = GUICtrlCreateInput("This is Input Box", 16, 72, 185, 21)
    $Edit1 = GUICtrlCreateEdit("This is Edit Box ...", 16, 112, 185, 161)
    GUISetState(@SW_SHOW)

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
      Case $GUI_EVENT_CLOSE
       Exit



    EndSwitch
    Wend



    وهذه صورة توضح التطبيق:


    Resized to 76% (was 863 x 491) - Click image to enlargeارفق صورة : monthly_09_2010/post-233543-036444200 1284599307.jpg




    لاحظ أننا قمنا بوضع أسماء رمزية لكل من تلك الأدوات لكي نخصص لها أوامر معينة لاحقاً..

    سيكون هناك درس شامل خاص بالتحكم بخصائص هذه الأدوات إن شاء الله..

    كلمات مفتاحية  :

    تعليقات الزوار ()