改写控件中的Delete方法如下,由于List1.RemoveItem是个sub过程,所以它没有返回值
Public Function delete(ByVal Index As Integer) As Variant
List1.RemoveItem Index
End Function
Public Function delete(ByVal Index As Integer) As Variant
List1.RemoveItem Index
End Function
调试欢乐多
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货