Word and Text File Open in WPF using VB.NET
In this article, We will learn how to open word and text file in WPF.
In this article, We will learn how to open word and text file in WPF.
We will create .xaml page. we will add a textbox and Button control to XAML page. We will use class OpenFileDialog for browse files on a machine. We will use namespace 'Microsoft.Win32.OpenFileDialog' for upload file.
Example:- This code is .xaml
<Window x:Class="Window1"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="Window1" Height="300" Width="400">
<Grid>
<TextBox Name="FileNameTextBox" Height="32" HorizontalAlignment="Left"
Margin="10,10,0,0"
VerticalAlignment="Top" Width="250" Background="AliceBlue" />
<Button Content="Browse" Height="32" HorizontalAlignment="Left"
Margin="275,10,0,0"
Name="BrowseButton" VerticalAlignment="Top" Width="88" />
</Grid>
</Window>
This code is .xaml.vb:-We will upload text file in this example.
Class Window1
Private Sub BrowseButton_Click(ByVal sender As System.Object, ByVal e As
System.Windows.RoutedEventArgs) Handles BrowseButton.Click
Dim openFileDialog As Microsoft.Win32.OpenFileDialog = New
Microsoft.Win32.OpenFileDialog()
openFileDialog.DefaultExt = ".txt"
openFileDialog.Filter = "Text documents (.txt)|*.txt"
If (openFileDialog.ShowDialog() = True) Then
Dim fileName As String = openFileDialog.FileName
If (openFileDialog.FileName.Length > 0) Then
FileNameTextBox.Text = openFileDialog.FileName
End If
End If
End Sub
End Class
We will upload word file in this example.
Class Window1
Private Sub BrowseButton_Click(ByVal sender As System.Object, ByVal e As
System.Windows.RoutedEventArgs) Handles BrowseButton.Click
Dim openFileDialog As Microsoft.Win32.OpenFileDialog = New
Microsoft.Win32.OpenFileDialog()
openFileDialog.DefaultExt = ".doc"
openFileDialog.Filter = "Word documents (.doc)|*.doc"
If (openFileDialog.ShowDialog() = True) Then
Dim fileName As String = openFileDialog.FileName
If (openFileDialog.FileName.Length > 0) Then
FileNameTextBox.Text = openFileDialog.FileName
End If
End If
End Sub
End Class
Output:-