QQ糖的专栏

前几天无意中看到一片treeview保存xml的文章，文章中没有写嵌套结构的xml，无聊的时候写了一个。这个代码只是保存树型结构，并没有处理xml数据的功能，算是保存treeview的方法而已。Private Sub Command1_Click() Dim xmlDoc As DOMDocument30 Set xmlDoc = New DOMDocument30 Di

Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Declare Function GetClientRect Lib "user32" (ByVa