vb.net里树状图怎么画

很简单，在页面上拖个treeview,可以直接给它实装数据，运行一下，就可展开。

创新互联公司是一家以网络技术公司，为中小企业提供网站维护、网站设计制作、成都网站设计、网站备案、服务器租用、空间域名、软件开发、微信小程序等企业互联网相关业务，是一家有着丰富的互联网运营推广经验的科技公司，有着多年的网站建站经验，致力于帮助中小企业在互联网让打出自已的品牌和口碑，让企业在互联网上打开一个面向全国乃至全球的业务窗口：建站服务电话：13518219792

VB.NET中怎么给TreeView的父节点添加相对应的子节点？求助各位！

Public Class Form1

Dim node(5) As TreeNode

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

  Dim root As TreeNode

  With TreeView1

      .Nodes.Clear()

      .ShowLines = True

      .ShowPlusMinus = True

      .ShowRootLines = True

      root = .Nodes.Add("仓库") '增加根节点

      .SelectedNode = root  '在此根节点下添加子节点

      For i = 1 To 6

          node(i - 1) = .SelectedNode.Nodes.Add(i.ToString  "号仓库")

      Next

      .ExpandAll()

  End With

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

  If Val(TextBox1.Text) = 100 And Val(TextBox1.Text) = 699 Then

      node(Val(TextBox1.Text) \ 100 - 1).Nodes.Add(TextBox1.Text)

  End If

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

  If Val(TextBox2.Text) = 1000000 And Val(TextBox2.Text) = 6999999 Then

      For Each child As TreeNode In node(Val(TextBox2.Text) \ 1000000 - 1).Nodes

          If child.Text = TextBox2.Text.Substring(1, 3) Then

              child.Nodes.Add(TextBox2.Text)

              Exit For

          End If

      Next

  End If

End Sub

End Class

VB.net中如何画图？

分类: 电脑/网络 程序设计 其他编程语言

问题描述:

VB6中的form1.circle (100,200),rgb(0,255,0)的语句如何在VB中使用啊？

急用啊！！！！！！！！

解析:

VB与VB不同。

VB已经有专门绘图的类。

可以定义笔刷然后用Drawing类中的方法绘制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

网站栏目：vb.net节点图 vbnet dir
文章出自：http://csdahua.cn/article/dojhgeo.html