اول سلام بخش نظرات رو زير هر بخش گذاشتم .مي دونم پرستيج وبلاگو به هم ميزنه ولي چه كنم كه براي عده اي (شما نه!)نظر دادن خيلي سخت به نظر مي ياد

كلاس چيست

كلاس ييك مجموعه اي از كدهاست كه شبيه به يك كنترل هستند فقط شكل ظاهري و طراحي ندارند

كلاس ها شي هستند - يعني خاصيت دارند -كلاس ها مي توانند داخل خود پردازه يا تابع محلي وسراسري داشته باشند

كلاس به چه دردي مي خورد-كلاسها از تكرار كدها جلو گيري مي كنند -كلاس ها خوانايي برنامه را افزايش مي دهندوغيره

كلاس ها مي توانند به صورت خودكار خود را مقدار دهي كنند-يك ماژول كلاس ايجاد كنيد وكدهاي زير را در آن كپي كنيد

تعريف يك خاصيت در كلاس

'-----------Set Property Information---------

Public Poperty Let CWidth( Value As Integer)

CWidth=Value

End Property

'------------Get Property Information--------------

Public Property Get CWidth() As Integer

CWidth=CForm.Width

End Property

دستور اول خاصيت را مقدار دهي مي كند با مقداري كه كار بر فرستاده

دستور دوم براي دادن مقدار براي كابر است .البته هر كدام از اين دستورات را مي توان به صورت محلي استفاده كرد

وي بي با كلاس ها مانند يك نوع جديد رفتار مي كند يعني شما براي استفاده از يك كلاس در سطح فرم بايد يك متغير از

نوع كلاس تعريف كنيد .تعرف يك متغيير محلي در سطح فرم

Private CForm As Form

تمام متغيير ها وتوابع وپردازه ها وحتي نام خود كلاس را با سي آغاز كنيد تا معلوم شود مربوط به يك كلاس است

تعرف يك پردازه سراسري در كلاس

Private Sub CSetInfo(Frm As Form)

Set Form=Frm

End Sub

اگر تمام كدها بالا را درست در يك ماژول كلاس كپي كنيد اكنون نوبت استفاده از كدهاي بالاست

در خط اول فرم يك متغيير از نوع نام كلاس تعريف كنيد.بدين صورت

Dim Calss As Class1

Private Sub Form_Resiz()

Me.Caption="Form1.Width: "& Class.With

End Sub

لينك مقاله |17:26 یکشنبه 22 بهمن1385 - توسط ناصر نيازي