28,408
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
jinhaiou 2002-03-29
- 打赏
- 举报
說話算數﹐給100分﹒
jinhaiou 2002-03-29
- 打赏
- 举报
<html>
<body>
<style style="text/css">
td {font-size:12;}
</style>
<table border=0 cellspacing=0>
<tr><td><img id="Clip1" src="clipclose.gif" align=middle>踏出第一步</td></tr>
<tr><td id="Menu1"></td></tr>
<tr><td><img id="Clip2" src="clipclose.gif" align=middle>陷入無底深淵</td></tr>
<tr><td id="Menu2"></td></tr>
<tr><td><img id="Clip3" src="clipclose.gif" align=middle>VB的親兄弟</td></tr>
<tr><td id="Menu3"></td></tr>
<tr><td><img id="Clip4" src="clipclose.gif" align=middle>外行湊熱鬧</td></tr>
<tr><td id="Menu4"></td></tr>
</table>
<script language=vbscript>
<!--
Dim M1
Dim M2
Dim M3
Dim M4
M1=0
M2=0
M3=0
M4=0
Sub Clip1_OnClick()
If M1=0 Then
Clip1.Src = "clipopen.gif"
Menu1.InnerHtml = " <a href='../new/new.html'>新手教學單元</a><br> <a href='../exp/exp.html'>函數指令單元</a><br> <a href='../zyx/zyx.html'>模組討論單元</a>"
M1=1
Else
Clip1.Src = "clipclose.gif"
Menu1.innerHtml =""
M1=0
End If
End Sub
Sub Clip2_OnClick()
If M2=0 Then
Clip2.Src = "clipopen.gif"
Menu2.InnerHtml = " <a href='../obj.html'>物件運用單元</a><br> <a href='../tip/tip.html'>小秘訣單元</a><br> <a href='../api/api.html'>API簡述單元</a><br> <a href='../mexpc/mexpc.html'>自製函數單元</a>"
M2=1
Else
Clip2.Src = "clipclose.gif"
Menu2.innerHtml =""
M2=0
End If
End Sub
Sub Clip3_OnClick()
If M3=0 Then
Clip3.Src = "clipopen.gif"
Menu3.InnerHtml = " <a href='../vba/vba.html'>Office VBA單元</a><br> <a href='../vbss/vbss.html'>VBS與DHTML單元</a>"
M3=1
Else
Clip3.Src = "clipclose.gif"
Menu3.innerHtml =""
M3=0
End If
End Sub
Sub Clip4_OnClick()
If M4=0 Then
Clip4.Src = "clipopen.gif"
Menu4.InnerHtml = " <a href='http://home.todo.com.tw/life/stupids/dwl/dwl.html'>作品下載單元</a><br> <a href='../sys/legend.html'>VB傳奇單元</a>"
M4=1
Else
Clip4.Src = "clipclose.gif"
Menu4.innerHtml =""
M4=0
End If
End Sub
-->
</script>
</body>
</html>
<body>
<style style="text/css">
td {font-size:12;}
</style>
<table border=0 cellspacing=0>
<tr><td><img id="Clip1" src="clipclose.gif" align=middle>踏出第一步</td></tr>
<tr><td id="Menu1"></td></tr>
<tr><td><img id="Clip2" src="clipclose.gif" align=middle>陷入無底深淵</td></tr>
<tr><td id="Menu2"></td></tr>
<tr><td><img id="Clip3" src="clipclose.gif" align=middle>VB的親兄弟</td></tr>
<tr><td id="Menu3"></td></tr>
<tr><td><img id="Clip4" src="clipclose.gif" align=middle>外行湊熱鬧</td></tr>
<tr><td id="Menu4"></td></tr>
</table>
<script language=vbscript>
<!--
Dim M1
Dim M2
Dim M3
Dim M4
M1=0
M2=0
M3=0
M4=0
Sub Clip1_OnClick()
If M1=0 Then
Clip1.Src = "clipopen.gif"
Menu1.InnerHtml = " <a href='../new/new.html'>新手教學單元</a><br> <a href='../exp/exp.html'>函數指令單元</a><br> <a href='../zyx/zyx.html'>模組討論單元</a>"
M1=1
Else
Clip1.Src = "clipclose.gif"
Menu1.innerHtml =""
M1=0
End If
End Sub
Sub Clip2_OnClick()
If M2=0 Then
Clip2.Src = "clipopen.gif"
Menu2.InnerHtml = " <a href='../obj.html'>物件運用單元</a><br> <a href='../tip/tip.html'>小秘訣單元</a><br> <a href='../api/api.html'>API簡述單元</a><br> <a href='../mexpc/mexpc.html'>自製函數單元</a>"
M2=1
Else
Clip2.Src = "clipclose.gif"
Menu2.innerHtml =""
M2=0
End If
End Sub
Sub Clip3_OnClick()
If M3=0 Then
Clip3.Src = "clipopen.gif"
Menu3.InnerHtml = " <a href='../vba/vba.html'>Office VBA單元</a><br> <a href='../vbss/vbss.html'>VBS與DHTML單元</a>"
M3=1
Else
Clip3.Src = "clipclose.gif"
Menu3.innerHtml =""
M3=0
End If
End Sub
Sub Clip4_OnClick()
If M4=0 Then
Clip4.Src = "clipopen.gif"
Menu4.InnerHtml = " <a href='http://home.todo.com.tw/life/stupids/dwl/dwl.html'>作品下載單元</a><br> <a href='../sys/legend.html'>VB傳奇單元</a>"
M4=1
Else
Clip4.Src = "clipclose.gif"
Menu4.innerHtml =""
M4=0
End If
End Sub
-->
</script>
</body>
</html>
jhysky 2002-03-29
- 打赏
- 举报
InterDev 6.0等微软软件 中有自带Treeview控件ComCtl32.Ocx
isprogramer 2002-02-27
- 打赏
- 举报
谁能够给我一个网页中使用树的例子，注意不使用treeview控件，这100分就给谁。
isprogramer 2002-02-22
- 打赏
- 举报
不是，是要用控件。
isprogramer 2002-02-22
- 打赏
- 举报
我试用treeview控件做了一个页面，但是我加入的节点都显示不出来, 程序执行是没有问题的，请问是怎么回事？
馋嘴蜗牛 2002-02-21
- 打赏
- 举报
你说的具体是什么样子的 TREEVIEW？象我这个页中的：
http://www.songbai.com/tech/c.html ？
http://www.songbai.com/tech/c.html ？
