VB--窗口设计2021/11/3

DAaAAXiN

于 2021-11-03 16:10:09 发布

阅读量519

点赞数

文章标签： vb.net

本文链接：https://blog.csdn.net/DAaAAXiN/article/details/121123673

版权

这篇博客展示了如何在VB.NET中进行窗口设计和数据操作。内容包括使用XML文档加载数据，创建并绑定数据列表到GridControl，以及在用户交互中动态添加和修改数据。涉及到的类有RuleDataClass、ProjectDataClass、CalculatorDataClass。

摘要由CSDN通过智能技术生成

Imports System.Xml

Public Class Form1
Public className As String = "框架柱"
Public proName As String = "a1"

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load, GridControl2.Load
Dim RuleDataList As New List(Of RuleDataClass)
Dim objData As New RuleDataClass("asdas", "bbb", ">", "1200")
RuleDataList.Add(objData)
GridControl1.DataSource = RuleDataList
Dim PreList As New List(Of ProjectDataClass)
'PreList.Add(New ProjectDataClass("2"))
'PreList.Add(New ProjectDataClass("3"))
'PreList.Add(New ProjectDataClass("4"))
GridControl2.DataSource = PreList
Dim CaList As New List(Of CalculatorDataClass)
CaList.Add(New CalculatorDataClass(">"))
CaList.Add(New CalculatorDataClass("<"))
CaList.Add(New CalculatorDataClass("="))

Dim xd As XmlDocument = New XmlDocument

xd.Load("C:\Users\Administrator\Desktop\新建文件夹\2021\新建文本文档.xml")
Dim List1 As New List(Of String)
Dim ShapeNode As XmlNode = xd.SelectSingleNode("root")
Dim XmlCol As New Collection
For Each ClassNode As XmlElement In ShapeNode.ChildNodes
If ClassNode.GetAttribute("Name") <> className Then Continue For
For Each ProperNode