/
BookmarksAndHyperlinks.vb
36 lines (32 loc) · 1.72 KB
/
BookmarksAndHyperlinks.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports DevExpress.XtraRichEdit.API.Native
Imports DevExpress.XtraRichEdit
Namespace RichEditAPISample.CodeExamples
Friend Class BookmarksAndHyperlinksActions
Private Shared Sub InsertBookmark(ByVal document As DevExpress.XtraRichEdit.API.Native.Document)
#Region "#InsertBookmark"
document.LoadDocument("Documents//Grimm.docx", DevExpress.XtraRichEdit.DocumentFormat.OpenXml)
document.BeginUpdate()
Dim pos As DevExpress.XtraRichEdit.API.Native.DocumentPosition = document.Range.Start
document.Bookmarks.Create(document.CreateRange(pos, 0), "Top")
'Insert the hyperlink anchored to the created bookmark:
Dim pos1 As DevExpress.XtraRichEdit.API.Native.DocumentPosition = document.CreatePosition((document.Range.[End]).ToInt() + 25)
document.Hyperlinks.Create(document.InsertText(pos1, "get to the top"))
document.Hyperlinks(CInt((0))).Anchor = "Top"
document.EndUpdate()
#End Region ' #InsertBookmark
End Sub
Private Shared Sub InsertHYperlink(ByVal document As DevExpress.XtraRichEdit.API.Native.Document)
#Region "#InsertHyperlink"
Dim hPos As DevExpress.XtraRichEdit.API.Native.DocumentPosition = document.Range.Start
document.Hyperlinks.Create(document.InsertText(hPos, "Follow me!"))
document.Hyperlinks(CInt((0))).NavigateUri = "https://www.devexpress.com/Products/NET/Controls/WinForms/Rich_Editor/"
document.Hyperlinks(CInt((0))).ToolTip = "WinForms Rich Text Editor"
#End Region ' #InsertHyperlink
End Sub
End Class
End Namespace