锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net表格制作控件 vb添加表格控件

控件IT技术

VB.NET有什么控件可以像EXCEL表格那样直观地显示数组数据的？VB中表格控件有很多 ， 如MSFlexGrid，DataGrid，MSHFlexGrid等等
使用的多的是微软的FlexGrid控件 。
通过菜单"Project" - "Components" - 勾上"Microsoft FlexGrid Control 6.0"进行选择 。这个是包含在VS6 SP6安装包内的 。
VB.NET中如何动态创建控件Option Explicit
Private WithEvents NewTextBox As TextBox
'通过使用WithEvents关键字声明一个对象变量为新的命令按钮
Private Sub Command1_Click()
If NewTextBox Is Nothing Then
Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)
NewTextBox.Move 200, 200
NewTextBox.Width = Form1.Width - 450
NewTextBox.Height = Form1.Height - 1400
NewTextBox.Visible = True
End If
End Sub
Private Sub Command2_Click()
If NewTextBox Is Nothing Then
Exit Sub
Else
Controls.Remove NewTextBox
Set NewTextBox = Nothing
End If
End Sub
vb 表格控件 详解表格控件使用 MSFlexGrid 控件
控件的添加
（1）如图 。在vb左边的工具栏上点右键选部件，在部件窗口中选择flexgrid控件，确定后就可以看到控件图标被添加到了工具栏 。
（2） 新建一个Form窗口，点击MSFlexGrid 控件图标，将控件画到Form窗口 。如图 。在控件上点右键选属性进入属性页面，调整控件属性值 。
MSFlexGrid 控件使用
文本和图片可以同时或者单独放在 MSFlexGrid 的任何一个单元格中 。Row 和 Col 属性指定了当前的 MSFlexGrid 单元格 。程序员可以在代码中改变当前单元格，用户可以在运行时使用鼠标或者箭头键改变它 。Text 属性提供了当前单元格内容的参考信息 。
如果单元格中的文本过长 ， 无法全部显示在单元格的一行中 ， 而且 WordWrap 属性被设置为 True ， 那么文本将回绕到同一单元格的下一行 。如果需要显示被回绕的文本，需要增加单元的列宽（ColWidth 属性）或行高（RowHeight 属性） 。
使用 Col 和 Row 属性可以分别确定 MSFlexGrid 中列与行的个数 。
注意在应用程序中使用MSFlexGrid之前，首先必须将 MSFlxGrd.ocx 文件添加到工程中 。如果希望自动地将文件包含在过程之中，请将它放在 Autoload 文件中 。在发布应用程序的时候，应该在用户的 Microsoft Windows System 目录下安装MSFlxGrd.ocx。
＝＝＝＝＝＝ MSFlexGrid《重要属性》《重要属性》《重要属性》 ＝＝＝＝＝＝＝＝
（1）FormatString 属性：设置列宽，对齐方式，固定行文本和固定列文本 。
在设计时，MSHFlexGrid 语法分析和解释 FormatString 来获得如下信息：行和列的数目、行和列标头的文本、列宽和列对齐方式 。
FormatString 属性包含由管道字符 (|) 分隔的段 。管道字符之间的文本定义一列并且也可能包含特定的对齐字符 。这些字符使整个列左对齐()、居中(^)或右对齐() 。另外，根据缺省规定文本被指定给行 0 ， 且文本宽度定义每一列的宽度 。
FormatString 属性可能包含一个分号 (;) 。这使得字符串的余下部分被解释为行标头和行宽度信息 。另外 ， 根据缺省规定文本被指定给列 0，且最长的字符串定义列 0 的宽度 。
MSHFlexGrid 创建附加的行和列来驻留由 FormatString 定义的所有字段 。如果只有几个字段被指定，附加的行和列不被删除 。要删除附加的行和列，设置 Rows 和 Cols 属性 。
下面的示例举例说明 FormatString 属性如何工作 。
' 设置列标头 。
s$ = "Region |Product |Employee |Sales "
MSHFlexGrid1.FormatString = s$
' 设置行标头（注意开始的分号） 。
s$ = ";Name|Address|Telephone|Social Security#"
MSHFlexGrid1.FormatString = s$
' 设置列和行标头 。
s$ = "|Name|Address|Telephone|Social Security#"
s$ = s$";|Robert|Jimmy|Bonzo|John Paul"
MSHFlexGrid.FormatString = s$
（2）TextMatrix 属性
返回或设置一个任意单元的文本内容 。
语法：object.TextMatrix(rowindex, colindex) [=string]
示例：MSHFlexGrid1.TextMatrix(1,2) =Rnd()
（3）MouseCol、MouseRow 属性
按行和列坐标返回鼠标的当前位置 。
语法：object.MouseCol [=value]object.MouseRow [=value]
＝＝＝＝＝＝＝＝ MSFlexGrid《方法》《方法》 ＝＝＝＝＝＝＝＝＝
（1）AddItem 方法：将一个行添加到 MSHFlexGrid 控件中 。不支持命名参数 。
语法：object.AddItem (string, index, number)
AddItem方法的语法包含以下部分：
部分
描述
object
对象表达式，其值是“应用于”列表中的对象 。
item
字符串必需的 。字符串表达式，它在新增行中显示 。可以用制表符(vbTab) 来分隔每个字符串，从而将多个字符串（行中的多个列）添加进去 。
Index
可选的 。Long类型，它代表了控件中放置新增行的位置 。对于第一行来说，index= 0 。如果省略index，那么新增行将成为带区中的最后一行 。注意index是MSHFlexGrid中的BandColIndex 。
number
可选的 。Long值，指出添加行的带区号 。
（2）RemoveItem 方法
运行时从 MSHFlexGrid 中删除一行 。这一属性不支持命名的参数
语法：object.RemoveItem(index, number)
RemoveItem 方法的语法包含如下部分：
部分描述
object一个对象表达式 。
index一个整数，表示 MSHFlexGrid 中要删除的行 。对于第一行，index=0 。
number一个 Long值，指定要从中删除行的带区 。
说明
这一方法删除指定的整个行 。要不删除行来清除数据，使用 Clear 方法 。
在包含子记录的带区内删除一个行时，子记录被自动地删除 。
示例
在该示例中 ， 用 AddItem 方法将 100 项添加到 MSHFlexGrid 中 。要试用此例，可以将代码粘贴到窗体（该窗体带有命名为 MSFlexGrid1 的 MSHFlexGrid 控件）的声明部分，然后按下 F5 键，并单击该窗体 。
Private Sub Form_Click ()
Dim Entry, i, Msg'声明变量 。
Msg ="Choose OK to add 100 items to your MSFlexGrid."
MsgBox Msg'显示消息 。
MSHFlexGrid1.Cols = 2'每行有两个字符串 。
For i = 1 To 100'从 1 计数到 100 。
Entry = "Entry "Chr(9)I'创建项 。
MSHFlexGrid1.AddItem Entry'添加项 。
Next
Msg ="Choose OK to remove every other entry."
MsgBox Msg'显示消息 。
For i =1 To 50'决定怎样删除
MSHFlexGrid1.RemoveItem i'其它每一项 。
Next
Msg ="Choose OK to clear all items."
MsgBox Msg'显示消息 。
MSFlexGrid1.Clear'清除列表框 。
End Sub
编辑花了很大力气 ， 望采纳！
vb.net中有哪些显示表格控件，如何向窗体中添加 。听说有datagrid控件，如何添加到窗体中 。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
VB.NET中有表格控件，以用于显示程序中的数据 。请问表格控件在哪里，如何添加到窗体中 。。如图所示 ， 工具箱的“所有Windows窗体”中有，如果没有 ， 可选择“选择项”添加
vb.net怎么使用表格控件？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
'自己设置相关需要的属性即可
【vb.net表格制作控件 vb添加表格控件】vb.net表格制作控件的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vb添加表格控件、vb.net表格制作控件的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：电影的拍摄有什么作用，电影拍摄时的专业术语

    下一篇：如何查看苹果服务器的域名？ 苹果服务器域名怎么查看