کلاس و کامپوننت

[سعید112]

سلام
خواهشا اگه کسی میدونه چطوری میتونم یه کلاس تعریف کنم که یه دستور مثل اینو بشه بکار گرفت ممنون میشم :تشویق:
power.up(10,3).tomytype
البته با کلاس نوشتنو یه مقداری میدونم . میتونم مثل اینو بنویسم
power.up(10,3)
ولی وقتی میخوام یه تابع دیگه مثلا tomytype رو در دنبالش تعریف کنم مشک پیدا میکنم

[__H2__]

سلام
عزیزجان در این حالت خروجی تابع اول خود یک کلاسس است.
مثلاَ برای همان 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]

خیلی معذرت میخوام که دوباره این سوال رو میپرسم .اخه سرم به یه برنامه ای گرم شد وقت نکردم رو کلاسها کار کنم .القصه..... نتونستم بفهمم پارامترهای i,j از تابع UP چطوری به تابع tomytype فرستاده میشه. ممنون میشم بگید

[ghafoori]

دوست عزیز من این کد را پیشنهاد می کنم


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