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

vB listBox

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

List,是ListBox中所有的列表集合,是一个数组。 例如List1.List(0)就代表List1中的第一个列表项 Text代表ListBox当前选中项目文本,与Lit1.List(List1.ListIndex)效果一样

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

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

很简单,运行Cear方法即可。例如 Private Sub Command1_Click()List1.ClearEnd Sub

Private Sub Command1_Click() Text1 = List1.ListCount End Sub

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

就是对list的添加移除,很简单的 Private Sub Command1_Click() Dim i As Integer For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i) Next List1.Clear End Sub Private Sub Command2_Click() If List1.Text "" Then List2.AddItem...

AutoPostBack设置为True,SelectedIndexChanged事件里写提示代码: For Each li As ListItem In CheckBoxList.Items If (li.text == "a" and li.Checked) Then msgbox("a") End If If (li.text == "b" and li.Checked) Then msgbox("b") End IfNext

问题1: Private Sub Command1_Click() list1.list(list1.listindex) = text1.text end sub 问题2: Private Sub Command2_Click() dim fn as string, i as long fn="E:\大刚缴费系统\" & Year(Now) & "\" & Month(Now) & "\" & Day(Now) & ".tx...

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