怎么在treeview控件中实现拖放技术！！！！

[moudgeen]

请问怎么才能在treeview控件中实现拖放技术,最好有点源代码让我 参好一下，谢谢！！！

[moudgeen]

string sl,je,m,str
integer n,j,i,w

sl="零壹贰叁肆伍陆柒捌"
je="个拾佰仟万拾佰仟亿拾佰仟万亿"

m=trim(sle_1.text)
n=len(m)
j=n
str=""
for i=1 to n
w=integer(mid(m,i,1))

if w > 0 then
str=str + mid(sl,w + 1,1)
if mid(je,j,1) = "个" then
str=str + ""
else
str=str + mid(je,j,1)
end if
elseif w = 0 then
if mid(je,j,1) = "亿" then
str = str + mid(je,j,1)
elseif mid(je,j,1) = "万" then
if n >= 9 then //上亿的情况
if integer(left(right(m,n - 1),3)) = 0 then //如果6-8位为0,则不要加"万"字
str=str + ""
elseif integer(left(right(m,n - 1),3)) > 0 then //如果6-8位不为0,则不要
加"万"字
str = str + mid(je,j,1)
end if
else //没有上亿的情况
str = str + mid(je,j,1)
end if
if integer(mid(m,i+1,1)) > 0 then
str = str + mid(sl,w + 1,1)
end if
elseif mid(je,j,1) = "个" then //如果为"个"则去掉
str=str + ""
elseif integer(mid(m,i+1,1)) > 0 then //是否为有效零
str = str + mid(sl,w + 1,1)
elseif integer(mid(m,i))=0 then //后继全为0的情况
if j >=9 then str=str+"亿"
if j >=5 then str=str+"万"
exit
end if
end if
j=j - 1
if n=1 and w=0 then //一位且为0的情况
str=mid(sl,w + 1,1)
end if
next
sle_2.text=str

[wu_07]

http://expert.csdn.net/Expert/topic/1857/1857917.xml?temp=.6684229

[Thinkinger]

1：getitem()
2：deleteitem()
3：setitem()

[tchatcha]

up

主要是处理treeitem 的data