Emmanuele Sassi
53c8d6d934
- Aggiunta lista lastre che scorre e gestisce migliaia di lastre. - Miglioramenti e correzioni varie.
32 lines
1.1 KiB
VB.net
32 lines
1.1 KiB
VB.net
Imports System.ComponentModel
|
|
|
|
Public Class ListPageV
|
|
Implements INotifyPropertyChanged
|
|
|
|
Dim count As Integer = 0
|
|
Dim ListBox_ScrollViewer As ScrollViewer = Nothing
|
|
|
|
Public ReadOnly Property ChildSize As Double
|
|
Get
|
|
If Not IsNumeric(SlabItemsControl.ActualWidth) Then Return 200.0
|
|
If Map.refTopCommandBarVM.Search_IsChecked Then
|
|
Return (SlabItemsControl.ActualWidth - 22) / 4
|
|
Else
|
|
Dim x = (SlabItemsControl.ActualWidth - 22) / 6
|
|
Return (SlabItemsControl.ActualWidth - 22) / 6
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
Private Sub SlabItemsControl_SizeChanged(sender As Object, e As SizeChangedEventArgs) Handles SlabItemsControl.SizeChanged
|
|
NotifyPropertyChanged("ChildSize")
|
|
End Sub
|
|
|
|
Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Public Sub NotifyPropertyChanged(propName As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
|
|
End Sub
|
|
|
|
End Class
|