CommonDialog: code

Voor het openen van een bestand
Private Sub cmdOpen_Click()
cdlTest.ShowOpen
If Not cdlTest.FileName = "" Then MsgBox "Je vraagt om bestand " & cdlTest.FileName & " te openen"
End Sub
Voor het aanvragen van opslaan
Private Sub cmdSave_Click()
cdlTest.ShowSave
If Not cdlTest.FileName = "" Then MsgBox "Je vraagt om op te slaan als " & cdlTest.FileName
End Sub
Voor de kleur
Private Sub cmdColor_Click()
cdlTest.ShowColor
Me.BackColor = cdlTest.Color
End Sub
Voor het lettertype
Private Sub cmdFont_Click()
cdlTest.Flags = cdlCFBoth
cdlTest.ShowFont
cmdFont.FontName = cdlTest.FontName
cmdFont.FontBold = cdlTest.FontBold
cmdFont.FontItalic = cdlTest.FontItalic
cmdFont.FontSize = cdlTest.FontSize
cmdFont.FontStrikethru = cdlTest.FontStrikethru
cmdFont.FontUnderline = cdlTest.FontUnderline
End Sub
Voor het openen van een helpbestand
Private Sub cmdHelp_Click()
App.HelpFile = "c:\windows\help\wordpad.hlp"
cdlTest.HelpCommand = cdlHelpIndex
cdlTest.ShowHelp
End Sub
Voor het aanvragen van een afdruk
Private Sub cmdPrint_Click()
Dim orientatie As String
cdlTest.ShowPrinter
If cdlTest.Orientation = cdlLandscape Then
orientatie = "Landscape"
Else
orientatie = "Portrait"
End If
MsgBox "Je vraagt om af te drukken " & cdlTest.Copies & " kopij(en) van bladzijde " & cdlTest.FromPage & " tot bladzijde " & cdlTest.ToPage & " in " & orientatie
End Sub