کلاس یک مجموعه ای از کدهاست که شبیه به یک کنترل هستند فقط شکل ظاهری و طراحی ندارند
کلاس ها شی هستند - یعنی خاصیت دارند -کلاس ها می توانند داخل خود پردازه یا تابع محلی وسراسری داشته باشند
کلاس به چه دردی می خورد-کلاسها از تکرار کدها جلو گیری می کنند -کلاس ها خوانایی برنامه را افزایش می دهندوغیره
کلاس ها می توانند به صورت خودکار خود را مقدار دهی کنند-یک ماژول کلاس ایجاد کنید وکدهای زیر را در آن کپی کنید
تعریف یک خاصیت در کلاس
'-----------Set Property Information---------
Public Poperty Let CWidth( Value As Integer)
CWidth=Value
End Property
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
