3.3. My typical VB.NET desktop application. Fill TreeView and ListView without binding.
I have many descriptions how to fill TreeView with React, for example Multi Languages Spell Checker for webmaster. Part 3. Directory observer on NET Reactive extension., but in this page I describe simplest way to create TreeView nodes.
Firstly need to link ImageList to TreeView:
And after that you can fill treeview by the same way:
265:
266: Sub BuildTreeView()
267: For Each Top As v_GetUsers1 In VGetUsers1BindingSource.DataSource
268: Dim TopNode = New TreeNode With {.Text = Top.UserName, .Tag = Top.UserID, .ImageIndex = 1}
269: TreeView1.Nodes.Add(TopNode)
270: For Each Box As p_GetMailBox1_Result In db1.p_GetMailBox1(Top.UserID).ToList
271: Dim BoxNode As New TreeNode With {.Text = Box.login, .Tag = Box.idmailbox, .ImageIndex = 2}
272: TopNode.Nodes.Add(BoxNode)
273: Dim BoxType1 As New TreeNode With {.Text = "Inbox", .ImageIndex = 3}
274: BoxNode.Nodes.Add(BoxType1)
275: Dim BoxType2 As New TreeNode With {.Text = "Outbox", .ImageIndex = 4}
276: BoxNode.Nodes.Add(BoxType2)
277: Dim BoxType3 As New TreeNode With {.Text = "Sent", .ImageIndex = 5}
278: BoxNode.Nodes.Add(BoxType3)
279: Dim BoxType4 As New TreeNode With {.Text = "Deleted", .ImageIndex = 6}
280: BoxNode.Nodes.Add(BoxType4)
281: Dim BoxType5 As New TreeNode With {.Text = "Drafts", .ImageIndex = 7}
282: BoxNode.Nodes.Add(BoxType5)
283: Dim BoxType6 As New TreeNode With {.Text = "Filed", .ImageIndex = 8}
284: BoxNode.Nodes.Add(BoxType6)
285: Dim BoxType7 As New TreeNode With {.Text = "Search", .ImageIndex = 9}
286: BoxNode.Nodes.Add(BoxType7)
287: Next
288: Next
Filling Listview without binding is pretty simple too:
265:
220:
221: Sub FillAttachmentListListView(Attachments As IEnumerable(Of MimeKit.MimeEntity))
222: AttachmentListListView.Items.Clear()
223: If Attachments.Count = 0 Then
224: AttachmentListListView.BackColor = SystemColors.Control
225: Else
226: AttachmentListListView.BackColor = SystemColors.Window
227: For Each One As MimeKit.MimePart In Attachments
228: If One.IsAttachment Then
229: Dim AttItem As New ListViewItem(One.FileName, 0)
230: AttItem.ToolTipText = One.ContentType.ToString
231: AttachmentListListView.Items.Add(AttItem)
232: End If
233: Next
234: 'AttachmentListListView.Columns(AttachmentListListView.Columns.Count - 1).Width = -2
235: AttachmentListListView.Refresh()
236: End If
Also in ListView I usually create own draw module, if I moving cursor out of ListView, selected row is showing as necessary.
Ti rich this need firstly set particular parameters to ListView
18: AttachmentListListView.OwnerDraw = True
And after that handles particular event:
239: Dim AttachmentListListViewLostFocusItem As Integer = -1
240: Private Sub AttachmentListListView_Leave(sender As Object, e As EventArgs) Handles AttachmentListListView.Leave
241: AttachmentListListViewLostFocusItem = AttachmentListListView.FocusedItem.Index
242: End Sub
243:
244: Private Sub AttachmentListListView_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles AttachmentListListView.DrawItem
245: If e.Item.Selected Then
246: If AttachmentListListViewLostFocusItem = e.Item.Index Then
247: e.Item.ForeColor = Color.Black
248: e.Item.BackColor = Color.LightBlue
249: AttachmentListListViewLostFocusItem = -1
250: ElseIf AttachmentListListView.Focused Then
251: e.Item.ForeColor = SystemColors.HighlightText
252: e.Item.BackColor = SystemColors.Highlight
253: End If
254: Else
255: e.Item.ForeColor = AttachmentListListView.ForeColor
256: e.Item.BackColor = AttachmentListListView.BackColor
257: End If
258: e.DrawBackground()
259: e.DrawText()
260: End Sub
Comments (
)
<00>
<01>
<02>
<03>
<04>
<05>
<06>
<07>
<08>
<09>
<10>
<11>
<12>
<13>
<14>
<15>
<16>
<17>
<18>
<19>
<20>
<21>
<22>
<23>
Link to this page:
//www.vb-net.com/Samantha/FillView.htm
<SITEMAP> <MVC> <ASP> <NET> <DATA> <KIOSK> <FLEX> <SQL> <NOTES> <LINUX> <MONO> <FREEWARE> <DOCS> <ENG> <CHAT ME> <ABOUT ME> < THANKS ME> |