VB LISTBOX属性
additem 添加属性
listcount总记录数
listindex索引值
Private Sub Form_Load()
List1.AddItem "广东省广州市"
List1.AddItem "广东省河源市"
List1.AddItem "广东省惠州市"
List1.ListIndex = 0
End Sub
Private Sub LeftAll_Click()
Dim i As Integer
For i = 0 To List2.ListCount - 1
List1.AddItem List2.List(i)
Next
List2.Clear
List1.ListIndex = List1.NewIndex
End Sub
Private Sub LeftOne_Click()
Dim i As Integer
If List2.ListCount = 0 Then Exit Sub
List1.AddItem List2.Text
i = List2.ListIndex
List2.RemoveItem i
List1.ListIndex = List1.NewIndex
If List2.ListCount > 0 Then
If i > List2.ListCount - 1 Then
List2.ListIndex = i - 1
Else
List2.ListIndex = i
End If
End If
End Sub
Private Sub List1_dblclick()
RightOne_Click
End Sub
Private Sub List2_dblClick()
LeftOne_Click
End Sub
Private Sub RightOne_Click()
Dim i As Integer
If List1.ListCount = 0 Then Exit Sub
List2.AddItem List1.Text
i = List1.ListIndex
List1.RemoveItem List1.ListIndex
If List1.ListCount > 0 Then
If i > List1.ListCount - 1 Then
List1.ListIndex = i - 1
Else
List1.ListIndex = i
End If
End If
List2.ListIndex = List2.NewIndex
End Sub
Private Sub RightALL_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
List1.Clear
List2.ListIndex = 0
End Sub
Private Sub Up_Click()
Dim Up As Integer
With List2
If .ListIndex < 0 Then Exit Sub
Up = .ListIndex
If Up = 0 Then Exit Sub '不能将第一个项目向上移动
.AddItem .Text, Up - 1 '向上移动项目
.RemoveItem Up + 1 '删除旧的项目
.Selected(Up - 1) = True '选择刚刚被移动的项目
End With
End Sub
Private Sub Down_Click()
Dim Down As Integer
With List2
If .ListIndex < 0 Then Exit Sub
Down = .ListIndex
If Down = .ListCount - 1 Then Exit Sub '不能将最后的项目向下移动
.AddItem .Text, Down + 2 '向下移动项目
.RemoveItem Down '删除旧的项目
.Selected(Down + 1) = True '选择刚刚被移动的项目
End With
End Sub
附有截图
先新建两个listbox一个命名为:list1和一个list2
和六个命令按钮,详细命名见上图即可。为左、右、全左、全右、上、下
VB LISTBOX属性的更多相关文章
- c#、vb 自动属性
vb示例: Public Property Name() As String = "Bob" 等效于 Private _name As String = "Bob&quo ...
- VB默认属性、动态数组、Range对象的默认属性的一点不成熟的想法
1.默认属性 VB6.0有默认属性的特性.当没有给对象指定具体的属性时,"默认属性"是VB6.0将使用的属性.在某些情形下,省略常用属性名,使代码更为精简. 因为CommandBu ...
- VB ListBox 添加横向滚动条
Private Declare Function SendMessage Lib "user32 " Alias "SendMessageA" (ByVal h ...
- vb sendmessage 详解1
SendMessage函数的常用消息及其应用(有点长,希望能对大家有所帮助)函数原型: Declare Function SendMessage Lib "user32" Alia ...
- listbox里面添加WrapPanel ,支持自适应换行
listbox大家都会用,如果要让它支持换行操作还必须加上 ListBox.ItemsPanel ItemsPanelTemplate toolkit:WrapPanel/ /ItemsPanelTe ...
- listbox控件使用
1. 属性列表: SelectionMode 组件中条目的选择类型,即多选(Multiple).单选(Single) Rows 列表框中显示总共多少行 Sel ...
- VB如何连接访问数据库Access
VB如何连接访问数据库Access 听语音 | 浏览:10675 | 更新:2015-05-05 11:26 | 标签:连接 access 1 2 3 4 5 6 7 分步阅读 VB即Visual B ...
- vba中ListBox控件的使用
给ListBox添加内容 If CheckBox8 = True Then---------------------------checkbox控件被选中 For i = 0 To ListBox1. ...
- SendMessage函数的常用消息及其应用大全
来源:http://www.360doc.com/content/09/0814/10/19147_4907488.shtml,非常全面的解释. 文本框控件通常用于输入和编辑文字.它属于标准 Wind ...
随机推荐
- 忘记Oracle系统管理员sys的密码
sqlplus / as sysdba; alter user sys identified by newpwd***;
- git push时提示"Everything up-to-date"
从github上git clone下的项目,添加或修改文件后,git push时出现"Everything up-to-date" , 即“一切都是最新的'. 通过 git s ...
- druid数据源
Druid是一个JDBC组件,它包括三部分: DruidDriver 代理Driver,能够提供基于Filter-Chain模式的插件体系. DruidDataSource 高效可管理的数据库连接池 ...
- 订阅Linux内核邮件列表
http://www.wowotech.net/sort/linux_application/lkml.html https://kernelnewbies.org/ML https://lkml.o ...
- 使用结构struct作为Dictionary<TKey,TValue>的键
我们经常用简单数据类型,比如int作为泛型Dictionary<TKey,TValue>的key,但有时候我们希望自定义数据类型作为Dictionary<TKey,TValue> ...
- eclipse3.4配置的tomcat server如何部署以前的web项目?
1. 打开.project文件,在<natures>元素中加入 <nature>org.eclipse.wst.common.project.facet.core.nature ...
- 【BZOJ】【2127】happiness
网络流/最小割 Orz Hzwer. 这题他题解说的比较简略……我手画了个图才明白过来…… 嗯对于每个人选文or理的单独收益大家应该很好理解……连S->i 权值为选文的喜悦值,i->T权值 ...
- Hibernate @Entity注解配置说明
持久化是位于JDBC之上的一个更高层抽象. 持久层将对象映射到数据库.以便在查询.装载.更新或删除对象的时候,无须使用像JDBC那样繁琐的API.EJB的早期版本号中.持久化是EJB平台的一部分.EJ ...
- 用SBT编译Spark的WordCount程序
问题导读: 1.什么是sbt? 2.sbt项目环境如何建立? 3.如何使用sbt编译打包scala? sbt介绍 sbt是一个代码编译工具,是scala界的mvn,可以编译scala,java等,需要 ...
- 系统对接API调用
在与公司外部系统对接时,API接口一般采用REST风格,对外暴露HTTP服务.只需要将入参封装好,并发起HTTP请求即可.具体请求流程如下图所示: 数据格式 API调用参数分为系统参数和业务参数,请求 ...