包含vb.net显示一个表格的词条

关于在VB.net子版中显示表格的问题，表格是通过XSL转换后的MXL文件

XSL是XML的样式表语言，这种定义很像HTML中的CSS。XSL转换就是XSLT，XSLT是XSL标准中的重要组成部分，它可以把一个XML文档的数据以不同结构或格式转换为另一个文档，通过使用XSL能够将XML进行格式化输出。

创新互联专注于贡嘎网站建设服务及定制，我们拥有丰富的企业做网站经验。热诚为您提供贡嘎营销型网站建设，贡嘎网站制作、贡嘎网页设计、贡嘎网站官网定制、成都微信小程序服务，打造贡嘎网络公司原创品牌,更为您提供贡嘎网站排名全网营销落地服务。

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()

Me.DataGridView1.Columns(0).Width = 100

Me.DataGridView1.Columns(1).Width = 500

Me.DataGridView1.Columns(0).Width = 300

End Sub

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

1、调用excel对象打开工作表；

Dim oe As New Excel.Application

Dim ow As Workbook

Dim os As Worksheet

Set ow = oe.Workbooks.Add

Set os = ow.Worksheets(1)

oe.Visible = True

2、取消excel窗体的标题栏、菜单栏、工具栏；

For Each bar In Application.CommandBars

If Not bar.BuiltIn And Not bar.Visible Then bar.Delete

Application.CommandBars("Worksheet Menu Bar").Position = msoBarFloating

Application.CommandBars("Worksheet Menu Bar").Left = -Application.CommandBars("Worksheet Menu Bar").Width + 1

Application.CommandBars("Worksheet Menu Bar").Top = -Application.CommandBars("Worksheet Menu Bar").Height + 1

3、将excel窗体设置为某窗体的"子窗体"，调整大小并放在合适位置

Dim IStyle As Long

IStyle = GetWindowLong(hwnd, GWL_STYLE)

IStyle = IStyle And Not WS_CAPTION And Not WS_EX_APPWINDOW

SetWindowLong hwnd, GWL_STYLE, IStyle

ShowWindow hwnd, SW_SHOW

DrawMenuBar hwnd

SetParent hwnd, Form1.hwnd

名称栏目：包含vb.net显示一个表格的词条
文章转载：http://shouzuofang.com/article/dosohhg.html