Reconfigure for GIT

SISBusiness.Module.Win/Editor/IEPropertyEditor.vb

@@ -0,0 +1,24 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports DevExpress.ExpressApp.Win.Editors
+Imports DevExpress.ExpressApp.Model
+Imports DevExpress.ExpressApp.Editors
+
+<PropertyEditor(GetType([String]), False)> _
+Public Class IEPropertyEditor
+    Inherits WinPropertyEditor
+    Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
+        MyBase.New(objectType, info)
+        ControlBindingProperty = "URL"
+    End Sub
+    Private IEControlCore As IEUserControl = Nothing
+    Public ReadOnly Property FolderUserControl() As IEUserControl
+        Get
+            Return IEControlCore
+        End Get
+    End Property
+    Protected Overrides Function CreateControlCore() As Object
+        IEControlCore = New IEUserControl
+        Return IEControlCore
+    End Function
+End Class