Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitSplitterContainer()
AddListViewItems()
End Sub
Sub InitSplitterContainer()
' Basic SplitContainer properties.
' This is a vertical splitter that moves in 10-pixel increments.
' This splitter needs no explicit Orientation property because Vertical is the default.
SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
SplitContainer1.Location = New System.Drawing.Point(0, 0)
SplitContainer1.Name = "splitContainer1"
' You can drag the splitter no nearer than 30 pixels from the left edge of the container.
SplitContainer1.Panel1MinSize = 30
' You can drag the splitter no nearer than 20 pixels from the right edge of the container.
SplitContainer1.Panel2MinSize = 20
SplitContainer1.Location = New Point(0, 0)
SplitContainer1.Size = New System.Drawing.Size(Me.ClientSize.Width, Me.ClientSize.Height)
SplitContainer1.Anchor = AnchorStyles.Bottom Or AnchorStyles.Right Or AnchorStyles.Left Or AnchorStyles.Top
SplitContainer1.SplitterDistance = 200
' This splitter moves in 10-pixel increments.
SplitContainer1.SplitterIncrement = 10
SplitContainer1.SplitterWidth = 6
' splitContainer1 is the first control in the tab order.
SplitContainer1.TabIndex = 0
SplitContainer1.Text = "splitContainer1"
' Add a ListView control to Panel1.
SplitContainer1.Panel1.Controls.Add(ListView1)
SplitContainer1.Panel1.Name = "splitterPanel1"
' Add a RichTextBox control to Panel1.
SplitContainer1.Panel2.Controls.Add(RichTextBox1)
SplitContainer1.Panel2.Name = "splitterPanel2"
ListView1.Location = New Point(0, 0)
RichTextBox1.Location = New Point(0, 0)
ResizeControls()
End Sub
Private Sub SplitContainer1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles SplitContainer1.Resize
ResizeControls()
End Sub
Private Sub ResizeControls()
ListView1.Size = SplitContainer1.Panel1.ClientSize
RichTextBox1.Size = SplitContainer1.Panel2.ClientSize
End Sub
Private Sub SplitContainer1_SplitterMoved(ByVal sender As Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles SplitContainer1.SplitterMoved
ResizeControls()
End Sub
Private Sub AddListViewItems()
' Create an ImageList object.
Dim imageListSmall As New ImageList()
imageListSmall.Images.Add("document", Bitmap.FromFile("C:\document.bmp"))
'Assign the ImageList objects to the ListView.
ListView1.SmallImageList = imageListSmall
ListView1.Clear()
' Set the view to show details.
ListView1.View = View.Details
' Allow the user to edit item text.
ListView1.LabelEdit = False
' Allow the user to rearrange columns.
ListView1.AllowColumnReorder = True
' Select the item and subitems when selection is made.
ListView1.FullRowSelect = True
' Display grid lines.
ListView1.GridLines = True
' Sort the items in the list in ascending order.
ListView1.Sorting = SortOrder.Ascending
' Create columns for the items and subitems.
ListView1.Columns.Add("Bestandsnaam", 150, HorizontalAlignment.Left)
ListView1.Columns.Add("Laatst gewijizgd op", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Bestandsgrootte", 100, HorizontalAlignment.Left)
Try
For Each foundFile As String In System.IO.Directory.GetFiles("c:\windows", "*.log", IO.SearchOption.TopDirectoryOnly)
Dim fi As System.IO.FileInfo = New System.IO.FileInfo(foundFile)
Dim Item As New ListViewItem(fi.Name, "document")
Item.SubItems.Add(fi.LastWriteTime)
Item.SubItems.Add(fi.Length)
listView1.Items.add(item)
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
If ListView1.SelectedItems.Count > 0 Then
Try
Dim fname As String = "c:\windows\" & ListView1.SelectedItems(0).Text
RichTextBox1.LoadFile(fname, RichTextBoxStreamType.PlainText)
Catch ex As Exception
RichTextBox1.Clear()
MessageBox.Show(ex.Message)
End Try
End If
End Sub
