ImageGear for .NET User Guide > Getting Started > ImageGear for .NET Visual Studio 2008/2005 Tutorials > ImageGear for .NET VB.NET Tutorial > Adding Office Support |
Once the base of the tutorial application is completed, you can extend it with Office support using the following steps:
You should now have the ImageGear21.Formats.Office assembly listed under References in the Solution Explorer.
VB.NET Example |
Copy Code |
---|---|
Imports ImageGear.Formats.Office; |
VB.NET Example |
Copy Code |
---|---|
' Add support for Word files
ImGearFileFormats.Filters.Add(ImGearOffice.CreateWordFormat()) |
VB.NET Example |
Copy Code |
---|---|
Private igDocument As ImGearDocument Private currPageNumber As Integer = -1 |
VB.NET Example |
Copy Code |
---|---|
Private Sub UpdateMainView() ImGearPageView1.Page = igPage ImGearPageView1.Update() End Sub |
VB.NET Example |
Copy Code |
---|---|
igPage = ImGearFileFormats.LoadPage(stream, 0) |
and replace it with:
VB.NET Example |
Copy Code |
---|---|
igDocument = ImGearFileFormats.LoadDocument(stream, 0, -1) currPageNumber = 0 igPage = igDocument.Pages(currPageNumber) igPageDisplay = New ImGearPageDisplay() ImGearPageView1.Display = igPageDisplay |
Also replace the following code:
VB.NET Example |
Copy Code |
---|---|
If Not igPage Is Nothing AndAlso Not igPage.DIB Is Nothing Then ' create a new page display igPageDisplay = New ImGearPageDisplay(igPage) ' associate the page display with the page view ImGearPageView1.Display = igPageDisplay ' cause the page view to repaint ImGearPageView1.Invalidate() End If |
with:
VB.NET Example |
Copy Code |
---|---|
If Not igPage Is Nothing Then UpdateMainView() End If |
VB.NET Example |
Copy Code |
---|---|
currPageNumber = 0 igPage = igDocument.Pages(currPageNumber) UpdateMainView() |
VB.NET Example |
Copy Code |
---|---|
If (currPageNumber - 1 >= 0) Then currPageNumber -= 1 igPage = igDocument.Pages(currPageNumber) UpdateMainView() End If |
VB.NET Example |
Copy Code |
---|---|
If (currPageNumber + 1 < igDocument.Pages.Count) Then currPageNumber += 1 igPage = igDocument.Pages(currPageNumber) UpdateMainView() End If |
VB.NET Example |
Copy Code |
---|---|
currPageNumber = igDocument.Pages.Count - 1 igPage = igDocument.Pages(currPageNumber) UpdateMainView() |
Now you are ready to compile and run the finished application working with Office documents.