Hello.

We are developing business rule engine. Users can create database structure, objects, web forms and so on. Now, we would like to provide the users with the ability to set up Telerik ASP.NET Ajax controls using xml set up files.
 
These files have the same structure like html code snippets used in VS.NET Designer for every type of your control.

The main reasons for that is:

1) we can easily create xml schema for "supported subset of features"
2) there are too many features to create special form for every property of the control
...

The question is How to interpret there xml files to set up controls.

1) With help of reflection. => We need to cast strings in xml attributes to proper types.
2) Use already existing functionality in VS.NET designer to read aspx files and set up controls on the fly.

What do you think about that? I know nothing about the second option. Can you help me, please?

Thank you very much.

Tom

var a = eventArgs.get_domEvent().keyCode;  

// 8 - Backspace  

// 127 - Delete

var b = sender.get_text() ? sender.get_text() : '';

if (a >= 32 && a <= 126)

 {

b += String.fromCharCode(a);

}

if (b && b != $$$._vendorNamePart)

 {

$$$._vendorNamePart = b;

$$$._departmentReq =

false;

 sender.requestItems(

'txt:' + b, false);  

}

}

Protected

Sub ctlRComboBoxVendorID_ItemsRequested(ByVal sender As Object, ByVal e As Telerik.Web.UI.RadComboBoxItemsRequestedEventArgs) Handles ctlRComboBoxVendorID.ItemsRequested  

If New DB_BLL.Cache().IsMaintain Then  

""   

Try

Dim comBox As RadComboBox = sender

If Not (comBox Is Nothing) Then

If Not (e.Text Is Nothing) And (e.Text.StartsWith("txt:") Or e.Text.StartsWith("id:")) Then

If e.Text.StartsWith("txt:") And e.Text.Length > 4 Then

Dim txt As String = e.Text.Substring(4)

Me.ctlRComboBoxVendorID.Items.Clear()

Dim vendorList As List(Of TMS402VH_VENDOR) = DB_VENDOR.GetAllVendorsByVendorNumber(txt)

If Not (vendorList Is Nothing) And vendorList.Count <> 0 Then

For Each info As TMS402VH_VENDOR In vendorList

Me.ctlRComboBoxVendorID.Items.Add(New RadComboBoxItem(info.VENDOR_ID.ToString() & " - " & info.VENDOR_NME.Trim(), info.VENDOR_ID))

Next

End If

ElseIf e.Text.StartsWith("id:") And e.Text.Length > 3 Then

Dim departmentId As Integer = 0

Try

departmentId = Convert.ToInt32(e.Text.Substring(3))

Catch ex As Exception

 departmentId = 0

End Try

Me.ctlRComboBoxVendorID.Items.Clear()

Dim vendorList As List(Of TMS402VH_VENDOR) = DB_VENDOR.GetAllVendorsByDepartment(departmentId, String.Empty, False)

If Not (vendorList Is Nothing) And vendorList.Count <> 0 Then

For Each info As TMS402VH_VENDOR In vendorList

Me.ctlRComboBoxVendorID.Items.Add(New RadComboBoxItem(info.VENDOR_ID.ToString() & " - " & info.VENDOR_NME.Trim(), info.VENDOR_ID))

Next

End If

End If

End If

End If

Catch ex As Exception

e.Message = ex.Message

End Try

End If

End Sub