Миша, ты вот скажи мне, почему в Visual Studio 2017 не работает код написанный в Visual Studio 2013, повторяю слово в слово с экрана? Может есть какая обратная совместимость?
Например:
и еще вот это всегда не находит
Все референсы на фреймворки выставлены.
Например:
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
Dim dir As New DirectoryInfo(e.Node.Tag)
ListView1.Items.Clear()
LargeImageList.Images.RemoveByKey(".exe")
SmallImageList.Images.RemoveByKey(".exe")
For Each thisFile In dir.GetFiles()
Dim item As New ListViewItem(thisFile.Name)
Dim lastWrite = thisFile.LastWriteTime
item.SubItems.Add(lastWrite.ToShortDateStrin() & " " & lastWrite.ToShortTimeString())
item.SubItems.Add(Math.Ceiling(thisFile.Lenght / 24) & " KB")
If Not LargeImageList.Images.ContainsKey(thisFile.Extension) Then
Dim thisIcon = Icon.ExtractAssociatedIcon(thisFile.FullName)
SmallImageList.Images.Add(thisFile.Extension, thisIcon)
LargeImageList.Images.Add(thisFile.Extension, thisIcon)
End If
item.ImageKey = thisFile.Extension
ListView1.Items.Add(item)
Next
End Sub
Dim dir As New DirectoryInfo(e.Node.Tag)
ListView1.Items.Clear()
LargeImageList.Images.RemoveByKey(".exe")
SmallImageList.Images.RemoveByKey(".exe")
For Each thisFile In dir.GetFiles()
Dim item As New ListViewItem(thisFile.Name)
Dim lastWrite = thisFile.LastWriteTime
item.SubItems.Add(lastWrite.ToShortDateStrin() & " " & lastWrite.ToShortTimeString())
item.SubItems.Add(Math.Ceiling(thisFile.Lenght / 24) & " KB")
If Not LargeImageList.Images.ContainsKey(thisFile.Extension) Then
Dim thisIcon = Icon.ExtractAssociatedIcon(thisFile.FullName)
SmallImageList.Images.Add(thisFile.Extension, thisIcon)
LargeImageList.Images.Add(thisFile.Extension, thisIcon)
End If
item.ImageKey = thisFile.Extension
ListView1.Items.Add(item)
Next
End Sub
Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
If Me.ActiveMdiChild IsNot Nothing Then
Dim childForm = CType(Me.ActiveMdiChild, ChildForm)
Dim dialog As New SaveFileDialog()
dialog.Filter = "Rich text file|*.rtf"
dialog.AddExtension = True
Dim result = dialog.ShowDialog()
If result = Windows.Forms.DialogResult.Ok Then
childForm.DocumentTextBox.SaveFile(dialog.FileName)
childForm.Text = dialog.FileName
End If
End If
End Sub
If Me.ActiveMdiChild IsNot Nothing Then
Dim childForm = CType(Me.ActiveMdiChild, ChildForm)
Dim dialog As New SaveFileDialog()
dialog.Filter = "Rich text file|*.rtf"
dialog.AddExtension = True
Dim result = dialog.ShowDialog()
If result = Windows.Forms.DialogResult.Ok Then
childForm.DocumentTextBox.SaveFile(dialog.FileName)
childForm.Text = dialog.FileName
End If
End If
End Sub
Comment