Visual Basic Programming Code Examples

Visual Basic > Common Dialogs Code Examples

Use the commondialogcontrol (Font, Printer, Color)



Use the commondialogcontrol (Font, Printer, Color)

'use of commondialogbox

'1: choose printer
'2: choose font
'3: choose color


'1: choose printer
Public sub ChoosePrinter
    Const ErrCancel = 32755
    CommonDialog1.CancelError = True

On Error GoTo errorPrinter

    CommonDialog1.Flags = 64
    'see the help on Flags Properties (Print Dialog)
    CommonDialog1.ShowPrinter
    CommonDialog1.PrinterDefault = False
    exit Sub

errorPrinter:
    If Err = ErrCancel Then exit sub Else Resume

End Sub

'2: choose font

Global vScreenFont, vScreenFontSize

Public sub ChooseFont()
    CommonDialog1.Flags = cdlCFScreenFonts
    'see the help on Flags Properties (Font Dialog)
    CommonDialog1.ShowFont
    
    vScreenFont = CommonDialog1.FontName
    vScreenFontSize = CommonDialog1.FontSize
    Call ChangeFont(Form1)
    
End Sub

Public sub ChangeFont(X as Form)
    dim Control
        
    For Each Control In X.Controls
        If TypeOf Control Is label Or _
            TypeOf Control Is TextBox Or _
            TypeOf Control Is CommandButton Or _
            TypeOf Control Is ComboBox Or _
            TypeOf Control Is ListBox Or _
            TypeOf Control Is CheckBox Then
                
                Control.Font = vScreenFont
                Control.FontSize = vScreenFontSize
        end If
    Next Control
    
End Sub

'3: choose color

Global vColor

Public sub ChooseColor

    CommonDialog1.Flags = &H1& Or &H4&
    'see the help on Flags Properties (Color Dialog)
    CommonDialog1.ShowColor
    vColor = CommonDialog1.Color

'    if you want to convert the color to hex use  
'    MsgBox Convert2Hex(vColor)
'    if you want to repaint youre background use
'    Call ChangeColor(X as Form)

End Sub

Public sub ChangeColor(X as Form)
    dim Control

    X.BackColor = vColor        
    For Each Control In X.Controls
        If TypeOf Control Is label Or _
            TypeOf Control Is TextBox Or _
            TypeOf Control Is CommandButton Or _
            TypeOf Control Is ComboBox Or _
            TypeOf Control Is ListBox Or _
            TypeOf Control Is CheckBox Then
                
                Control.BackColor = vColor
        end If
    Next Control

End Sub

Public Function Convert2Hex(color) as String
	Dim RedValue, GreenValue, BlueValue

        RedValue = (color And &HFF&)
        GreenValue = (color And &HFF00&) \ 256
        BlueValue = (color And &HFF0000) \ 65536
        Convert2Hex = Format(Hex(RedValue) & Hex(GreenValue) & Hex(BlueValue), "000000")

End Function

Return