十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
VB中表格控件有很多,如MSFlexGrid,DataGrid,MSHFlexGrid等等
网站建设哪家好,找创新互联!专注于网页设计、网站建设、微信开发、小程序制作、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了华容免费建站欢迎大家使用!
使用的多的是微软的FlexGrid控件。
通过菜单"Project" - "Components" - 勾上"Microsoft FlexGrid Control 6.0"进行选择。这个是包含在VS6 SP6安装包内的。
如图所示,工具箱的“所有Windows窗体”中有,如果没有,可选择“选择项”添加
你可以这样,如果你用 dataGridview 时不是也要查询表嘛,
我们用datatable/dataset 保存你查询的结果,
然后就可以一条条显示,记录住当前显示的row(行)
eg:你的查询保存 datatable1
第一条时,
我们就来个 dim dtrow as datarow=datatable.rows(0)
textbox1.text=dtrow.item("字段名")'
...
都是如此
当然也是可能绑定的
CurrencyManager 用于管理显示的行数
textbox.DataBindings.add("属性",data,"字段")
DataGridView控件,放一个DataGridView1和Button1到窗体,下面是按钮下代码
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DataGridView1.AllowUserToAddRows = False
DataGridView1.RowTemplate.Height = 200
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
For i = 1 To 3
Me.DataGridView1.Columns.Add("列" i.ToString, "列" i.ToString)
Me.DataGridView1.Rows.Add()
Next
Me.DataGridView1.Columns(0).Width = 100
Me.DataGridView1.Columns(1).Width = 500
Me.DataGridView1.Columns(0).Width = 300
End Sub
'自己设置相关需要的属性即可
1拖放控件
2代码添加
如
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.ResizeRedraw = True
Dim ff As New DataGridView
ff.ReadOnly = False‘在这里设置是否可编辑单元格
ff.Parent = Me
ff.AllowUserToAddRows = True'这里设置是否显示添加新行
ff.Columns.Add("aa", "啊啊")
ff.Columns.Add("a1", "啊")
End Sub
DATAGRIDVIEW其实显示速度非常快的,远超vb6的MSFLEXGRID
如果你愿意,在vb2013中也可以把MSFLEXGRID调处出来的,名字好像是AxMSFlexGrid控件
在工具箱右键添加控件,选择COM,找到Microsoft FlexGrid Control, version 6.0 (SP6)