A Guide To Common Dialog Boxes Including Fonts
||1/23/2015 6:30:00 AM
Visualcode (from psc cd)
By 16 Users
This is for anyone who is having trouble with common dialog boxes.
I have seen many examples on pscode.com , that have messed up
Common Dialogs , mainly when it comes to the font dialog. This tutorial should teach you all you need to know for common dialogs.
Flags - These are simply options or choices you can use.
Using the flags:
'Setting it for use
CommonDialog.Flags = &H1
'Setting it for use of more than one
CommonDialog.Flags = &H1 Or &H4
This is simply the code to start up each dialog box.
CommonDialog.ShowColor 'Lets the user pick a color
CommonDialog.ShowFont 'Lets the user pick font
CommonDialog.ShowOpen 'Lets the user pick a file to open
CommonDialog.ShowPrinter 'Shows Printer Setup
CommonDialog.ShowSave 'Lets the user pick a file to save to
The following are some flags for using the Color dialog boxes.
&H1 - This is one i personally like. This makes the common dialog start showing its current color.
&H2 - This starts with the custom color tab open.
&H4 - This makes it so they can not create custom colors.
&H8 - This adds a help button to the dialog.
&H10 - This will reset the common dialog to default.
The following are some flags for using the Font dialog boxes.
&H1 - Allows the dialog only to list fonts supported by the system.
&H2 - Allows the dialog only to list fonts supported by the printer.
&H3 - Lists the fonts from the two above.
&H4 - Adds a help button.
&H100 - Allows the choices of underline strike thru and color selection.
&H2000 - Shows only font sizes between the min and max.
&H20000 - Allows only fonts that can be scaled.
&H40000 - Allows only true type fonts
Applying to a textbox - For each property you must set it here is an example
that sets it assuming you have &H100 and have a textbox named Text1
Text1.FontName = CommonDialog.FontName
Text1.FontItalic = CommonDialog.FontItalic
Text1.FontBold = CommonDialog.FontBold
Text1.FontStrikethru = CommonDialog.FontStrikethru
Text1.FontUnderline = CommonDialog.FontUnderline
Text1.FontSize = CommonDialog.FontSize
Text1.ForeColor = CommonDialog.Color
ShowOpen And ShowSave:
The following are some flags for using the Open dialog boxes.
&H2 - Forces a warning before overwriting a file
&H8 - Stops default directory from changing
&H10 - Shows help button.
&H200 - This makes it so more than one file can be selected.
&H1000 - This makes it so the file must exist.
&H2000 - This warns the user before creating a new file.
Opening a file:
Open CommonDialog.FileName for Input as #1 'Opens The File
Do until Eof(1) "Loops till complete file added to Textbox
Line Input #1, Tmp
Text1.Text = Text1.Text & Tmp
Close #1 'Closes the file
Saving a file:
Open CommonDialog.FileName for Output as #1 'Opens The File
Print #1, Text1.Text 'Creates The File
Close #1 'Closes the file
The following are some flags for using the Printer dialog boxes.
&H4 - Makes it so they cant choose to print only selected text.
&H8 - Does not allow you to choose to print certain pages like 4-7.
&H800 - This shows the help button.
&H40 - This shows the print setup dialog box rather than the printer dialog box.
&H100000 - This gets rid of the print to file option box.
Printing Landscape - Printer.Orientation = 2
Printing Portrait - Printer.Orientation = 1
Please vote and leave comments.
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come
out every day, so no prevention program can catch 100% of them. For your own safety, please:
- Re-scan downloaded files using your personal virus checker before using it.
- NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
- Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net
Other 1 submission(s) by this author
Report Bad Submission
Other User Comments
There are no comments on this submission.
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular article, please
click here instead.)
To post feedback, first please login.