none
想請問有關「Property Let & Get」的錯誤訊息 RRS feed

  • 問題

  • 請問各位前輩

    Code如下

    ########################################Class

    Private master(3) As String
    Private Location(3) As String
    Private price(3) As Integer

    'Private Sub Class_Initialize()
    'master(0) = "Administrator"
    'Location(0) = "TWD"
    'price(0) = 0
    'End Sub

    Public Property Let MasterName(ByVal name As String, ByVal index As Integer)
       master(index) = name
    End Property

    Public Property Let LocationPlace(ByVal place As String, ByVal index As Integer)
       Location(index) = place
    End Property

    Public Property Let setprice(ByVal money As Integer, ByVal index As Integer)
       price(index) = money
    End Property

    Public Property Get MasterName(ByVal index As Integer)
       MasterName = master(index)
    End Property
    Public Property Get LocationPlace(ByVal index As Integer)
       LocationPlace = Location(index)
    End Property
    Public Property Get setprice(ByVal index As Integer)
       setprice = price(index)
    End Property
    ########################################

    但執行的時候都會跳出錯誤訊息

     

    編譯錯誤

    對於同一個屬性所定義屬性程式有不一致的情形,或是屬性程式中有一個ParamArray的選擇性參數,或是Set陳述式的最後一個參數不正確。

     

    這是什麼照成的??


    Question and Answer just seen like one
    2010年7月13日 下午 08:14

解答

  • 宣告屬性 (Property) 的名稱以及用來儲存和擷取屬性值的屬性程序。

    [ <attributelist> ] [ Default ] [ accessmodifier ]
    [ propertymodifiers ] [ Shared ] [ Shadows ] [ ReadOnly | WriteOnly ]
    Property name ( [ parameterlist ] ) [ As returntype ] [ Implements implementslist ]
        [ <attributelist> ] [ accessmodifier ] Get
            [ statements ]
        End Get
        [ <attributelist> ] [ accessmodifier ] Set ( ByVal value As returntype [, parameterlist ] )
            [ statements ]
        End Set
    End Property
    - or -
    [ <attributelist> ] [ Default ] [ accessmodifier ]
    [ propertymodifiers ] [ Shared ] [ Shadows ] [ ReadOnly | WriteOnly ]
    Property name ( [ parameterlist ] ) [ As returntype ] [ Implements implementslist ]
    • 已標示為解答 Lolota Lee 2010年7月20日 上午 06:02
    2010年7月14日 上午 12:35
  • Hi,

    你那不是VB.NET的寫法啊

    參閱下列寫法自行修改

      Private _masterName(3) As String
    
      Public ReadOnly Property MasterName() As String()
        Get
          Return _masterName
        End Get
      End Property
    
      Public Property MasterName(ByVal idx As Integer) As String
        Get
          Return _masterName(idx)
        End Get
        Set(ByVal value As String)
          _masterName(idx) = value
        End Set
      End Property
    


    謙卑學習,持之以恆,才能不斷的Level Up http://www.dotblogs.com.tw/larrynung/
    • 已標示為解答 Lolota Lee 2010年7月20日 上午 06:02
    2010年7月14日 上午 04:52

所有回覆

  • 宣告屬性 (Property) 的名稱以及用來儲存和擷取屬性值的屬性程序。

    [ <attributelist> ] [ Default ] [ accessmodifier ]
    [ propertymodifiers ] [ Shared ] [ Shadows ] [ ReadOnly | WriteOnly ]
    Property name ( [ parameterlist ] ) [ As returntype ] [ Implements implementslist ]
        [ <attributelist> ] [ accessmodifier ] Get
            [ statements ]
        End Get
        [ <attributelist> ] [ accessmodifier ] Set ( ByVal value As returntype [, parameterlist ] )
            [ statements ]
        End Set
    End Property
    - or -
    [ <attributelist> ] [ Default ] [ accessmodifier ]
    [ propertymodifiers ] [ Shared ] [ Shadows ] [ ReadOnly | WriteOnly ]
    Property name ( [ parameterlist ] ) [ As returntype ] [ Implements implementslist ]
    • 已標示為解答 Lolota Lee 2010年7月20日 上午 06:02
    2010年7月14日 上午 12:35
  • Hi,

    你那不是VB.NET的寫法啊

    參閱下列寫法自行修改

      Private _masterName(3) As String
    
      Public ReadOnly Property MasterName() As String()
        Get
          Return _masterName
        End Get
      End Property
    
      Public Property MasterName(ByVal idx As Integer) As String
        Get
          Return _masterName(idx)
        End Get
        Set(ByVal value As String)
          _masterName(idx) = value
        End Set
      End Property
    


    謙卑學習,持之以恆,才能不斷的Level Up http://www.dotblogs.com.tw/larrynung/
    • 已標示為解答 Lolota Lee 2010年7月20日 上午 06:02
    2010年7月14日 上午 04:52