正文

用按钮调整列表框项目的顺序2005-10-10 00:02:00

【评论】 【打印】 【字体：大 中 小】 本文链接：http://blog.pfan.cn/tcmcz/5846.html

分享到：

Private Sub Command1_Click()With List1    temp = .List(.ListIndex)    .List(.ListIndex) = .List(.ListIndex - 1)    .List(.ListIndex - 1) = temp    .ListIndex = .ListIndex - 1End WithLabel1.Caption = List1.TextEnd Sub Private Sub Command2_Click()With List1    temp = .List(.ListIndex)    .List(.ListIndex) = .List(.ListIndex + 1)    .List(.ListIndex + 1) = temp    .ListIndex = .ListIndex + 1End WithLabel1.Caption = List1.TextEnd Sub Private Sub Form_Load()For i = 0 To 10    List1.AddItem iNextList1.ListIndex = 1End Sub

阅读(346) | 评论(0)


版权声明：编程爱好者网站为此博客服务提供商，如本文牵涉到版权问题，编程爱好者网站不承担相关责任，如有版权问题请直接与本文作者联系解决。谢谢！

评论

暂无评论
您需要登录后才能评论，请 登录 或者 注册