Emmanuele Sassi
34 lines
1.1 KiB
VB.net
34 lines
1.1 KiB
VB.net
Public Class SaveCurrProjWD
|
|
|
|
Dim m_MainWindow As MainWindow = Application.Current.MainWindow
|
|
|
|
Public sTextString As String = String.Empty
|
|
|
|
Friend Shadows DialogResult As Integer = 0
|
|
|
|
Private Sub Window_Initialized(sender As Object, e As EventArgs)
|
|
Me.Owner = m_MainWindow
|
|
Me.Height = m_MainWindow.Height / 12 * 2.5
|
|
Me.Width = m_MainWindow.Width / 15 * 4
|
|
Me.Top = m_MainWindow.Top + (m_MainWindow.Height / 2) - (Me.Height / 2)
|
|
Me.Left = m_MainWindow.Left + (m_MainWindow.Width / 2) - (Me.Width / 2)
|
|
End Sub
|
|
|
|
Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
|
|
TextStringTxBl.Text = sTextString
|
|
End Sub
|
|
|
|
Private Sub YesBtn_Click(sender As Object, e As RoutedEventArgs) Handles YesBtn.Click
|
|
DialogResult = 1
|
|
End Sub
|
|
|
|
Private Sub NoBtn_Click(sender As Object, e As RoutedEventArgs) Handles NoBtn.Click
|
|
DialogResult = 2
|
|
End Sub
|
|
|
|
Private Sub CancelBtn_Click(sender As Object, e As RoutedEventArgs) Handles CancelBtn.Click
|
|
DialogResult = 0
|
|
End Sub
|
|
|
|
End Class
|