• Home
 · 
• Custom Controls/Forms/Menus
 · 
• How to use the common dialog control

How to use the common dialog control

Use of 3 types of common dialog boxes:1: choose printer, 2: choose font, 3: choose color. https://137.56.41.168:2080/VisualBasicSource/vb4usecommondialog.txt

Rate How to use the common dialog control

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

'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