|
Option Strict On
Imports System.Windows.Forms
Imports Infragistics.Win.UltraWinTree
Imports RestrictedUI
Imports RestrictedWinFormsUI
' RestrictedUI: MOZILLA PUBLIC LICENSE STATEMENT.
' -----------------------------------------------------------
' The contents of this file are subject to the Mozilla Public
' License Version 1.1 (the "License"); you may not use this file
' except in compliance with the License. You may obtain a copy of
' the License at http://www.mozilla.org/MPL/
' Software distributed under the License is distributed on an "AS
' IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
' implied. See the License for the specific language governing
' rights and limitations under the License.
' The Original Code is RestrictedUI 1.0.
' The Initial Developer of the Original Code is Daniel Prado Velasco
' <dpradov@gmail.com> (Spain).
' Portions created by Daniel Prado Velasco are
' Copyright (C) 2010. All Rights Reserved.
' -----------------------------------------------------------
' Contributor(s):
' -----------------------------------------------------------
' History:
' -----------------------------------------------------------
' Released: 13 April 2010
' -----------------------------------------------------------
' URLs:
' http://code.google.com/p/restricted-ui/
''' <summary>
''' Adapter for UltreTree controls (NetAdventage, Infragistics), for its use from the Restricted User Interface library (<see cref="RestrictedUI"/>)
''' </summary>
''' <remarks></remarks>
Public Class AdapterInfragisticsWinForms_UltraTree
Inherits AdapterWinForms_Control
Implements IControlAdapter
Sub New(ByVal control As UltraTree)
MyBase.New(control)
End Sub
Public Overrides Function Controls() As IList(Of IControlAdapter)
Dim children As New List(Of IControlAdapter)
Dim adapt As IControlAdapter
For Each ctrl As UltraTreeNode In DirectCast(_control, UltraTree).Nodes
adapt = New AdapterInfragisticsWinForms_UltraTreeNode(ctrl)
children.Add(adapt)
Next
Return children
End Function
Protected Overrides Function FindControl(ByVal identifier As String) As IControlAdapter
Dim cad As String() = identifier.Split("."c)
Dim control As UltraTreeNode = Nothing
Dim nodes As TreeNodesCollection
Try
nodes = DirectCast(_control, UltraTree).Nodes
For i As Integer = 0 To cad.Length - 1
For Each c As UltraTreeNode In nodes
If Util.FormatIdentifier(c.Text).ToUpper = cad(i).ToUpper Then
control = c
nodes = c.Nodes
Exit For
End If
Next
Next
Catch ex As Exception
End Try
Return SecurityEnvironment.GetAdapter(control)
End Function
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.