如何创建带有属性“ReminderTime”

Question

我想创建一个注意到提醒一张纸条，这是我的代码：

'Create a note locally. 
Dim myNote As New Note() 

myNote.Title = "Sample note with Reminder set" 
myNote.Content = "Hello, world - this note has a Reminder on it." 
myNote.Attributes.ReminderTime = DateTime.Now.ToEdamTimestamp() 

'Create the note in the service, in the user's personal, default notebook. 
Dim store As ENNoteStoreClient =ENSessionAdvanced.SharedSession.PrimaryNoteStore 
Dim resultNote As Note = store.CreateNote(myNote) 

，但没有奏效。错误代码：

myNote.Attributes.ReminderTime = DateTime.Now.ToEdamTimestamp() 

全部细节：

未处理System.NullReferenceException的HResult = -2147467261 消息=未将对象引用设置到对象的实例

Answer 1

音符的属性是一个NoteAttributes对象，因此您必须先创建对象：

'Create a note locally. 
Dim myNote As New Note() 

myNote.Title = "Sample note with Reminder set" 
myNote.Content = "Hello, world - this note has a Reminder on it." 

'Create the note's attributes. 
Dim myNoteAttributes As New NoteAttributes 

myNoteAttributes.ReminderTime = DateTime.Now.ToEdamTimestamp() 
myNote.Attributes = myNoteAttributes  

'Create the note in the service, in the user's personal, default notebook. 
Dim store As ENNoteStoreClient =ENSessionAdvanced.SharedSession.PrimaryNoteStore 
Dim resultNote As Note = store.CreateNote(myNote)