jj

EDMI_ClientSuite/EntityDesigner/ClassControlBuilder.vb

@@ -1,4 +1,5 @@
-Imports EDMI_ClientSuite.ClassControlUtils
+Imports DigitalData.Controls.LookupGrid
+Imports DigitalData.GUIS.ClientSuite.ClassControlUtils
 
 Public Class ClassControlBuilder
 #Region "State"
@@ -51,4 +52,19 @@ Public Class ClassControlBuilder
         Return oTextbox
     End Function
 
+    Public Function CreateCombobox() As LookupControl
+        Dim Metadata As New ControlMetadata() With {
+            .Id = 4711,
+            .Type = ControlType.Combobox
+        }
+
+        Dim oCombobox As New LookupControl() With {
+            .Name = GetRandomControlName("Combobox"),
+            .Size = DEFAULT_SIZE,
+            .Tag = Metadata
+        }
+
+        Return oCombobox
+    End Function
+
 End Class