70 lines
2.5 KiB
VB.net
70 lines
2.5 KiB
VB.net
Imports DevExpress.Xpf.LayoutControl
|
|
Imports System.ComponentModel
|
|
|
|
Public Class tsLayoutItem
|
|
Inherits LayoutItem
|
|
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
|
Public Property PropiedadesTS As New PropiedadesTS
|
|
Public Event cargado()
|
|
|
|
' Private Sub tsLayoutItem_Initialized(sender As Object, e As System.EventArgs) Handles Me.Initialized
|
|
|
|
'Try
|
|
' Dim mensaje As String = ""
|
|
' Dim tsli As tsLayoutItem = sender
|
|
' Dim po As Object = VisualTreeHelper.GetParent(tsli)
|
|
' Dim i As Integer
|
|
' Do While Not po Is Nothing
|
|
' 'If po.GetType.BaseType Is GetType(ApCabLin) Then
|
|
' ' tsli.PropiedadesTS.ApCablin = po
|
|
' ' tsli.PropiedadesTS.ApCablin.ControlesTS.Add(tsli)
|
|
|
|
' ' Exit Do
|
|
' 'Else
|
|
' ' mensaje &= po.GetType.BaseType.ToString & vbCrLf
|
|
' ' po = VisualTreeHelper.GetParent(po)
|
|
' 'End If
|
|
' i += 1
|
|
|
|
' mensaje = po.GetType.BaseType.ToString & "---" & po.GetType.ToString & "---" & po.name
|
|
' po = VisualTreeHelper.GetParent(po)
|
|
' Loop
|
|
' MsgBox(i.ToString & " " & mensaje)
|
|
'Catch ex As Exception
|
|
' MsgBox(ex.Message & ex.StackTrace)
|
|
'End Try
|
|
|
|
' End Sub
|
|
|
|
' Private Sub tsLayoutItem_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
|
|
'Try
|
|
' Dim mensaje As String = ""
|
|
' Dim tsli As tsLayoutItem = sender
|
|
' Dim po As Object = VisualTreeHelper.GetParent(tsli)
|
|
' Do While Not po Is Nothing
|
|
' Try
|
|
' If po.GetType.ToString = "tsWPF.ApCabLin" Then
|
|
' Try
|
|
' tsli.PropiedadesTS.ApCablin = po
|
|
' 'tsli.PropiedadesTS.ApCablin.ControlesTS.Add(tsli)
|
|
' Catch ex As Exception
|
|
' MsgBox(ex.Message)
|
|
' End Try
|
|
|
|
' Else
|
|
' mensaje &= po.GetType.BaseType.ToString & "---" & po.GetType.ToString & "---" & po.name & vbCrLf
|
|
' po = VisualTreeHelper.GetParent(po)
|
|
' End If
|
|
' Catch ex As Exception
|
|
' mensaje &= po.GetType.BaseType.ToString & "---" & po.GetType.ToString & "---" & po.name & vbCrLf
|
|
' po = VisualTreeHelper.GetParent(po)
|
|
' End Try
|
|
' Loop
|
|
' ' MsgBox(i.ToString & " " & mensaje)
|
|
'Catch ex As Exception
|
|
' MsgBox(ex.Message & ex.StackTrace)
|
|
'End Try
|
|
|
|
' End Sub
|
|
End Class
|