View Full Version : کلاس و کامپوننت
سعید112
سه شنبه 15 اسفند 1385, 01:03 صبح
سلام
خواهشا اگه کسی میدونه چطوری میتونم یه کلاس تعریف کنم که یه دستور مثل اینو بشه بکار گرفت ممنون میشم :تشویق:
power.up(10,3).tomytype
البته با کلاس نوشتنو یه مقداری میدونم . میتونم مثل اینو بنویسم
power.up(10,3)
ولی وقتی میخوام یه تابع دیگه مثلا tomytype رو در دنبالش تعریف کنم مشک پیدا میکنم
__H2__
سه شنبه 15 اسفند 1385, 19:25 عصر
سلام
عزیزجان در این حالت خروجی تابع اول خود یک کلاسس است.
مثلاَ برای همان power.up(10,3).tomytype که گفتی به چیزی شبیه این نیاز دارید.
Dim power As New CPower
Call power.up(10,3).tomytype
----------------------------------------------------------------------------
Public
Class CPower
PublicFunction Up(ByVal i AsInteger, ByVal j AsInteger) As Class2
ReturnNew Class2
EndFunction
EndClass
PublicClass Class2
PublicSub tomytype()
'Any code!
EndSub
EndClass
سعید112
یک شنبه 27 خرداد 1386, 23:14 عصر
خیلی معذرت میخوام که دوباره این سوال رو میپرسم .اخه سرم به یه برنامه ای گرم شد وقت نکردم رو کلاسها کار کنم .القصه..... نتونستم بفهمم پارامترهای i,j از تابع UP چطوری به تابع tomytype فرستاده میشه. ممنون میشم بگید
ghafoori
دوشنبه 28 خرداد 1386, 10:18 صبح
دوست عزیز من این کد را پیشنهاد می کنم
Class CPower
Public Function Up(ByVal i As Integer, ByVal j As Integer) As Class2
Return New Class2(i, j)
End Function
End Class
Public Class Class2
Dim i, j As Integer
Sub New(ByVal _i As Integer, ByVal _j As Integer)
i = _i
j = _j
End Sub
Public Sub tomytype()
'Any code!
End Sub
End Class
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.