LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
皇帝

vb中怎样从listbox中调出信息分别写入两个textbox中啊!

allen
2013年11月17日 2:10 本文热度 5577
就是我在listbox中合并了信息写入了,在怎么拿出来写入分开啊!因为我想把它在逐条展示!谢谢
 




代码:


Private Sub Form_Load()
Dim i As Long
With List1
For i = 1 To 9
.AddItem i & "*" & i * i & .ListCount
Next i
End With
End Sub


Private Sub List1_Click()
Dim strData As String
Dim strSplit() As String
strData = List1.List(List1.ListIndex)
strSplit = Split(strData, "*")
Text1.Text = strSplit(0)
Text2.Text = strSplit(1)
End Sub


原理就是这样的




追问:

能讲一下 index 和split()作用吗?如果我想用按钮控制listbox中信息的上下移动呢?谢咯!!!


回答:


ListIndex是用来确定选择的项,而split是用来分割一个字符串,其中" * "表示以*作为分割符.


用按钮来控制上下移动也很简单,比如向下:.Selected(List1.ListIndex + 1) = True

;向上就.Selected(List1.ListIndex - 1) = True;注意开始和结束大位置就行了,每次使用的时候判断一下是不是到了最上和最下.前面大图片里有注释代码大意思.

该文章在 2013/11/17 2:10:16 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved