锐客网

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

vb.net网格状轨迹 winform网格布局( 三 )

IT技术压力


从 DataGrid 返回值
在 DataGrid 被连接到一个数据库后，可能想要监视用户单击了哪一个单元 。可以使用 RowColChange 事件——而不是 Click 事件 。如下所示：
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
' 显示用户所单击的单元的文字、行和列的信息 。
Debug.Print DataGrid1.Text; DataGrid1.Row; DataGrid1.Col
End Sub
使用 CellText 和 CellValue 方法
当一个列使用 NumberFormat 属性设置格式后，CellText 和 CellValue 属性是很有用的 。NumberFormat 属性不必更改实际的数据格式就可以更改任何包含数字的列的格式 。例如，给定一个网格，其中包含一个名为 ProductID的、包含整数的列 。下面的代码将使 DataGrid 以"P-0000" 的格式来显示数据 。换句话说，尽管在 ProductID 字段中所包含的实际数值为 "3"，但该网格所显示的值将是 "P-0003" 。
Private Sub Form_Load()
DataGrid1.Columns("ProductID").NumberFormat = "P-0000"
End Sub
要返回数据库中所包含的实际值，应使用 CellValue 方法，如下所示：
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Debug.Print _
DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)
End Sub
在VB编程时，怎么让文本框里有网格线 ， 就像Excel里的那样？Private Sub Command2_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "c:\11.xls"
SheetName = "sheet1"
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表
xlSheet.Shapes("textbox1").DrawingObject.object.Text = "设置控件工具面板里textbox内容"
xlSheet.Shapes("文本框 3").TextFrame.Characters.Text = "设置绘图工具栏里文本框内容"
Sheets(SheetName).textbox1.Text = "设置控件工具面板里textbox内容" '给text赋值，不能直接用 xlsheet.textbox1.text
xlApp.DisplayAlerts = False
xlBook.Save
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub
关于vb.net网格状轨迹和winform网格布局的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：oracle服务器安装出错，oracle安装成功后,所有服务都没有

下一篇：加长羊羔绒卫裤直播文案，直播间里羊绒围巾怎么介绍