VB中点击list1列出的项目,同时在text1显示与该项目同一行的字段。
Private Sub Form_Load()Dim s As StringOpen "d:\abc\123.txt" For Input As #1 '文件名自己改List1.ClearDo Until EOF(1) Line Input #1, s List1.AddItem sLoopClose #1End SubPrivate List1_Click()Text1.Text = Text1.Text & List1.TextList1.RemoveItem List1.ListIndexEnd Sub
用list1.list(i)可以获取列表了某一项,i是列表项的索引,从0开始,由上到下.你的问题可以用如下代码实现:
Private Sub List1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
Text1.Text = List1.List(i)
End If
Next
End Sub
完全按照你的要求做好了,如图:
怎么给你?
'设置一个公共函数组:如
Dim a() As String
Private Sub Form_Load()
ReDim a(4, 0) '第一维数说明0=ID 1=学号 2=姓名 3=电话 4=地址
'此处按你List提取字段的方法,提取表内容并用
ReDim Preserve a(4, UBound(a, 2) + 1)
'方法将字段赋值给a数组
End Sub
'点击List1把字段值赋予文本框Text1控件组
Private Sub List1_Click()
For i = 0 To 4
Text1(i) = a(i, List1.ListIndex + 1)
Next
End Sub
1、首先确保各文本框和数据控件连接并显示相应的数据字段,当你用数据控件在移动数据记录时,观察文本框显示内容正确
2、在List 增加数据记录定位的程序
Data1.Recordset.FindFirst "学号='" + Trim(List.Text) + "'"
留个QQ我帮你改改
如果在列表框List1中没有选中项目,则List1.List.Index的值为A.-1B...
【答案】:A 列表框List1中没有选中项目,则List1.Listlndex的值为-1。
VB中,如何让一个变量b,每点击一下按钮就自增1,要从0开始的 应该在B=B...
Private Sub Command1_Click()b = b + 1 MsgBox b End Sub
在EXCEL中,怎样点击单元格就会出现一个选项窗口
1、建立“项目"工作表 见图一 2、选中A列中的所有项目名称 在左面地址栏修改成"项目"见图二 3、转到“主表”,选中需要下拉列表的单元格,这里假设:A1 转到“数据”工具栏>点击“数据有效性”在跳出的“数据有效性”对话框中 “允许”选择:序列 “来源”输入:=项目 然后点确定 见图三 4、操...
VB中去除有重复数字的数组问题?
根据描述的要求是这样的吧:在每个文本框内抽一个数进行组合并从小到大排序,当一个组合出现重复数字时舍去,把无重复数字并且排好序的所有数字组合加入list1列表框。为了实现筛选组合和排序最好增加一个函数:“排序并去重”目的是把抽出6个数字进行排序并检查是否有重复数字。如有重复返回false表示此组合...
excel公式教程求一列中的数字剔除掉另一列中的数字后剩下的数字_百度知...
引用位置:=$B$2:$B$12 名称:Arry1 引用位置:=ROW(List1)-MIN(ROW(List1))名称:Arry2 引用位置:=ROWS(List1)-ROW(List1)+MIN(Row(List1))在单元格D1中,使用下面的公式确定列C中要返回的数字数量:=COUNT(List1)-COUNT(List2)1. 在公式中IF子句的第一部分:IF(ROWS($1:1)>$...
用python处理两个列表 list1=[1,2,3,4] list2=[a,b,c,d] 变成list3 =...
>>> l1 = [1, 2, 3, 4]>>> l2 = ['a', 'b', 'c', 'd']>>> [[x, y] for i, x in enumerate(l1) for y in l2[i]][[1, 'a'], [2, 'b'], [3, 'c'], [4, 'd']]>>> 这种 必须 len(l1) == len(l2)...
java中两个list,list1[1,2],list2[a,b],输出list3[1a,1b,2a,2b]应该...
List<String> list3 = new ArrayList<String>();list1.add("1");list1.add("2");list2.add("a");list2.add("b");for (String string1 : list1) { for (String string2 : list2) { list3.add(string1+string2);} } System.out.println(list3);在集合1中迭代,在迭代1中迭代...
实现两个链表的合并,使用java语言编写一程序,将A表和B表归并成一个新...
Collections.addAll(list2, 23, 56, 78, 23, 12, 33, 79, 90, 55);test1(list1, list2);}public static void test1(List<Integer> list1, List<Integer> list2) {list1.removeAll(list2);\/\/ list1中删除和list2中交集的元素list2.addAll(list1);\/\/ 合并Collections.sort(list2);for...
excel做一个表格 在A竖行X排输入list1-2后 会在B(CDEF...)竖排X+...
我这样给你建议:你先把有AB的列排序。这样就会知道有A的数据到哪一行。然后选取前面有A的数据,复制,到新建表中选择性粘贴--转置。这样就从竖列转到横行中了。如此再复制B...看到你的补充,有些不明白,你的数据不是就有两列?已经帮你完成,发至你邮箱。只是因为你的文件有些问题,是经过修复...
...分别选中后点击command1,让内容显示在form2的list控件中
'选择A、乙时,点击command1,在form2中的list控件里显示456.Private Sub Form_Load()Combo1.ClearCombo2.Clear Combo1.AddItem "甲" Combo1.AddItem "已" Combo1.AddItem "丙" Combo1.AddItem "丁" Combo2.AddItem "A" Combo2.AddItem "B" Combo2.AddItem "C" Com...
殷欢银杏: Private Sub List1_DblClick() List1.RemoveItem List1.ListIndex End Sub
循化撒拉族自治县18024323703: 在线等,可怜的说,VB中如何双击列表框LIST下的内容触发事件, - ?
殷欢银杏: Private Sub List1_DblClick() MsgBox "你双击了" & List1.Text End Sub
循化撒拉族自治县18024323703: VB中单击列表框的1个项,就复制内容到另一个列表框,并删除选中项? - ?
殷欢银杏: Private Sub List1_Click() List2.AddItem List1.List(List1.ListIndex) List1.RemoveItem (List1.ListIndex) End Sub
循化撒拉族自治县18024323703: VB中如何将list中的列表项选中 - ?
殷欢银杏: 鼠标点击不就选中了,还可以用selected(0)=true 表示选中第一项for i=0 to list1.listcount-1 if i mod 2=1 then list1.selected(i)=true'选中全部奇数项 next
循化撒拉族自治县18024323703: vb问题;要求按照程序运行后,如果多次单击列表框中的项,则可同时选择这些项, - ?
殷欢银杏: l1.Selected = True
循化撒拉族自治县18024323703: VB6.0的列表框怎么才能不重复相同名称的项目???
殷欢银杏: 假设你要添加的字符串变量为str,并从text1.text 中取得,单击command1时添加项目: 列表框的名称为 list1 代码如下: Private Sub Command1_Click() Dim str As String Dim i As Integer, flag As Boolean str = Trim(Text1.Text) flag = False For i...
循化撒拉族自治县18024323703: VB的List1控件所有的使用方法?
殷欢银杏: 1)List Box控件常用的方法 参数: AddItem 向列表框添加新项目,其格式为: ListBox控件名.AddItem[,] 其中: <项目>为字符串表达式,表示添加到列表框中的新项目. <索引值>为数值表达式,指定在列表框中插入新项目的位置.若为0,则插...
循化撒拉族自治县18024323703: vb listbox如何实现单击listbox1的项目,listbox2的项目会发生变化 - ?
殷欢银杏: sub listbox1_click() listbox2.add 1 end sub
循化撒拉族自治县18024323703: 在VB6.0 listbox中有 list1和list2 ,如何把list1选中项移动到list2中,但list2中不能重复同一个值!?
殷欢银杏: On Error GoTo aaList2.AddItem (List1.List(List1.ListIndex))List1.RemoveItem List1.ListIndexaa:
循化撒拉族自治县18024323703: VB通过多次单击选中多个列表项目,并单击显示,在窗体上输出所有选种列表项 - ?
殷欢银杏: for i = 0 to list1.listcount-1 if list1.selected(i) then print list1.list(i) end if next i