Присвоение значения свойствам объекта в VB ООП
Привет,
У меня есть класс, который содержит в себе некоторые поля и свойства,
Проблема в том, что когда я пытаюсь присвоить значение его переменным, я терплю неудачу, и все, что я вижу, когда я отслеживаю его, это то, что поля моего кода не приняли никаких значений,
Вот код моего объекта под названием "MenuLogItem"
...
Public Class MenuLogItem #Region "Fields" Private _menuName As String Private _formEntrance As DateTime #End Region #Region "Methods" ''' <summary> ''' Creates an object of MenuLogItem Class Which holds the information of the formEntrance ''' </summary> ''' <param name="menuName"></param> ''' <param name="EntranceDateTime"></param> ''' <remarks></remarks> Public Sub New(newMenuName As String, newEntranceDateTime As DateTime) menuName = newMenuName formEntrance = newEntranceDateTime End Sub ''' <summary> ''' Stores the object of form entrance log into the database ''' </summary> ''' <remarks></remarks> Public Sub Store() 'Me.menuName 'Me.formEntrance 'TODO write the code for saving the information System.Windows.Forms.MessageBox.Show(Me.menuName.ToString() + vbCrLf + Me.formEntrance.ToString() + vbCrLf + "Stored.") End Sub #End Region #Region "Properties" ''' <summary> ''' menuName Set Get ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property menuName() As String Get Return _menuName End Get Set(value As String) _menuName = menuName End Set End Property ''' <summary> ''' formEntrance Get Set ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property formEntrance() As DateTime Get Return _formEntrance End Get Set(value As DateTime) _formEntrance = formEntrance End Set End Property #End Region End Class
Вот код, который используется для создания и заполнения одного объекта этого класса
...
Dim lastClick As New MenuLogItem(Me.value, DateTime.UtcNow)
Допустим, Me.vlaue уже присвоен "menuItem7" , а dateTime - это Utc DateTime,
Но когда я прослеживаю его и курсор переходит на строку ниже
...
Public Sub New(newMenuName As String, newEntranceDateTime As DateTime) menuName = newMenuName formEntrance = newEntranceDateTime End Sub
и проходя его, я все еще не вижу того, что я ожидаю, что новый объект будет истанцирован с текущими значениями (свойства не получают никаких значений).
С уважением,
Что я уже пробовал:
Я все еще работаю над этим, но пока не получил никакого ответа.