By Mike Gold June 25, 2003
This article covers a fairly practical aspect of using a computer - dealing with forms. The concepts in this article can be used to create any Form Application so that you can design forms that you can Fill Out, Open, Save, Print and Print Preview.
W2FormMG.zip
| ||||||||||||||
Fig 1.0-Print Preview of the W2 Form.
If you are a VB programmer, before you run out and buy that latest version of your favorite tax program, you may want to consider this useful article on form creation. This article covers a fairly practical aspect of using a computer-Fdealing with forms. The concepts in this article can be used to create any Form Application so that you can design forms that you can Fill Out, Open, Save, Print and Print Preview. Below is the simple UML design of our W2 Form Filler Application:
Fig 1.1-UML Doc/View Design of W2 Form App reverse engineered using WithClass 2000.
The first step to creating the form is to scan in the Form and convert it to a .gif file. You can also get most forms these days electronically from the .gov sites that supply them. Once you've got the form in a .gif (or jpeg or whatever), you can apply it to your form as an image background. Simply set the forms BackgroundImage property to the gif or jpeg file that you scanned in. Now you are ready to set up the forms edit fields. This form only uses TextBoxes and CheckBoxes. The TextBoxes overlay the whitespaces for all the places you would normally fill in the form and have names that are appropriate for the particular field on the form. The property window for a TextBox is shown below:
Fig 1.2-Property window of a TextBox in the Form.
The BorderStyle for all textboxes are set to none and the background color(BackColor) is set to the color of the form.
With Checkboxes you need to do a bit of extra work. Since you can't eliminate the border of a checkbox, we needed to go into the jpeg file of the form and remove the checkboxes, so we could place the real checkboxes in the form. You can us MSPaint and the little eraser utility to do this easily enough. The properties of the checkboxes are shown below:
Fig 1.3-Property window of a Checkbox in the Form.
You need to choose the FlatStyle to be Flat for the Checkbox, so the checkbox looks like a checkbox on a typical government form rather than that fun 3d look.
Once we've put all our window controls on the form, we need to set the tab order. This is done by clicking on the form and going into the View menu, then choosing Tab Order.
Fig 1.4-Choosing Tab Order from the View Menu.
Once you've chosen the Tab Order menu item, you'll notice your form light up with a bunch of boxed numbers. Click in each box in the order you want users to traverse your form.
Now we can get down to some good old-fashioned VB.NET coding (well not that old-fashioned yet ;-). This application handles many aspects of C# .NET coding (serialization, printing, print preview). We are only going to talk about printing in detail in this article, because, well, it's the most interesting. Printing requires that you have a PrintDocument object added to the form. We've also added a PrintDialog object and a PrintPreview Dialog Object. It's much less expensive and time consuming to test printing in the print preview window so you should try to get this working first. The PrintPreview code is shown below:
Private Sub PreviewMenu_Click(sender As Object, e As System.EventArgs)
Dim printPreviewDialog1 As New PrintPreviewDialog()
printPreviewDialog1.Document = Me.printDocument1 ' Attach PrintDocument to PrintPreview Dialog
printPreviewDialog1.FormBorderStyle = FormBorderStyle.Fixed3D
printPreviewDialog1.SetBounds(20, 20, Me.Width, Me.Height) ' enlarge dialog to show the form
printPreviewDialog1.ShowDialog()
End Sub 'PreviewMenu_Click
Listing 1-Code for Print Preview.
Both printing and print preview use the same event to print the form. They both use the PrintPage event from the print document. All printing code is performed in this routine. The printing is done into a Graphics object, which is passed into the print page event arguement:
Private Sub printDocument1_PrintPage(sender As Object, e As System.Drawing.Printing.PrintPageEventArgs )
DrawAll(e.Graphics) ' Pass the Graphics Object (or better known as the Device Context) to the Draw routine
End Sub 'printDocument1_PrintPage
Listing 2-Code For Printing a Page.
The DrawAll routine is in two parts. The first part prints the image scaled to fit on the printed page. The second part cycles through all the controls and prints the text or check mark contained within each control. The program uses the position of the textboxes and checkboxes, along with the scaling factors, to position the filled-in information on the form:
Private Sub DrawAll(g As Graphics).
' Create the source rectangle from the BackgroundImage Bitmap Dimensions
Dim srcRect = New Rectangle(0, 0, Me.BackgroundImage.Width, BackgroundImage.Height) ' Create the destination rectangle from the printer settings holding printer page dimensions
Dim nWidth As Integer = printDocument1.PrinterSettings.DefaultPageSettings.PaperSize.Width
Dim nHeight As Integer = printDocument1.PrinterSettings.DefaultPageSettings.PaperSize.Height
Dim destRect = New Rectangle(0, 0, nWidth, nHeight / 2) ' Draw the image scaled to fit on a printed page
g.DrawImage(Me.BackgroundImage, destRect, srcRect, GraphicsUnit.Pixel)
' Determine the scaling factors of each dimension based on the bitmap and the printed page dimensions
' These factors will be used to scale the positioning of the contro contents on the printed form
Dim scalex As Single = destRect.Width / srcRect.Width
Dim scaley As Single = destRect.Height / srcRect.Height
Dim aPen As New Pen(Brushes.Black , 1) ' Cycle through each control. Determine if it's a checkbox or a textbox and draw the information inside
' in the correct position on the form for (int i = 0; i < this.Controls.Count; i++)
If (True) Then
' Check if its a TextBox type by comparing to the type of one of the textboxes
If Controls(i).GetType() = Me.Wages.GetType() Then
' Unbox the Textbox
Dim theText As TextBox = CType(Controls(i), TextBox) ' Draw the textbox string at the position of the textbox on the form, scaled to the print page
g.DrawString(theText.Text, theText.Font, Brushes.Black, theText.Bounds.Left * scalex, theText.Bounds.Top * scaley, New StringFormat())
End If
If Controls(i).GetType() = Me.RetirementPlanCheck.GetType() Then
' Unbox the Checkbox
Dim theCheck As CheckBox = CType(Controls(i), CheckBox)
' Draw the checkbox rectangle on the form scaled to the print page
Dim aRect As Rectangle = theCheck.Bounds
g.DrawRectangle(aPen, aRect.Left * scalex, aRect.Top * scaley, aRect.Width * scalex, aRect.Height * scaley)
' If the checkbox is checked, Draw the x inside the checkbox on the form scaled to the print page
If theCheck.Checked Then
g.DrawString("x", theCheck.Font, Brushes.Black, theCheck.Left * scalex + 1, theCheck.Top * scaley + 1, New StringFormat()).
End If
End If
End If
End Sub 'DrawAll
Listing 3-Drawing routine for drawing the form to the printer or the print preview.
The actual printing onto a printer begins in the routine below. This routine brings up the print dialog and if the user accepts, it prints the form onto the printer using the PrintPage event previously discussed:
Private Sub menuItem2_Click(sender As Object, e As System.EventArgs)
' Attach the PrintDialog to the PrintDocument Object
printDialog1.Document = Me.printDocument1
' Show the Print Dialog before printing
If printDialog1.ShowDialog () = DialogResult.OK Then
Me .printDocument1.Print() ' Print the Form
End If
End Sub 'menuItem2_Click
Listing 4-Printing Menu Event for printing to the printer.
Serialization.
You may want to browse through the rest of the code to see how serialization is done. This project uses Document/View architecture. The W2Document Class handles persistence for the form (reading/writing) and the W2Document is made serializable by the [Serializable()] attribute inside the class. The read and write routines use the BinaryFormatter Class in combination with the File Class to serialize and deserialize the information extracted from the form.
Improvements.
I think that the project could be made much more useful if the code was ported to the Web Form. Then someone could create an application with VB.NEY running code-behind that outputted the Web Form information into a database rather than a file. Then maybe government, hospitals, insurance companies, law firms and all other businesses dealing with "form-bureaucracy" could get more easily organized ;-) through .NET.
(original source: http://www.vbdotnetheaven.com/uploadfile/mgold/printingw2form04202005045446am/printingw2form.aspx?login=true&user=elinkz )
No comments:
Post a Comment