Problem in CommonDialog Control

Posted on 2005-04-11
Last Modified: 2010-05-02
hi expert
when i user commondialog control to select font

Private Sub SelectFont_Click()
End Sub

it gives this error

There are no font installed
open the fonts folder from the control panel to install fonts

any one has idea what to do in this situation
Question by:vsvb
    LVL 12

    Expert Comment

    You have to set flags before calling showfont

    cdlCFScreenFonts, cdlCFPrinterFonts, cdlCFBoth
    LVL 12

    Accepted Solution

    Put this line before CommonDialog1.ShowFont

    CommonDialog1.Flags = cdlCFBoth
    LVL 12

    Expert Comment

    Can I ask why I got grade B?

    Write Comment

    Please enter a first name

    Please enter a last name

    We will never share this with anyone.

    Featured Post

    Threat Intelligence Starter Resources

    Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

    There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
    When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
    Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
    Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

    737 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    22 Experts available now in Live!

    Get 1:1 Help Now