Ellipses and TreeView - Visual Basic .NET - Ответ 4404591

Public Class Form1
 
    Dim g As Graphics
    Dim q As Random
    Dim y As Integer
    Dim x As Integer
    Private ndColor As TreeNode
    Private ndLightGreen As TreeNode
    Private ndDarkGreen As TreeNode
 
    Private ndRed As TreeNode
    Private ndGreen As TreeNode
    Private ndYellow As TreeNode
 
    Private Sub Forml_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillTreeView()
       
 
       
    End Sub
 
    Private Sub FillTreeView()
        Dim imgLst As New ImageList()
       
        ndColor = New TreeNode("Цвет")
        TreeView1.Nodes.Add(ndColor)
        ndRed = New TreeNode("Красный")
        ndGreen = New TreeNode("Зеленый")
        ndYellow = New TreeNode("Желтый")
        ndColor.Nodes.Add(ndRed)
        ndColor.Nodes.Add(ndGreen)
        ndColor.Nodes.Add(ndYellow)
        ndLightGreen = New TreeNode("Светло-зеленый")
        ndDarkGreen = New TreeNode("Темно-зеленый")
        ndGreen.Nodes.Add(ndLightGreen)
        ndGreen.Nodes.Add(ndDarkGreen)
        TreeView1.ImageList = imgLst
        ndColor.ImageIndex = 0
        ndRed.ImageIndex = 1
        ndRed.SelectedImageIndex = 2
        ndGreen.ImageIndex = 3
        ndGreen.SelectedImageIndex = 4
        ndYellow.ImageIndex = 5
        ndYellow.SelectedImageIndex = 6
        ndLightGreen.ImageIndex = 7
        ndLightGreen.SelectedImageIndex = 8
        ndDarkGreen.ImageIndex = 9
        ndDarkGreen.SelectedImageIndex = 10
        ndColor.ExpandAll()
    End Sub
 
    Private Sub TreeViewl_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        ' If e.Node Is ndLightGreen Then
        'MyClass.BackColor = Color.LightGreen
        '  End If
        ' If e.Node Is ndDarkGreen Then
        'MyClass.BackColor = Color.DarkGreen
        ' End If
        ' If e.Node Is ndRed Then
        'MyClass.BackColor = Color.Red
        'End If
        ' If e.Node Is ndYellow Then
        'MyClass.BackColor = Color.Yellow
        ' End If
        ' If e.Node Is ndLightGreen Then
        'MyClass.BackColor = Color.LightGreen
        '  End If
        '  If e.Node Is ndGreen Then
        '  MyClass.BackColor = Color.Green
        ' End If
        ''''''''''''
        '   Dim O As Graphics
        '   O = PictureBox1.CreateGraphics
        '   Drawing.Graphics()
        '   Dim g As Graphics
 
 
 
    End Sub
    
    ' Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    'Dim g As Graphics
    ' Dim q As New Random
    ' Dim y As Integer
    ' Dim x As Integer
    '    x = q.Next(800)
    '    y = q.Next(800)
    '   g = e.Graphics()
 
    '   g.DrawEllipse(New Pen(Color.Navy), x, y, 200, 200)
 
 
    ' End Sub