Hallo zusammen,ich benötige für einen Ordner eine Refresh Funktion, die den Inhalt z.B. Images nach einer gewissen Zeit einfach aktualisiert
(automatisch ohne einen Button).
Ich habe bereits ein paar Sachen getestet, füge allerdings immer den alten Inhalt + neuen hinzu.
Ich verwende WindowsForms VB.
Ein weiterer Punkt wäre, die Images als eine Art Preview bzw. thumbnail im Ordner anzeigen zu lassen.
Ich bin sehr dankbar für jede Hilfe!
(automatisch ohne einen Button).
Ich habe bereits ein paar Sachen getestet, füge allerdings immer den alten Inhalt + neuen hinzu.
Ich verwende WindowsForms VB.
Ein weiterer Punkt wäre, die Images als eine Art Preview bzw. thumbnail im Ordner anzeigen zu lassen.
Ich bin sehr dankbar für jede Hilfe!
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Try
- FolderBrowserDialog1.ShowDialog()
- For Each item As String In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchTopLevelOnly)
- ImageList1.Images.Add(Icon.ExtractAssociatedIcon(item))
- ListView1.Items.Add(My.Computer.FileSystem.GetName(item), ImageList1.Images.Count - 1)
- ListBox1.Items.Add(item)
- Next
- Catch ex As Exception
- End Try
- 'PictureBox EventHandler
- AddHandler PictureBox1.MouseUp, AddressOf _MouseUp
- End Sub
- Private Sub ListView1_ItemSelectionChanged(sender As Object, e As ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
- Dim x As Integer = Nothing
- If e.IsSelected Then
- ListBox1.SelectedIndex = ListView1.SelectedIndices(0)
- 'Dim selecteditem As String = ListBox1.SelectedItem
- 'Process.Start(selecteditem)
- End If
- End Sub
- Dim ttip As New ToolTip()
- Dim _dragActive As Boolean = False
- Dim _dragName As String = Nothing
- Private Sub ListView1_ItemDrag(sender As Object, e As ItemDragEventArgs) Handles ListView1.ItemDrag
- Dim lvItem As ListViewItem = DirectCast(e.Item, ListViewItem)
- _dragActive = True
- _dragName = ListBox1.SelectedItem
- Timer1.Start()
- End Sub
- Private Sub _MouseUp(ByVal sender As System.Object, ByVal e As MouseEventArgs)
- If e.Button = MouseButtons.Left AndAlso _dragActive Then
- 'Process.Start(ListBox1.SelectedItem)
- PictureBox1.Load(ListBox1.SelectedItem)
- End If
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- If _dragActive = True AndAlso MouseButtons.HasFlag(MouseButtons.Left) Then
- Dim cp = Cursor.Position
- cp.Y += CInt(Cursor.Size.Height * 1.5)
- ttip.Show(_dragName, Me, PointToClient(cp))
- Else
- ttip.Hide(Me)
- _dragActive = False
- End If
- End Sub
- Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
- End Sub
- End Class