BookmarksSample.vb


Public Class BookmarksSample

    Private Sub btGo_DropDownOpening(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btGo.DropDownOpening
        btGo.DropDownItems.Clear()
        For Each bookmark In fctb.Bookmarks
            Dim item = btGo.DropDownItems.Add(bookmark.Name)
            item.Tag = bookmark
        Next
    End Sub

    Private Sub btRemoveBookmark_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btRemoveBookmark.Click
        fctb.Bookmarks.Remove(fctb.Selection.Start.iLine)
    End Sub

    Private Sub btAddBookmark_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAddBookmark.Click
        fctb.Bookmarks.Add(fctb.Selection.Start.iLine)
    End Sub

    Private Sub btGo_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles btGo.DropDownItemClicked
        TryCast(e.ClickedItem.Tag, Bookmark).DoVisible()
    End Sub
End Class