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

这篇博客展示了如何在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

内有设计窗体的图片,和运行效果图 该窗体由全图片构造,包括,标题栏,最大化、最小化、关闭按钮,一下为部分代码, Private Sub Form_load() Dim retValue As Long Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image7.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image8.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Form1.Top = 0 '设置窗体上边界位置 Form1.Left = Screen.Width - Form1.Width retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW) End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub Private Sub Image2_Click() Form1.WindowState = 1 End Sub Private Sub Image4_Click() End End Sub Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image5_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image6_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值