الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ما معنى Type

بدأه Abboodd في 27 ديسمبر 2008 · 4 رد · 2,661 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه

إخواني ما معنى Type ، أنا بحثت ولكن لم أجد عنها ما أريد، يعني أستعلمها هكذا

Type MyType
مجموعة ثوابت، على ما أظن
End Type

وأظن أنني أستعملها في الدوال عندما أدخل وسيطاً، يعني:

Function MyFunction(MyParameter As MyType)

ولكني لم أفهم المقصود منها تماماً، أرجو من الإخوة شرحها لي، بالتفصيل الممل إذا أمكن.

جزاكم الله كل خير.

تم تعديل هذه المشاركة بواسطة Abboodd في 27 ديسمبر 2008 في 07:59

هذه الجملة خاطئة  :wacko: 


#2

Type أو "سجل" : هي عبارة عن مجموعة من المتغيرات المترابطة ( لا يشترط أن تكون من نفس النوع ) ، مجتمعة تحت اسم واحد ليسهل التعامل معها .. ولها أمثلة كثيرة :

مثال :

  1. Private Type PointAPI
  2.     X  As Integer
  3.     Y  As Integer
  4. End Type
  5. 'هذا السجل مستخدم بكثرة في دوال  API ،  مثال:
  6. Private Declare Function GetCursorPos _
  7.              Lib "user32" (lpPoint As pointapi) As Long
  8.  
مثال آخر ( سجل يمثل شخص):
  1.  
  2. Private Type Person
  3.    name as String
  4.    birth as Date
  5.    salary as Double
  6. End Type
  7. 'ويمكن استخدامها كالتالي :
  8. Dim ahmed as Person
  9. With ahmed
  10.    .name="Ahmed"
  11.    .birth="1/1/1890"
  12.    .salary =15000
  13. End With
  14.  


      
      

      
سبحان الله وبحمده ... سبحان الله العظيم

    

  

    
    

      
#3
        
        

      
جزاك الله خيراً أخي، فقط سؤال آخر صغير: عندما أريد استعمالها مع الAPI اكتب هكذا مثلاً:
Dim MyPoint As PointAPI
With MyPoint
.X=500
.Y=400
End With
GetCursorPos(MyPoint)
هل هذا صحيح؟
جزاك الله خيراً

      
      

      
هذه الجملة خاطئة  :wacko: 


    

  

    
    

      
#4
        
        

      
الدالة GetCursorPos ستقوم بتخزين موقع الماوس الحالة في المتغير MyPoint .. 
Dim MyPoint As PointAPI
GetCursorPos(MyPoint)
MsgBox "الاحداثي السيني " & MyPoint.x
MsgBox "الاحداثي الصادي " & MyPoint.y

      
      

      
سبحان الله وبحمده ... سبحان الله العظيم

    

  

    
    

      
#5
        
        

      
طلب أخير يا سيدي،
أرجو مثال على السجل SECURITY_ATTRIBUTES مع الدالة RegCreateKeyEx .
جزاك الله كل خير.

      
      

      
هذه الجملة خاطئة  :wacko: 


    

  

    
    
    
 مواضيع مشابهة