Emmanuele Sassi
23 lines
911 B
VB.net
23 lines
911 B
VB.net
Partial Class OmagCUTDictionary
|
|
Inherits ResourceDictionary
|
|
|
|
Dim MainWindowUC As MainWindow = Application.Current.MainWindow
|
|
Dim m_NumericKeyboardWD As NumericKeyboardWD
|
|
|
|
'TEXTBOX
|
|
Private Sub PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
|
|
m_NumericKeyboardWD = MainWindowUC.m_NumericKeyboardWD
|
|
m_NumericKeyboardWD.m_CurrentTxBx = e.Source
|
|
Dim AssocLabel As Label = m_NumericKeyboardWD.m_CurrentTxBx.Tag
|
|
If (Not IsNothing(AssocLabel)) Then
|
|
m_NumericKeyboardWD.m_CurrentLbl = AssocLabel.Content
|
|
End If
|
|
m_NumericKeyboardWD.Top = MainWindowUC.Top
|
|
m_NumericKeyboardWD.Left = MainWindowUC.Left
|
|
m_NumericKeyboardWD.Height = MainWindowUC.Height
|
|
m_NumericKeyboardWD.Width = MainWindowUC.Width
|
|
m_NumericKeyboardWD.Visibility = Visibility.Visible
|
|
End Sub
|
|
|
|
End Class
|