BUG: Common Dialog May Not Display the Current Font

Last reviewed: July 14, 1997
Article ID: Q154820

The information in this article applies to:

Standard, Professional, and Enterprise Editions of Microsoft Visual Basic, 16-bit and 32-bit, for Windows, version 4.0

SYMPTOMS

When you have set the common dialog controls FontName property, displaying the Font common dialog can result in the selected font being blank.

CAUSE

The problem is caused by setting the FontName property before setting the Flags property. It also occurs when the Flags property has already been set.

RESOLUTION

Set the Flags property to 0 before setting the FontName property. Then set the Flags property to the desired combination of flags after setting the FontName property.

STATUS

Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.

MORE INFORMATION

Steps to Reproduce Problem

Start a project in Visual Basic. Form1 is created by default.

Place two Command buttons on the form.

Place a common dialog control onto the form.

Add the following to the Command1_Click event:

   Private Sub Command1_Click()

     'This method will fail
     CommonDialog1.Flags = cdlCFBoth + cdlCFEffects
     CommonDialog1.FontName = "MS Sans Serif"
     CommonDialog1.ShowFont

   End Sub

Add the following to the Command2_Click event:

   Private Sub Command2_Click()

     'This method will work
     CommonDialog1.Flags = 0   'Required before setting FontName
     CommonDialog1.FontName = "MS Sans Serif"
     CommonDialog1.Flags = cdlCFBoth + cdlCFEffects
     CommonDialog1.ShowFont

   End Sub

Choose Start from the Run menu, or press the F5 key to start the program.

Click the Command buttons and observe the behavior.

Keywords : PrgCtrls vb4all vb4win
Version : 4.0
Platform : NT WINDOWS
Issue type : kbbug

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: July 14, 1997
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.