Emmanuele Sassi
26 lines
785 B
VB.net
26 lines
785 B
VB.net
Public Class EstimationListPageV
|
|
|
|
Private WithEvents m_EstimationListPageVM As EstimationListPageVM
|
|
|
|
Sub New()
|
|
|
|
' This call is required by the designer.
|
|
InitializeComponent()
|
|
|
|
' Add any initialization after the InitializeComponent() call.
|
|
m_EstimationListPageVM = New EstimationListPageVM
|
|
Me.DataContext = m_EstimationListPageVM
|
|
End Sub
|
|
|
|
Private Sub Row_MouseDoubleClick(sender As Object, e As MouseButtonEventArgs)
|
|
If IsNothing(sender) OrElse TypeOf sender IsNot DataGridRow Then
|
|
Return
|
|
End If
|
|
Dim SelDataGridRow As DataGridRow = DirectCast(sender, DataGridRow)
|
|
If IsNothing(SelDataGridRow.DataContext) Then Return
|
|
m_EstimationListPageVM.OpenEstimation()
|
|
e.Handled = True
|
|
End Sub
|
|
|
|
End Class
|