vb.net如何画表格 vbnet createobject

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

'自己设置相关需要的属性即可

相关问答

Q1: VB.NET Word创建表格并录入文字

‘首先，创建一个VB.NET项目，再点击菜单”项目“-”添加引用“，在”Com“-”类型库“里，选择Microsoft.Word 14.0 Object Library（对应Office版本为2010），将以下代码复制粘贴到Form1窗体替换原代码。

’PS：以下代码仅创建表格，将第行2至4列合并，添加1个文字，其他的你自己分析。

Imports Microsoft.Office.Interop

Imports Microsoft.Office.Interop.Word  '引入Word

Public Class Form1

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim DWrd As New Word.Application, DDoc As Word.Document '定义Word及文档对象

    DDoc = DWrd.Documents.Add '新增文档

    Dim DTbl As Word.Table  '定义表格对象

    DTbl = DDoc.Tables.Add(DDoc.Range, 7, 4)  '新增表格

    DTbl.Style = "网格型"  '表格的样式

    DTbl.Cell(1, 2).Select()  '选择起始单元格为第1行/第2列

    DWrd.Selection.MoveRight(, 2, SelectionMode.MultiExtended)  '向右扩展两个单元格(即选择第1行的第2至4列)

    DWrd.Selection().Cells.Merge()  '单元格合并

    DTbl.Cell(1, 1).Range.Text = 1  '在第1个单元格填写文本

    DWrd.Visible = True '显示Word

  End Sub

End Class

Q2: 怎么用vb编程操作word绘制表格的边框？

怎么用vb编程操作word绘制表格的边框操作步骤：

1、单击开始----查找按钮(或按Ctrl + F组合键)；

2、弹出查找对话框，在查找内容处输入需要查找的数字，在以下项中查找处选择主文档，单击关闭按钮；

3、此时文档中所的查找的数字都被选中。

Q3: VB.NET 2008怎么再窗体上手动绘制表格

菜单里面有个表 哪里就可以绘制vb.net如何画表格了

Q4: 怎样用VB.NET生成一个复杂的word表格？

转换表格vb.net如何画表格的时候应该有选项vb.net如何画表格的（光标一般放置在外层表格区域）vb.net如何画表格，如图vb.net如何画表格，取消 转换嵌套表格。

当然，对于特别复杂及不规则的表格（粘贴过程中也可能导致表格错乱），用FRONTPAGE调整一下也是不错的主意。

参考文献vb.net如何画表格：OFFICE XP测试

Q5: 用VS2010怎么样能画出图表或者说如何能用Excel表格的画图功能 VB.net

Public Class Form3

    Protected Sub iniChart()

        Dim dt As New DataTable

        '表增加月份、收入、支出三列

        dt.Columns.Add("月份")

        dt.Columns.Add("收入")

        dt.Columns.Add("支出")

        Dim dr As DataRow

        For i As Integer = 1 To 12

            '新增行

            dr = dt.NewRow()

            '月份 1-12月

            dr.Item(0) = i  "月"

            Randomize()

            '收入

            dr.Item(1) = 3000 + Int(5000 * Rnd(8))

            Randomize()

            '支出

            dr.Item(2) = 600 + Int(2000 * Rnd(7))

            dt.Rows.Add(dr)

        Next

        dr = Nothing

        With Me.Chart1

            .DataSource = dt    'dt作为chart1的数据源

            .Series.Clear()

            .Legends.Clear()

            .ChartAreas.Clear()

            .ChartAreas.Add("收入")

            .ChartAreas.Add("支出")

            .Legends.Add("收入")

            .Legends.Add("支出")

            .Series.Add("收入")

            .Series.Add("支出")

            .Series("支出").ChartArea = "支出"              '指定Series所属ChartArea

            .Series("支出").Legend = "支出"                 '指定Legend所属Series

            .Series("收入").LegendToolTip = "收入图例"

            .Series("收入").IsValueShownAsLabel = True    '标签显示数据值

            .Legends("收入").DockedToChartArea = "收入"     '指定Legend所属ChartArea

            .Legends("支出").DockedToChartArea = "支出"

            .ChartAreas("支出").Area3DStyle.Enable3D = True  '启用3D样式

        End With

        With (Chart1.Series(0))

            '指定x、y轴数据列

            .YValueMembers = "收入"

            .XValueMember = "月份"

            '图表类型

            .ChartType = DataVisualization.Charting.SeriesChartType.Column

        End With

        With Chart1.Series(1)

            .YValueMembers = "支出"

            .XValueMember = "月份"

            .ChartType = DataVisualization.Charting.SeriesChartType.Pie

        End With

        Me.Chart1.DataBind()    '绑定数据源

        With Me.Chart1.Series("收入")

            Dim s1 As Integer

            For i As Integer = 0 To .Points.Count - 1

                s1 = s1 + Val(.Points(i).GetValueByName("y"))

                .Points(i).ToolTip = .Points(i).AxisLabel  .Points(i).GetValueByName("y")

            Next

            '图例显示总收入

            Me.Chart1.Legends("收入").Title = "总收入"

            .LegendText = s1.ToString

        End With

        With Me.Chart1.Series("支出")

            .IsValueShownAsLabel = True

            For i As Integer = 0 To .Points.Count - 1

                .Points(i).ToolTip = .Points(i).AxisLabel  .Points(i).GetValueByName("y")

                .Points(i).LegendText = .Points(i).AxisLabel

                .Points(i).Label = "#PERCENT"               '饼状图显示百分比

                .SmartLabelStyle.AllowOutsidePlotArea = True

            Next

        End With

        Me.Chart1.AlignDataPointsByAxisLabel("支出")

        With Me.Chart1.Legends("支出")

            .LegendStyle = DataVisualization.Charting.LegendStyle.Column

            .Title = "支出"

        End With

    End Sub

    Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Call iniChart()

        Call iniCombChart()

    End Sub

    Private Sub iniCombChart()

        Dim tps As Array

        '枚举所有SeriesChartType类型

        tps = System.Enum.GetValues(GetType(Windows.Forms.DataVisualization.Charting.SeriesChartType))

        For Each i As Windows.Forms.DataVisualization.Charting.SeriesChartType In tps

            Me.ComboBox1.Items.Add(Val(i))

        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call iniChart()

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        With Chart1.Series(0)

            '改变图表样式

            Dim tps As Array

            tps = System.Enum.GetValues(GetType(System.Windows.Forms.DataVisualization.Charting.SeriesChartType))

            For Each i As Windows.Forms.DataVisualization.Charting.SeriesChartType In tps

                If Val(i) = Me.ComboBox1.Text Then

                    .ChartType = i

                    Exit For

                End If

            Next

        End With

    End Sub

End Class

vb.net如何画表格的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet createobject、vb.net如何画表格的信息别忘了在本站进行查找喔。