FIX: Painting Problems When FontItalic Set True for Text Box (94293)

CAUSE

This problem is because of spacing. Italic fonts take up more room for each character entered, but the text box does not account for this. The problem occurs only when you type text into the text box. If you assign text to the Text property at run-time, the problem does not occur.

WORKAROUND

To work around the problem, use the Refresh method to refresh the text box each time a character is pressed. For best results, you should enable a timer from within the KeyPress event for the text box. From within the timer event, you can then use the Refresh method to refresh the contents of the text box.

For example, you can work around the problem by adding the following steps to those listed in the "More Information" section:

Add a timer (Timer1) to Form1.

Add the following code to the Text1_KeyPress event:

   Sub Text1_KeyPress (KeyAscii As Integer)
      Timer1.Interval = 1
      Timer1.Enabled = True
   End Sub

Add the following code to the Timer1_Timer event for Timer1.

   Sub Timer1_Timer ()
      Text1.Refresh

      'Disable the timer since you do not want the timer event
      'to be continually executed
      Timer1.Enabled = False

   End Sub

From the Run menu, choose Start (ALT, R, S).
Enter some text in the Text1 text box. The characters should now paint correctly.

MORE INFORMATION

Steps to Reproduce Problem

Start Visual Basic or from the File menu, choose New Project (ALT, F, N) if Visual Basic is already running. Form1 is created by default.
Add a text box (Text1) to Form1.
Set the FontItalic property to True in the Properties Window.
From the Run menu, choose Start (ALT, R, S) or press the F5 key to run the program.
Type ffff (4 f characters) in Text1.

Notice that when you press a character, the previous character does not paint correctly. For example, in the case of using the letter f, only the bottom half of the character paints.