View Full Version : استفاده از class
_mojitaba_
جمعه 09 خرداد 1393, 22:55 عصر
دوستان روش استفاده از class رو در ویژوال بیسیک یکی توضیح میده؟
واقعا کلافه شدم
مثلا روش نوشتن توی یه فایل ترتیبی با کلاس رو یه مثال براش بزنید ممنون میشم
Mori Bone
جمعه 09 خرداد 1393, 22:59 عصر
شما توی کلاست کده زیر رو بنویس.
public sub ShowMess(Text as string)
msgbox Text
end sub
حالا اینجوری فراخونیش کن.
dim mess as new class1
class1.ShowMess('hello')
_mojitaba_
جمعه 09 خرداد 1393, 23:07 عصر
اینی که شما میگی درست دستتم درد نکنه
منتها این let و get فوق العاده رو اعصاب رفته
کلا نمیفهمم این دو تا برا چیه؟
الان مثلا php اینا رو نداره چی شده؟
Mori Bone
جمعه 09 خرداد 1393, 23:18 عصر
بخش سوم رو دان کن و کامل بخون.
http://www.chap.sch.ir/books/1396
_mojitaba_
جمعه 09 خرداد 1393, 23:27 عصر
من این کتاب رو کامل خوندم
اما بخش get , let رو نمیفهمم اصلا
بقیه قسمت ها رو میفهمم فقط همین let , get
نه اینکه نفهمم منظورم اینه ضرورت استفاده از اینهارو نمیفهمم
مثالش رو هم گفتم مثلا تو php که این دو تابع وجود نداره مشکل خاصی پیش اومده؟
_mojitaba_
شنبه 10 خرداد 1393, 00:42 صبح
بزارید یجور دیگه بگم
من چرا بجای
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
شنبه 10 خرداد 1393, 09:02 صبح
این مثالی که شما نوشتی خیلی خیلی سادس. اگه شما بخوای یه کلاس پرقدرت و بزرگ که پره از مشخصه(مثلا یه کنترل جدید) این let و get خیلی به درد می خوره
_mojitaba_
شنبه 10 خرداد 1393, 09:43 صبح
شما میتونی یکی برام بنویسی؟
یه مثال برام میشه بزنید؟
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.