恭贺新禧，向大家提供XML做的XP菜单~

Question

请访问：http://blog.csdn.net/lovingkiss/archive/2005/02/03/278650.aspx

Answer 1

http://blog.csdn.net/error.aspx?aspxerrorpath=/lovingkiss/archive/2005/02/03/278650.aspx

Answer 2

交流學習
http://blog.csdn.net/cityhunter172/

Answer 3

一、我把你的“客户端动态拖动列、调整宽度的表格 ”源碼改了一下
之前的 For 循環 保存了一項多余的 i=0 的情況
'==========================調整到原有的狀態=======================
Sub ChangeOldWidth
'恢復原來的設定狀態
On Error Resume Next
If UCase(TypeName(Window.Document.All("MySaveWidth")))<>"NOTHING" Then
With Window.Document.All("MySaveWidth")
If .Value<>"" Then
Dim CurWidth
CurWidth=Split(.Value,",")
element.Style.Width=CurWidth(0)
dim i
                           '修改了 For 循環
for i = 1 to element.rows.item(0).cells.Length-1
element.rows.item(0).cells.item(i).Style.Width=CurWidth(i)
next
End If
End With
End If
End SubSub SaveWidth()
'保存當前寬度
If UCase(TypeName(Window.Document.All("MySaveWidth")))<>"NOTHING" Then
With Window.Document.All("MySaveWidth")
dim i
.value=element.clientWidth & ","
                  '修改了 For 循環
for i = 1 to element.rows.item(0).cells.Length-1
.value=.value & element.rows.item(0).cells.item(i).clientWidth & ","
next
.value=Left(.value,Len(.value)-1) '去掉最後一個逗號
End With
End If
End Sub
二、關于你用 XML做的XP菜单    可否多加一個 "URL" 屬性 ，原因是不一定每個人都會 VBScript ，有的人用 Javascript    如果我要用的話，我會優先考慮使用框架來呈現點擊菜單后的內容

Answer 4

up，虽然已经有XP菜单的自定义控件了，呵呵。

Answer 5

cityhunter172(寒羽枫) ，多谢你的更改1、那个循环是我疏忽了，回头找个时间更新一下
2、本来有URL这个功能来着，后来同事说既然可以写Window.Open，URL是画蛇添足，后来我就给去掉了阿——也是为了节约代码量~~

Answer 6

更新了下载地址：博客地址：
http://blog.csdn.net/lovingkiss/archive/2005/02/03/278650.aspx增加了新功能，图片移动功能直接下载：
http://219.146.141.37/BBS/usr/7/7_295.rar