vb 的 listbox学习心得

原创 2007年10月11日 12:04:00

Private Sub Command1_Click()
If leftList.SelCount > 0 Then
rightList.AddItem leftList.List(leftList.ListIndex)
leftList.RemoveItem leftList.ListIndex
End If
End Sub
'有bug 这样的话虽然选择了checkbox但是哪个蓝条不在最底显示时就会出现没有选择的也会移动到右边

Private Sub Command3_Click()
If rightList.SelCount > 0 Then
leftList.AddItem rightList.List(rightList.ListIndex)
rightList.RemoveItem rightList.ListIndex
End If
End Sub

Private Sub Command5_Click()
leftList.AddItem ("新添加")
End Sub

Private Sub Command6_Click()
leftList.RemoveItem leftList.ListIndex
End Sub
 

'有bug 这样的话虽然选择了checkbox但是哪个蓝条不在最底显示时就会出现没有选择的也会移动到右边

有待解决!!打算使用for循环进行。

当用以下代码实现复选框时就不会出现上面的情况:

Private Sub Command7_Click()
Dim x As Integer
    While leftList.SelCount > 0
        For x = 0 To leftList.ListCount - 1
            If leftList.Selected(x) = True Then
                rightList.AddItem leftList.List(x)
                leftList.RemoveItem (x)
                Exit For
            End If
        Next x
    Wend

End Sub

 

exit for即break
next就是for的大刮号了

版权声明:本文为博主原创文章,未经博主允许不得转载。

Access VBA 学习笔记 技巧

1,  最关键的Object : DoCmd DoCmd.RunSQL DoCmd.OpenForm DoCmd.OpenQuery DoCmd.OpenTable DoCmd.Quit 2, 数据的...
  • DJ2008
  • DJ2008
  • 2014年02月15日 15:30
  • 4158

学习matlab的一点心得体会

1.前言 2.matlab的一些特点 3.学习matlab心得体会 4.matlab的一些资源 1.前言 我接触Matlab的时间比较长了,最开始是在大学里面的数学实验课上了...
  • GrazyThinking
  • GrazyThinking
  • 2014年10月28日 22:50
  • 3095

Python学习中的心得体会记录(一)

Python是一门面向对象的解释性语言(脚本语言),这一类语言的特点就是不用编译,程序在运行的过程中,由对应的解释器向CPU进行翻译,个人理解就是一边编译一边执行。而JAVA这一类语言是需要预先编译的...
  • w815878564
  • w815878564
  • 2015年11月02日 01:54
  • 3658

达内Java学习心得之易犯错误

  • 2015年11月03日 10:14
  • 81KB
  • 下载

建模学习心得

  • 2015年08月03日 17:20
  • 15KB
  • 下载

Hibernate学习心得

  • 2017年03月20日 22:28
  • 25KB
  • 下载

Fortran编程学习心得与入门知识

  • 2017年12月29日 10:21
  • 354KB
  • 下载

汇编 学习心得

  • 2017年10月30日 09:18
  • 57KB
  • 下载

Fortran学习心得与总结

  • 2013年11月09日 15:40
  • 331KB
  • 下载

mfc学习心得

  • 2013年12月03日 20:17
  • 60KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb 的 listbox学习心得
举报原因:
原因补充:

(最多只允许输入30个字)