精华内容
下载资源
问答
  • 2、在窗体添加DBGrid控件DBGrid1和Data控件Data1。 3、设置Data1的DatabaseName属性为你要看的数据库的名字。 4、设置Data1的RecordSource属性为表的名字或合法的SQL Select语句。 5、设置DBGrid1的DataSource...
  • VB中利用ListView控件来制作表格

    千次阅读 2019-11-09 20:49:53
    每个子项目都对应于相关的列标头,无法直接向子项目数组添加元素,只有通过ColumnHeaders的Add方法添加列标头的方法 来添加子项目。 以ListView1为例: 增加列的Add方法: ListView1.ColumnHeaders.Add([index]...

    ListView控件是由ColumnHeader和ListItem对象所组成的,其中ColumnHeader对象的个数决定了控件的列数,而ListItem对象的个数则决定了控件的行数。
    下面介绍一下ListView控件的两个对象及其add方法:
    ColumnHeader对象是ListView控件中包含标头文字的项目,ColumnHeader对象的数目决定每个ListItem对象可包含的子项目数目。
    利用ColumnHeader对象,用户可以:
        1、单击对象触发ColumnClick事件并根据数据项目将项目排序。
        2、拖动对象的右边框来调整列宽度。
        3 、在报表视图中隐藏ColumnHeader对象。

    ListItem对象是指控件中的一行(不包含标头行)的所有内容,它代表ListView控件中ListItem对象的数据。
    ListItem对象可包含任意多个的关联项目数据字符串(子项目),但每个ListItem对象子项目数目必须相同。每个子项目都对应于相关的列标头,无法直接向子项目数组添加元素,只有通过ColumnHeaders的Add方法添加列标头的方法 来添加子项目。

    以ListView1为例:
    增加列的Add方法:
    ListView1.ColumnHeaders.Add([index],[key],[text],[width],[alignment]) 
              index :唯一标识对象集合成员的整数。 
              key :唯一的字符串标识,可以用来访问集合的成员。 
              text :列标头中显示的文字。 
              width :列宽。是数值表达式,用来指定列的宽度。 
              alignment :决定 ColumnHeader对象中文本对齐方式的整数(lvwColumnLeft、lvwColumnRight、lvwColumnCenter)

    增加行的Add方法:
    ListView1.ListItems.Add([index],[key],[text],[icon],[smallicon])
              Index:指定在何处插入ListItem对象的整数。
              Key 插入列表项的关键字
              Text 插入列表项的文本
              Icon :当为图标视图时,要求显示的图标(从imagelist中选定要显示的图标)
              Smallicon:当为小图标视图时,要求显示的图标(从imagelist中选定要显示的图标)

     

    项目实例:

    1

    1

    1

     

     

     

    展开全文
  • VB为MSHFlexGrid添加表格编辑功能

    千次阅读 2013-04-16 09:39:01
    虽然MSHFlexGrid的功能比较强大,样式比较丰富,可惜它不支持数据... 首先,新建一个标准EXE工程,然后, 在工程部件里选择“Microsoft Hierarchical Flex Grid Control 6.0 (OLEDB)”,在Form里添加一个MSHFlex...

            虽然MSHFlexGrid的功能比较强大,样式比较丰富,可惜它不支持数据编辑。我以前俺用TextBox实现了它的编辑功能,总算弥补了MSHFlexGrid的不足。

            首先,新建一个标准EXE工程,然后, 在工程部件里选择“Microsoft Hierarchical Flex Grid Control 6.0 (OLEDB)”,在Form里添加一个MSHFlexGrid控件,命名为msGrid,再添加一个TextBox控件,命名为txtCell,最后在Form的代码窗口里粘贴以下代码,运行一下工程,一个支持数据编辑的表格就算大功告成了

    代码如下:

    Option Explicit

    Private Sub Form_Load()
        Dim i As Long
       
        Me.ScaleMode = vbPixels
        msGrid.Rows = 10
        msGrid.Cols = 10
        For i = 1 To 9
            msGrid.TextMatrix(i, 0) = i
            msGrid.TextMatrix(0, i) = Chr(i + 64)
        Next
        msGrid.HighLight = flexHighlightNever
        msGrid.AllowBigSelection = False
        msGrid.SelectionMode = flexSelectionFree
        msGrid.FocusRect = flexFocusNone
        txtCell.Move -100, -100
        txtCell.BorderStyle = 0
    End Sub

    Private Sub msGrid_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
        If Button <> 1 Then Exit Sub
        msGrid.Redraw = False
    End Sub

    Private Sub msGrid_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
        If Button <> 1 Then Exit Sub
        msGrid.ColSel = msGrid.Col
        msGrid.RowSel = msGrid.Row
        msGrid.Redraw = True
        If msGrid.Row > msGrid.FixedRows - 1 And msGrid.Col > msGrid.FixedCols - 1 And msGrid.CellWidth > 0 And msGrid.CellHeight > 0 Then
            txtCell.Move msGrid.Left - 1 + msGrid.CellLeft / 15, msGrid.Top - 1 + msGrid.CellTop / 15, msGrid.CellWidth / 15, msGrid.CellHeight / 15
            txtCell.Tag = "No"
            txtCell.Text = msGrid.Text
            txtCell.Tag = ""
            txtCell.SetFocus
        End If
    End Sub

    Private Sub msGrid_Scroll()
        txtCell.Move -100, -100
    End Sub

    Private Sub txtCell_Change()
        If txtCell.Tag <> "No" And msGrid.Col >= msGrid.FixedCols And msGrid.Row >= msGrid.FixedRows Then
            msGrid.Text = txtCell.Text
        End If
    End Sub

    Private Sub txtCell_KeyDown(KeyCode As Integer, Shift As Integer)
        Select Case KeyCode
            Case 37
                If msGrid.Col > msGrid.FixedCols And txtCell.SelStart = 0 Then
                    msGrid.Col = msGrid.Col - 1
                    KeyCode = 0
                End If
            Case 38
                If msGrid.Row > msGrid.FixedRows And txtCell.SelStart = 0 Then
                    msGrid.Row = msGrid.Row - 1
                    KeyCode = 0
                End If
            Case 39
                If msGrid.Col < msGrid.Cols - 1 And txtCell.SelStart = Len(txtCell.Text) Then
                    msGrid.Col = msGrid.Col + 1
                    KeyCode = 0
                End If
            Case 40
                If msGrid.Row < msGrid.Rows - 1 And txtCell.SelStart = Len(txtCell.Text) Then
                    msGrid.Row = msGrid.Row + 1
                    KeyCode = 0
                End If
            Case 13
                If msGrid.Col < msGrid.Cols - 1 Then
                    msGrid.Col = msGrid.Col + 1
                Else
                    If msGrid.Row < msGrid.Rows - 1 Then msGrid.Row = msGrid.Row + 1
                    msGrid.Col = msGrid.FixedCols
                End If
                KeyCode = 0
            Case 33
                msGrid.SetFocus
                SendKeys Chr(33)
            Case 34
                msGrid.SetFocus
                SendKeys Chr(34)
        End Select
        If KeyCode = 0 And msGrid.CellWidth > 0 And msGrid.CellHeight > 0 Then
            txtCell.Text = msGrid.Text
            txtCell.Move msGrid.Left - 1 + msGrid.CellLeft / 15, msGrid.Top - 1 + msGrid.CellTop / 15, msGrid.CellWidth / 15, msGrid.CellHeight / 15
            txtCell.SelStart = 0
            txtCell.SelLength = Len(txtCell.Text)
        End If
    End Sub

    展开全文
  • End Sub 读取的数据就可以显示在表格中了: 读取到sql数据库的数据之后,可能会有修改的需求,这时候可以直接在窗体表格中修改,然后点击“更新”,将修改的数据更新到数据库中: Private Sub Button3_Click(sender ...

    有些场合可能需要将读取来的数据进行存储,或者从数据库中读取数据,这时候就可以用到SQL数据库,VB.net和SQL数据库的数据通讯,比较简单。

    软件工具:1、visual studio 2019
    2、win10系统
    3、SQL Server 2019、SSMS(SQL Server Management Studio)

    在这里插入图片描述
    在这里插入图片描述
    程序主要涉及vb.net编程和SQL数据库设置。
    SQL数据库简单说一下:
    1、登录SQL服务器
    登录名:sa ,密码:12345678(自定义)
    2、添加新的数据库和新的表(名称自定义):
    在这里插入图片描述
    右击表,选择编辑前200行,给新建的表添加一些数据,然后保存,作为测试数据使用。
    在这里插入图片描述
    打开visual studio 2019,新建窗体,在窗体上添加一些按钮和一个数据源控件(datagridview)。
    在这里插入图片描述
    先定义一下SQL相关的变量:

    Dim sqlconn As SqlClient.SqlConnection
        Dim scd As SqlClient.SqlCommand
        Dim sda As SqlClient.SqlDataAdapter
        Dim dt As DataTable
    

    窗体初始化时:

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            sqlconn = New SqlClient.SqlConnection("server=DESKTOP-MGUIPGF\WINCC;database=mtdata001;uid=sa;pwd=12345678;")
            scd = New SqlClient.SqlCommand("select * from Table_1", sqlconn)
            sda = New SqlClient.SqlDataAdapter
            dt = New DataTable
    
        End Sub
    

    sql的连接实例化,并且输入sql服务器的相关参数,保存服务器名称、数据库名称、登录名、登录密码。这些可以在SQL数据库中查询到。
    在这里插入图片描述
    open:

     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            sqlconn.Open()
    
        End Sub
    

    就是调用sqlconnection的open方法就行了。
    打开之后,对数据库进行读取,读取使用到sqlcommand的指令,具体读取那些数据,加什么过滤,可以根据sql数据表的实际数据进行操作,本例中全部读取:

     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            dt.Clear()           '读取前先将datasource清0
    
            sda = New SqlClient.SqlDataAdapter(scd)  '实例化sqldataadapter,传入的指令有SQLcommand中提供。
    
            sda.Fill(dt)                            '将读取的数据填充datatable
    
            DataGridView1.DataSource = dt           '将datagridview的数据源绑定到datatable
    
            TextBox1.Text = DataGridView1.Rows.Count      '记录读取的数据的行
            TextBox2.Text = DataGridView1.Columns.Count   '纪律读取的数据的列
        End Sub
    

    读取的数据就可以显示在表格中了:
    在这里插入图片描述
    读取到sql数据库的数据之后,可能会有修改的需求,这时候可以直接在窗体表格中修改,然后点击“更新”,将修改的数据更新到数据库中:

     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            Dim scb As New SqlClient.SqlCommandBuilder(sda)  '实例化新的sql指令
    
            scb.GetUpdateCommand()                           '获取Update功能
    
            sda.Update(dt)                                   '用于更新datatable,即存入数据库
        End Sub
    

    基本上,读、写的功能就算是实现了,当然,如果有更深入的功能需求,就需要对sql数据库的操作有更深入的了解,有待后续。

    关闭数据库连接:

      Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
            dt.Clear()
            sqlconn.Close()
        End Sub
    

    完整程序:

    Option Explicit On
    
    
    Public Class Form1
    
        Dim sqlconn As SqlClient.SqlConnection
        Dim scd As SqlClient.SqlCommand
        Dim sda As SqlClient.SqlDataAdapter
        Dim dt As DataTable
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            sqlconn = New SqlClient.SqlConnection("server=DESKTOP-MGUIPGF\WINCC;database=mtdata001;uid=sa;pwd=12345678;")
            scd = New SqlClient.SqlCommand("select * from Table_1", sqlconn)
            sda = New SqlClient.SqlDataAdapter
            dt = New DataTable
    
        End Sub
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            sqlconn.Open()
    
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            dt.Clear()           '读取前先将datasource清0
    
            sda = New SqlClient.SqlDataAdapter(scd)  '实例化sqldataadapter,传入的指令有SQLcommand中提供。
    
            sda.Fill(dt)                            '将读取的数据填充datatable
    
            DataGridView1.DataSource = dt           '将datagridview的数据源绑定到datatable
    
            TextBox1.Text = DataGridView1.Rows.Count      '记录读取的数据的行
            TextBox2.Text = DataGridView1.Columns.Count   '纪律读取的数据的列
        End Sub
    
        Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            Dim scb As New SqlClient.SqlCommandBuilder(sda)  '实例化新的sql指令
    
            scb.GetUpdateCommand()                           '获取Update功能
    
            sda.Update(dt)                                   '用于更新datatable,即存入数据库
        End Sub
    
        Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
            dt.Clear()
            sqlconn.Close()
        End Sub
    End Class
    
    

    调试效果:

    在这里插入图片描述
    在这里插入图片描述

    展开全文
  • VB为Listview添加气泡提示特效,这个Listview是多行显示的,每行均有气泡提示,有效提升了软件体验。鼠标放在任意表格行上面,会弹出一个气泡提示框,显示更多关于本行的文字内容。
  • 双击窗体进入代码界面,最顶上输入: Imports System.Data.SqlClient '导入命名空间 窗体的代码: Public Class UserControl1 '系统自动生成的 Dim ds As DataSet = New DataSet '建立类中可访问数据对象ds,且为全局...

    先看一下效果图:文本框用label控件,按钮用button控件,显示用框TextBox控件,(Name)可以自己修改
    点击最底下的4个按钮可以查看学生表中的学生信息,第一条和最后一条查看第一个人和最后一个人的信息
    建立一个学生表名字为Student
    在这里插入图片描述

    双击窗体进入代码界面,最顶上输入:

    Imports System.Data.SqlClient '导入命名空间
    

    窗体的代码:

    Public Class UserControl1 '系统自动生成的
        Dim ds As DataSet = New DataSet '建立类中可访问数据对象ds,且为全局变量
        Public mybind As BindingManagerBase '绑定对象的定义,名为mybind
        Private Sub UserControl1_Load(sender As Object, e As EventArgs)  Handles MyBase.Load '系统自动生成的
            Dim strconn As String = "Server=localhost;Database=学生成绩管理系统;Integrated Security=SSPI" '建立一个连接字符串strconn
            Dim strsql As String = "select Snum,Sname,Ssex,Sbirth,Sdept,province from Student" '建立一个查询字符串strsql
            Dim myconnect As SqlConnection = New SqlConnection(strconn) '建立一个数据连接myconnect
            Dim mycommand As SqlDataAdapter = New SqlDataAdapter(strsql, myconnect) '建立一个数据适配器mycommand对数据执行sql指令
            mycommand.Fill(ds, "Student"'指定绑定的数据源
            mybind = Me.BindingContext(ds, "Student")
            'TextBox控件的Text属性绑定至数据集ds内的Student表
            TextBoxSnum.DataBindings.Add("Text", ds, "Student.Snum")
            TextBoxSname.DataBindings.Add("Text", ds, "Student.Sname")
            TextBoxSsex.DataBindings.Add("Text", ds, "Student.Ssex")
            TextBoxSdept.DataBindings.Add("Text", ds, "Student.Sdept")
            TextBoxSbirth.DataBindings.Add("Text", ds, "Student.Sbirth")
            TextBoxprovince.DataBindings.Add("Text", ds, "Student.province")
        End Sub
    

    双击"第一条"按钮

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            mybind.Position = 0 '跳转到第一条
        End Sub
    

    双击"上一条"按钮

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            If mybind.Position > 0 Then
                mybind.Position -= 1
            End If
        End Sub
    

    双击"下一条"按钮

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            If mybind.Position > 0 Then
                mybind.Position += 1
            End If
        End Sub
    

    双击"最后一条"按钮

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
            mybind.Position = mybind.Count - 1
        End Sub
    
    展开全文
  • ReoGrid 是最近发现的一款支持开源的免费表格控件,功能强大,界面美观。 可以用于VB.NET,C#和WPF。免费的能做到这些功能真心不错。
  • Microsoft Visual Studio 建表格

    千次阅读 2019-07-01 17:05:19
    最近接触到前端页面,建一个表格, 在指定的文件,右击添加 添加表格插件: 将插件拖拉到页面上 可更改列表区域名称 在这里插入代码片
  • vb中实现下拉列表多选!在组态软件中适用
  • vb.net 教程 3-10 窗体编程 datagridview控件 17 实现文本单元格中显示下拉框并设置值(续) 》中会讨论如何解决这些问题。 由于.net平台下C#和vb.Net很相似,本文也可以为C#爱好者提供参考。 学习更多vb.net...
  • VB ListBox 添加不重复的值,当列表中已经存在该值即不再添加。 Private Function AddList(List As ListBox, Str As String) As Boolean Dim I As Long For I = 0 To List.ListCount - 1 If List.List(I) = Str ...
  • VB_VBA日期选择控件

    热门讨论 2010-09-23 14:55:12
    安装方法, 1. 将控件 MSCOMCT2.OCX 复制至windows\system\ (win98) 或 winnt\system32\ (win2000). ... 也可以直接双击运行Setup.bat...在VB/VBA中添加控件,选择Microsoft Date and Time Picker Control,Version 6.0
  • VB向excel中写入数据

    2013-06-24 10:06:33
    通过VB窗体的text,向excel中指定位置写入数据
  • 版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经...由于.net平台下C#和vb.Net很相似,本文也可以为C#爱好者提供参考。 学习更多vb.net知识,请参看 vb.net 教程 目录    
  • VB】MSHFlexGrid表格数据导出到Excel

    千次阅读 热门讨论 2015-08-16 10:10:19
    VB系统中,通过添加“导出为Excel”按钮来实现将MSHFflexGrid表格中的数据导出到Excel表中,并由用户决定是否保存。 【如何实现】 在定义Excel对象之前要先引用Microsoft Excel 类型库,从“工程”菜单中选择...
  • vb实现将所有窗口最小化

    千次阅读 2009-01-28 10:27:00
    一些应用软件提供了一种方便的功能,只需要一个操作就可以将Windows桌面上的所有窗口最小化。首先,我们要遍历桌面上的所有窗口;其次,要判断窗口类型,桌面上的很多窗口无法最小化,或者窗口是不可见的,如中文Win...
  • '------------------------------------------------------------------------------------------------------------------------'函数名:RsFillFlex2'功能:用记录集填充表格'创建日期:2007-8-22'更新日期:2007-...
  • 版权声明:本文为博主原创文章,转载请在显著位置标明...通过 ColumnCount 和 RowCount 设置 表格的列数和行数 通过 Columns 或 Rows 打开 行和列样式 窗口,如下图: 在 行和列样式 窗口中可以增加、删除、插入...
  • VB hotKEY自定义热键程序,专用于定制各种热键,本软件一共可以定义100个热键供用户使用,热键不能重复定义,注意定义热键时不要与系统提供的热键发生重冲突....本软件支持直接向表格中拖放文件来添加热键。
  • EXCEL VBA 自动添加控件

    2013-02-27 09:59:50
    EXCEL VBA 自动添加控件,可以参照,来源于网络。
  • VB中使用报表控件(一)

    千次阅读 热门讨论 2012-08-28 11:10:43
    在做机房收费系统时,有两个功能日结账单和周结账单中用到了报表...首先,需要下载一个报表控件并安装,安装完成后在VB--工程--引用中选择Grid++Report Engine5.0TypeLibrary添加。   这两个控件添加进了工具箱。
  • DataGrid是VB.NET中重要的数据感知控件,它不仅可以把数据库的记录以表格形式显示出来,而且可以表格形式编辑数据库的记录,所以,它在数据库编程中应用非常广泛。那么,在VB.NET数据库编程中DataGrid控件有哪些使用...
  • VB操作Excel

    千次阅读 2019-04-08 12:33:07
    VB操作Excel 详细内容请参看博客,这篇博客的内容很详尽,有些在VB中会报错,是VBA中的语法。 下面列一些我在本次签到程序中用到的一些语句: 1、新建一个Excel的Application Dim ExcelID As Excel.Application Set ...
  • VB:使用Visual Studio 2010中的VB语言工具箱DataGridView调用SQL数据库Database的表格文件 目录 问题探究 图文教程 ...使用Visual Studio 2010中的VB语言工具箱...1、先在VB窗口添加工具箱中的Data...
  • RichTextBox添加行号.zip

    2021-11-24 18:35:42
    RichTextBox添加行号
  • 永思ERP,vb.net源码

    2017-09-26 16:27:26
    永思ERP,vb.net开源版,免费信息化工具,学习编程的好例子,不可错过。 永思ERP是一套专业的企业管理软件,采用VS2008技术开发,数据库可在Access与MS SQL自由选择 。系统借鉴多种市场上知名软件,经过多年的研发...
  • 首先新建一个空白工作表,打开“文件-选项”对话窗口,“自定义功能区-勾选‘开发工具’-确定”。本操作是调出开发工具快捷方式。 “开发工具-插入-其他控件” 找到Microsoft BarCode Control 16.0,数字代表...
  • Java数组倒置 简单 Java图片加水印,支持旋转和透明度设置 摘要:Java源码,文件操作,图片水印 util实现Java图片水印添加功能,有添加图片水印和文字水印,可以设置水印位置,透明度、设置对线段锯齿状边缘处理、水印...
  • VB.net中SQL数据库插入操作:Insert小例子 设计欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,133
精华内容 2,053
关键字:

vb窗体添加表格