38 lines
1.6 KiB
VB.net
38 lines
1.6 KiB
VB.net
Option Strict Off
|
|
Imports System
|
|
Imports System.ComponentModel
|
|
Imports System.Drawing
|
|
Imports System.Drawing.Design
|
|
Imports System.Reflection
|
|
Imports System.Windows.Forms
|
|
Imports System.Windows.Forms.Design
|
|
|
|
' This UITypeEditor can be associated with Int32, Double and Single
|
|
' properties to provide a design-mode angle selection interface.
|
|
<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
|
|
Public Class SISHtmlEditor
|
|
Inherits System.Drawing.Design.UITypeEditor
|
|
|
|
Public Sub New()
|
|
End Sub
|
|
|
|
' Indicates whether the UITypeEditor provides a form-based (modal) dialog,
|
|
' drop down dialog, or no UI outside of the properties window.
|
|
Public Overloads Overrides Function GetEditStyle(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.Drawing.Design.UITypeEditorEditStyle
|
|
Return UITypeEditorEditStyle.Modal
|
|
End Function
|
|
|
|
' Displays the UI for value selection.
|
|
Public Overloads Overrides Function EditValue(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal provider As System.IServiceProvider, ByVal value As Object) As Object
|
|
Dim edSvc As IWindowsFormsEditorService = CType(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
|
|
If (edSvc IsNot Nothing) Then
|
|
' Display an angle selection control and retrieve the value.
|
|
Dim HtmlControl As New DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlEditor
|
|
edSvc.ShowDialog(HtmlControl.FindForm)
|
|
Return HtmlControl.Html
|
|
End If
|
|
Return value
|
|
End Function
|
|
End Class
|
|
|