共 57 篇文章 |
|
关于TreeView控件的节点排序。经过试验,node的Sorted属性只对自己的子节点(已存在的和未来要添加的)起作用,对孙子节点不起作用。所以,如果你已经设置了一个节点的sorted属性为true,那你在它下面再加入节点,新节点就按字母序插入;看上面的图,根节点的sorted为true,所以生成树之后再根节点之下再添任何节点都以字母序插入; 阅1 转自网络摘记 公众公开 22-04-20 16:43 |
该节点成为在relative中被命名的节点的的子节点 下面是一个例子: Dim node1,node2,node3,node4 as Node set Node1=TreeView1.Nodes.Add TreeView1.Nodes(1).text=''node1'' TreeView1.Nodes(1).key=''node1'' Set node2=treeview.nodes.add(''node1'',tvwChild,... 阅1 转自GTY_TSG 公众公开 22-04-20 16:40 |
vb编程把excel中的数据导入SQL SERVER数据库。把excel中的数据导入SQL SERVER数据库(access数据类似):'' 设置连接SQL 数据库的连接字符串strtemp = "[odbc;Driver= {SQL Server} ;Server=(local);Database=Afws;UID=sa;PWD=sa]"'' 设置Excel 数据连接strconn = "Provider =Microsoft.Jet.OLEDB.4.0;Data Sou... 阅1 转自网络摘记 公众公开 22-04-17 17:46 |
Private Declare Function GetWindow Lib ''''''''user32'''''''' (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function ShowWindow Lib ''''''''user32'''''''' (ByVal hwnd As Lo... 阅1 转自忘__缘 公众公开 22-03-07 22:32 |
- 系统宅的个人空间 - 编程街。 阅1 转自a_cheng 公众公开 22-02-23 11:20 |
一个工程包括:跟踪所有部件的工程文件 (.vbp)、窗体文件、窗体上控件的属性数据、类模块文件、标准模块文件、ActiveX 控件文件等等 。创建的方法有两种,一种是双击工具箱中的控件,则相应的控件实例自动出现在窗体的中间位置,也可 以按下工具箱中的控件图标,然后在窗体中用鼠标圈一个矩形,这个矩形就代表控件实例所占据的控件。(10)DataLi... 阅1 转自nxhujiee 公众公开 22-02-23 11:16 |
一.vb访问SQL Server 的几种常用方法。使用Visual Basic作为前端开发语言,与SQL Server接口有三种常用的方法,即: *数据访问对象/Jet *为ODBC API编程 *使用SQL Server的Visual Basic库(VBSQL)为DB库API编程本文将讨论这三种VB应用程序管理SQL Server数据的方法,并比较每种方法的性能和优缺点。方法3.使用VBSQL对DB库API编程DB库是SQL... 阅1 转自加菲 公众公开 22-02-23 10:25 |
Set xlapp = CreateObject("excel.application")Set xlBook = xlapp.workbooks.Number <>0 Then Set xlapp = CreateObject("Excel.Application")Set xlBook = xlapp.workbooks.Path &"\学生.mdb;Persist Security Info=False"rs.CursorLocation = adUseClientrs.Open "学生信息表", cn, adO... 阅79 转自风风林林 公众公开 12-05-05 07:19 |
Set xlApp = CreateObject("Excel.Application") ''创建EXCEL对象Set xlBook = xlApp.Workbooks.Open(App.Path &"\文件名.xls") ''打开已经存在的EXCEL工件簿文件xlApp.Visible = True ''设置EXCEL对象可见(或不可见)Set xlSheet = xlBook.Worksheets("sheel1") ''设置活... 阅45 转自坐上云端... 公众公开 12-04-18 15:54 |
七、单元格位移:sub my_offsetActiveCell.Offset(0, 1).Select''当前单元格向左移动一格ActiveCell.Offset(0, -1).Select''当前单元格向右移动一格ActiveCell.Offset(1 , 0).Select''当前单元格向下移动一格ActiveCell.Offset(-1 , 0).Select''当前单元格向上移动一格end sub.隐藏SHEET1这张工作表:sheets(&... 阅4094 转71 评0 公众公开 12-04-18 14:57 |