‘VB.NET Code

Imports System
Imports System.ComponentModel
Imports System.Drawing.Design
Imports System.IO
Imports System.Windows.Forms
Imports System.Windows.Forms.Design

Public Class SelectorTypeFileDialog
Public Class FileSelectorTypeEditor
Inherits UITypeEditor

Public Overloads Overrides Function GetEditStyle(ByVal context As ITypeDescriptorContext) As UITypeEditorEditStyle
If context Is Nothing OrElse context.Instance Is Nothing Then
Return MyBase.GetEditStyle(context)
End If
Return UITypeEditorEditStyle.Modal
End Function

Public Overloads Overrides Function EditValue(ByVal context As ITypeDescriptorContext, ByVal provider As IServiceProvider, ByVal value As Object) As Object
Dim editorService As IWindowsFormsEditorService

If context Is Nothing OrElse context.Instance Is Nothing OrElse provider Is Nothing Then
Return value
End If

Try
‘ get the editor service, just like in windows forms
editorService = DirectCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)

Dim dlg As New OpenFileDialog()
dlg.Filter = “All Files (*.*)|*.*”
dlg.CheckFileExists = True

Dim filename As String = DirectCast(value, String)
If Not File.Exists(filename) Then
filename = Nothing
End If
dlg.FileName = filename

Using dlg
Dim res As DialogResult = dlg.ShowDialog()
If res = DialogResult.OK Then
filename = dlg.FileName
End If
End Using

Return filename
Finally
editorService = Nothing
End Try
End Function
End Class
End Class

Can you comment on that please

kenny

Please can you explain it again.