/
FormFieldsActions.vb
30 lines (26 loc) · 1.46 KB
/
FormFieldsActions.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
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 RichEditDocumentServerAPIExample.CodeExamples
Friend Class FormFieldsActions
Public Shared InsertCheckBoxAction As System.Action(Of DevExpress.XtraRichEdit.RichEditDocumentServer) = AddressOf RichEditDocumentServerAPIExample.CodeExamples.FormFieldsActions.InsertCheckBox
Private Shared Sub InsertCheckBox(ByVal wordProcessor As DevExpress.XtraRichEdit.RichEditDocumentServer)
#Region "#InsertCheckbox"
' Access the start position of the document range.
Dim currentPosition As DevExpress.XtraRichEdit.API.Native.DocumentPosition = wordProcessor.Document.Range.Start
' Insert a checkbox at the specified position.
Dim checkBox As DevExpress.XtraRichEdit.API.Native.CheckBox = wordProcessor.Document.FormFields.InsertCheckBox(currentPosition)
' Specify the checkbox properties.
checkBox.Name = "check1"
checkBox.State = DevExpress.XtraRichEdit.API.Native.CheckBoxState.Checked
checkBox.SizeMode = DevExpress.XtraRichEdit.API.Native.CheckBoxSizeMode.Auto
checkBox.HelpTextType = DevExpress.XtraRichEdit.API.Native.FormFieldTextType.Custom
checkBox.HelpText = "help text"
#End Region ' #InsertCheckbox
End Sub
End Class
End Namespace