استفاده از class

[_mojitaba_]

دوستان روش استفاده از class رو در ویژوال بیسیک یکی توضیح میده؟
واقعا کلافه شدم
مثلا روش نوشتن توی یه فایل ترتیبی با کلاس رو یه مثال براش بزنید ممنون میشم

[Mori Bone]

شما توی کلاست کده زیر رو بنویس.
public sub ShowMess(Text as string)
msgbox Text
end sub
حالا اینجوری فراخونیش کن.
dim mess as new class1
class1.ShowMess('hello')

[_mojitaba_]

اینی که شما میگی درست دستتم درد نکنه
منتها این let و get فوق العاده رو اعصاب رفته
کلا نمیفهمم این دو تا برا چیه؟
الان مثلا php اینا رو نداره چی شده؟

[Mori Bone]

بخش سوم رو دان کن و کامل بخون.
http://www.chap.sch.ir/books/1396

[_mojitaba_]

من این کتاب رو کامل خوندم
اما بخش get , let رو نمیفهمم اصلا
بقیه قسمت ها رو میفهمم فقط همین let , get
نه اینکه نفهمم منظورم اینه ضرورت استفاده از اینهارو نمیفهمم
مثالش رو هم گفتم مثلا تو php که این دو تابع وجود نداره مشکل خاصی پیش اومده؟

[_mojitaba_]

بزارید یجور دیگه بگم
من چرا بجای

class1:

Public Function math(w As Integer, h As Integer)
MsgBox (w * h)
End Function


form1:
Dim m As New Class1


Private Sub Command1_Click()
m.math 10, 20
End Sub



بیام و بنویسم


class1:

Private w_ As Integer
Private h_ As Integer


Public Property Get w() As Variant
w = w_
End Property


Public Property Let w(ByVal vNewValue As Variant)
w_ = vNewValue
End Property


Public Property Get h() As Variant
h = h_
End Property


Public Property Let h(ByVal vNewValue As Variant)
h_ = vNewValue
End Property


Public Function math()
MsgBox h_ * w_
End Function


form1:
Dim m As New Class1


Private Sub Command1_Click()
m.h = 10
m.w = 20
m.math
End Sub





دوستان متوجه منظور من میشید؟

[Mori Bone]

این مثالی که شما نوشتی خیلی خیلی سادس. اگه شما بخوای یه کلاس پرقدرت و بزرگ که پره از مشخصه(مثلا یه کنترل جدید) این let و get خیلی به درد می خوره

[_mojitaba_]

شما میتونی یکی برام بنویسی؟
یه مثال برام میشه بزنید؟