Я ищу, как создать приватную подгрузку для загрузки данных из файла txt в некоторые текстовые поля и запустить окно с запросом пользователя, правильно ли загруженные данные верны. Я не понял, чтобы получить доступ к form_load или start_load WPF еще после многого поиска. Спасибо всем заранее.Имейте Sub, запускаемый при запуске WPF
EDIT: Вот код для суб, который я хочу добавить в форму Form_Load из WPF при ее запуске. Я просто понятия не имею, как добавить его.
Private Sub Form_Load()
'Load User data from CVTData.txt
Dim DataPath As String = "C:\Temp\HBS-CVTv2.1\CVTData.txt"
If System.IO.File.Exists(DataPath) Then
Dim values() As String = File.ReadAllText("C:\Temp\HBS-CVTv2.1\CVTData.txt").Split("|"c)
textbox1.Text = values(0)
Textbox2.Text = values(1)
TextBox3.Text = values(2)
Textbox4.Text = values(3)
Select MsgBox("Welcome to the CVT Utility. This will take about 10 minutes to complete" & vbNewLine & "Please confirm that the data entered into the boxes is correct" & vbNewLine & "If so Press Yes" & vbNewLine & "If not Press No to enter data" & vbNewLine & "Press Cancel to close CVT Utility", MsgBoxStyle.YesNoCancel, "Application Start")
'If Yes then Start Short Automated Run
Case MsgBoxResult.Yes
'Create c:\temp\logs folder
Dim LogPath As String = "c:\temp\logs"
If (Not System.IO.Directory.Exists(LogPath)) Then
System.IO.Directory.CreateDirectory(LogPath)
End If
'Run IPConfig on network
Process.Start("cmd", "/c ipconfig > c:\temp\logs\pcinfo.txt")
'Pause thread to let above process complete
Threading.Thread.Sleep(2000)
'Insert Date into TextBlockDate
TextBlockDate.Text = Date.Today
'Insert Time into TextBlockTime
TextBlockTime.Text = Now.ToLongTimeString
'Call Private Sub IPConfig_Write to update textblock1
Call NetworkIP_Write()
Call Auto_Wrk()
'Toggle Buttons and Check Mark Image to advance to the next step
Button6.IsEnabled = True
Check1.Visibility = Windows.Visibility.Visible
Check2.Visibility = Windows.Visibility.Visible
Check3.Visibility = Windows.Visibility.Visible
Check4.Visibility = Windows.Visibility.Visible
Check5.Visibility = Windows.Visibility.Visible
Button6.Background = System.Windows.Media.Brushes.Gold
button1.IsEnabled = False
Case MsgBoxResult.No
'Create c:\temp\logs folder
Dim LogPath As String = "c:\temp\logs"
If (Not System.IO.Directory.Exists(LogPath)) Then
System.IO.Directory.CreateDirectory(LogPath)
End If
'Run IPConfig on network
Process.Start("cmd", "/c ipconfig > c:\temp\logs\pcinfo.txt")
'Pause thread to let above process complete
Threading.Thread.Sleep(2000)
'Insert Date into TextBlockDate
TextBlockDate.Text = Date.Today
'Insert Time into TextBlockTime
TextBlockTime.Text = Now.ToLongTimeString
'Call Private Sub IPConfig_Write to update textblock1
Call NetworkIP_Write()
'Toggle Buttons and Check Mark Image to advance to the next step
button1.IsEnabled = True
button1.Background = System.Windows.Media.Brushes.Gold
'If Cancel Close Appliation
Case MsgBoxResult.Cancel
'Close Application
Application.Current.Shutdown()
End Select
Else
button1.IsEnabled = True
button1.Background = System.Windows.Media.Brushes.Gold
MsgBox("Welcome to the CVT Utility. Let's Begin")
End If
End Sub
Что вы сделали до сих пор, добавьте код, покажите нам, какое усилие вы положили, - этот вопрос может быть закрыт! –
Код @PilgerstorferFranz добавлен в сообщение – LordDaius
'Form_Load' выглядит как Windows Forms для меня. В WPF у вас есть события «Application.Startup» и «Window.Loaded». Извините, я C# не VB, поэтому я не могу быть более конкретным. – vesan