📄 2014.html
字号:
<html> <head> <title>TreeView可以排序吗?</title> </head> <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK=""> <center> <h1>TreeView可以排序吗?</h1> </center><HR><p>Posted by <a href="mailto:lchen@geocities.com">巨蟹座女子</a> on February 19, 1998 at 03:59:36:<p>在TreeView1.Nodes.Add时, 新增的Node只能放在最后, 不能依A到Z<br>排序. 还有, 目前资料库只有约300笔Records, 就要花大概十秒钟<br>的时间才能显现画面. 要如何修正呢?<p>程式如下:<p>' ><p> Set rsDirectory = myDB.OpenRecordset("目录名称", dbOpenDynaset)<br> <br> '<br> Set nodX = TreeView1.Nodes.Add(, , "0_", "\", 1, 2)<br> rsDirectory.MoveFirst<br> <br> '<br> Do While rsDirectory.EOF = False<br> With rsDirectory<br> If !Parent = "0_" Then<br> Set nodX = TreeView1.Nodes.Add("0_", tvwChild, !Key, !Text, 1, 2)<br> nodX.EnsureVisible<br> Else<br> Set nodX = TreeView1.Nodes.Add(Trim(!Parent), tvwChild, Trim(!Key), Trim(!Text), 1, 2)<br> End If<br> .MoveNext<br> End With<br> Loop<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 2014--><!--top: 2049--><li><a href="2049.html"><b>不行</b></a> 小吴 <i>17:35:32 2/22/98</i>(<!--responses: 2049-->0)<ul><!--insert: 2049--></ul><!--end: 2049--></ul><!--end: 2014--><br><HR><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -