nynw.net
当前位置:首页 >> vB listBox >>

vB listBox

1)List Box控件常用的方法 参数: AddItem 向列表框添加新项目,其格式为: ListBox控件名.AddItem<项目>[,<索引值>] 其中: 为字符串表达式,表示添加到列表框中的新项目。 为数值表达式,指定在列表框中插入新项目的位置。若为0,则插...

在编辑状态,可以在listBox的属性list中添加,直接点击list属性右侧下拉箭头后输入即可;在运行状态,可以使用语句 list1.AddItem 添加内容。

VB可通过循环来获取ListBox控件的List属性。 List属性,返回或设置控件的列表部分的项目。列表是一个字符串数组,数组的每一项都是一列表项目。 下列代码读取ListBox控件的List属性。 Option Explicit Dim I As LongPrivate Sub Form_Click() Fo...

如果是单项选择的ListBox,那么只要把选项设为当前选项即可: List1.ListIndex = 5 '把第6项设为默认选中 如果是多项选择的ListBox(MultiSelect属性不为0),则可以用Selected属性: List1.Selected(2) = True '第3项默认选中 List1.Selected(4...

刚刚试了一下: Dim i As Long For i = 1 To 524289 List1.AddItem (i) Next 代码能够正常运行,但填充列表花了将近5分钟,不敢再试了。

Private Sub Command1_Click() Dim I As Integer For I = 0 To List1.ListCount - 1 If List1.Selected(I) Then List2.AddItem List1.List(I) End If Next End Sub

在程序设计阶段,可在属性窗口ListBox控件的List属性中输入 如果是程序运行阶段,则通过以下的代码输入: List1.AddItem "要输入的文字"

Option Explicit Private Sub Command1_Click() Dim i For i = List1.ListCount - 1 To 0 Step -1 If List1.List(i) = "猪" Then List1.RemoveItem i Next End Su

添加窗体,添加listbox控件list1,添加文本框text控件text1,代码如下: Private Sub Form_Load()For i = 1 To 20List1.AddItem "编号:" & iNext iEnd SubPrivate Sub List1_DblClick()Text1 = List1.List(List1.ListIndex)End Sub运行后,达到...

比如我有个txtbox输入了100,然后我选中了listbox里的10,我要怎么写该能读取listbox里的10,然后来计算100*10? 解答:当你选中的值是:List1.List(List1.ListIndex) 你只要 100 * Format(List1.List(List1.ListIndex), 0) 就能得到100乘以你选...

网站首页 | 网站地图
All rights reserved Powered by www.nynw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com