evernote: список заметок в книге

Question

' Get a list of all notebooks in the user's account. 
    Dim myNotebookList As List(Of ENNotebook) = ENSession.SharedSession.ListNotebooks() 

    For Each item In myNotebookList 
     ListBox1.Items.Add(item.Name) 
    Next 


    'Get a list of all the Notes in a NoteBook 



    Dim mybook As ENNotebook = myNotebookList.Find(Function(i) i.Name = "april2014") 

    For Each item In mybook 
     ListBox1.Items.Add(item) 
    Next 

первая часть работает отлично, получая список ноутбуков ... но вторая часть не работает.

нормально изменили свой код на это ....

Dim mybook As ENNotebook = myNotebookList.Find(Function(i) i.Name = "april2014") 

    For Each mybook In myNotebookList 
     ListBox2.Items.Add(mybook.Name) 
    Next 

и теперь я получить список всех моих ноутбуков снова.

«april2014» - это ноутбук, и я хочу получить список заметок внутри этого ноутбука.

=================================

НОВЫЙ КОД

' Get a list of all notebooks in the user's account. 
    Dim myNotebookList As List(Of ENNotebook) = ENSession.SharedSession.ListNotebooks() 

    For Each item In myNotebookList 
     ListBox1.Items.Add(item.Name) 
    Next 


    'Get a list of all the Notes in a NoteBook 

    Dim mybook As ENNotebook = myNotebookList.Find(Function(i) i.Name = "april2014") 




    Dim myfindbook As List(Of ENSessionFindNotesResult) 



    myfindbook = ENSession.SharedSession.FindNotes(ENNoteSearch.NoteSearch(""), mybook, ENSession.SearchScope.Personal, ENSession.SortOrder.Normal, 10) 




    If (myfindbook.Count > 0) Then 
     For Each Result As ENSessionFindNotesResult In myfindbook 
      ListBox3.Items.Add(Result.Title) 
     Next 
    End If 

Answer 1

Когда вы говорите, что «вторая часть не работает», вам нужно указать конкретные сведения о том, что означает «не работает». Какой результат вы ожидаете и какой результат у вас получается, отличается от ожидаемого? Получаете ли вы сообщение об ошибке, и если да, то какой код ошибки и/или текст сообщения об ошибке?

(Обратите внимание, что я вошел бы это как комментарий, но у меня нет достаточно очков еще комментариев.)