#257 - Ersättning för Common Dialog Control

Denna class är en utmärkt ersättare för Common Dialog kontrollen som kommer med VB.
Förutom de vanliga dialogerna innehåller denna också BrowseForFolder dialogen.

Några andra finesser är att alla ShowXXX metoderna returnerar False om användaren klickat på Avbryt knappen.
Du måste inte ange en massa flaggor eftersom de vanligaste är redan förinställda och andra sätter du med vanliga properties.

Så här använder du classen för att visa en dialog ruta:

Private Sub Command1_Click()
Dim dlg As CCommonDialogs

Set dlg = New CCommonDialogs
Call dlg.Init(Me) 'ange ägarfönster denna måste anropas
If dlg.ShowFolder = True Then
MsgBox "Sökväg:" & vbCrLf & dlg.Path
End If
End Sub


Ha det så kul!