Visual Basic

Wombaticus wrote:

I guess this old trick goes back before the days of such things...

Private Function reverseFileNameComparer() As Comparison(Of String)
      Return Function(x, y) (String.Compare(Path.GetFileNameWithoutExtension(y), Path.GetFileNameWithoutExtension(x), StringComparison.OrdinalIgnoreCase))
  End Function

  Private Sub AddToCombo(combo As ComboBox, directoryPath As String, filter As String)
      ' Error check, 'IsNothing(combo)' and 'IO.Directory.Exists(directoryPath)' bla-bla
      combo.BeginUpdate()
      For Each fn As String In Directory.EnumerateFiles(directoryPath).OrderByDescending(Function(f) (Path.GetFileNameWithoutExtension(f)))
          combo.Items.Add(Path.GetFileNameWithoutExtension(fn))
      Next
      combo.EndUpdate()

      ' Or...
      Dim files() As String = Directory.GetFiles(directoryPath, filter)
      Array.Sort(files, reverseFileNameComparer)
      combo.Items.AddRange(Array.ConvertAll(files, AddressOf Path.GetFileNameWithoutExtension))

      'Since you want to order by file name, I suggest you use the System.IO namespace:
      'You could:
      combo.FormattingEnabled = True
      'Add a handler to 'ComboBox.Format -
      'or --
      combo.DisplayMember = "Name"
      combo.BeginUpdate()
      For Each fio As FileInfo In New DirectoryInfo(directoryPath).EnumerateFiles(filter).OrderByDescending(Function(f) (f.Name))
          combo.Items.Add(fio.Name)

      Next
      combo.EndUpdate()
  End Sub

  Private Sub cboFileInfo_format(sender As Object, e As ListControlConvertEventArgs)
      Dim f As FileInfo = DirectCast(e.ListItem, FileInfo)
      e.Value = f.Name.Substring(f.Name.LastIndexOf("."c) + 1)
  End Sub

Dim dirAccessFiles As String() = Directory.GetFiles("H:\FilesTest", "*.accdb") _
                                          .Select(Function(x) Path.GetFileNameWithoutExtension(x)) _
                                          .OrderByDescending(Function(x) x) _
                                          .ToArray()

cboAccessFile.Items.AddRange(dirAccessFiles)

classy_dog wrote:

1. If there is a way to expand the size of the combo box values while the application is executing, can you show me how to do that?

classy_dog wrote:

I would like the value only of 'Diane__Currentyear' that is listed above to display.

cboAccessFile.Items.Add(dir.replace("H:\FilesTest\",""))

satc wrote:

Each property is defined without Set get.

satc wrote:

I've read somewhere about using MetadataType on my manual Partial class , but I don't know if this can be used in my case ?

Partial Public Class Myobj1
    Public Property id As Integer
    Public Property prc As Decimal
    Public Property categ As Integer
End Class

Imports System.Collections.Generic
Imports System.ComponentModel
Imports MyProg.MyObj1

   <MetadataType(GetType(MyObj1MetaData))> Partial Public Class Myobj1
Friend NotInheritable Class Myobj1MetaData
  Implements INotifyPropertyChanged
Private privatprc As Decimal
    Public Property prc() As Decimal
    Get
        Return privatprc
    End Get
    Set(ByVal value As Decimal)
        privatprc = value
        OnPropertyChanged("prc")
    End Set
End Property

Private privatcateg As Integer
    Public Property categ() As Integer
       Get
           Return privatcateg
        End Get
        Set(ByVal value As Integer)
            privatcateg = value
            OnPropertyChanged("categ")
        End Set
    End Property

 Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
    Private Sub OnPropertyChanged(ByVal propertyc As String)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyc))
    End Sub
End Class
 End Class