|
|
发表于 2014-9-10 08:57:44
|
显示全部楼层
本帖最后由 Capt.Murasa 于 2014-9-10 09:12 编辑
雖然意義不大,但留意到程式碼:
Public Sub Init(ByVal InName As String, ByVal InPath As String, ByVal InIndex As Integer) Name = InName : Path = InPath : Index = InIndex
End Sub
可以寫成為:
Sub New(ByVal InName As String, ByVal InPath As String, ByVal InIndex As Integer)
Name = InName : Path = InPath : Index = InIndex
Setting
End Sub
|
|