二级VB 如果我要把列表框中双击选中的项添加到列表框中 则代码应该是？
我自己写的是
Private Sub List1_DblClick()
List1.AddItem (List1.Text)
End Sub
运行结果是对的
但是答案好复杂，是
Private Sub List1_DblClick()
For 1=0 To List1.Listcount-1
If List1.Selected(i)=True Then
List1.Additem List1.List(List1.ListIndex)
End If
Next i
End Sub
我觉得这个好麻烦，我想知道我上面那个一条语句运行结果也正确的是不是对的，上级考试的话，对这个有要求么
但是题目有的时候说只能写一条命令，就用你自己的方法。
题目说要求用到控制结构、循环语句、参数什么的，就用答案给的。
VB两个列表框,选中的项目移动到另一个列表框的代码是什么?
VB有两个列表框，假设VB列表框的左列表为List1，右列表为List2，代码如下：Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem (Selected)End SubPrivate Sub Command2_Click()List1.AddItem List2.TextList2.RemoveItem (Selected)End SubPrivate Sub Form_Load()Command1.Capti...
VB 实现:把列表框里被选中的项拖放到另一个列表框里
Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type POINTAPI X As Long Y As Long End Type Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal ...
vb 中如何在两个列表框把一个列表框中的内容舔加到另一个列表框中
Dim x As String x = Me.List1.ListIndex Me.List2.AddItem Me.List1.List(x)Me.List1.RemoveItem (x)
vb中单击组合框中的某一项时,此项添加到列表框中?该程序怎么编写?
在窗体上添加一个combo1和一个list1控件,输入以下代码: Private Sub Form_Load()Combo1.AddItem "AAA"Combo1.AddItem "BBB"Combo1.AddItem "CCC"Combo1.AddItem "DDD"End SubPrivate Sub Combo1_Click()List1.AddItem Combo1.TextEnd Sub 本回答由提问者推荐 举报| 答案纠错 | 评论 3 6 ricky43 采纳率...
VB将文本框中的数据添加到列表框中
其实也没什么难 假如文本框是text1，列表框是list1,那么 list1.addItem text1就好。如果你是输入框input1，那么先定义个变量吧 a=input1(………)list1.addItem a
vf怎么将列表框中选定的内容添加到另一个列表框
添加按钮：l1=thisform.list1.displayvalue thisform.list2.additem(l1)移出按钮：thisform.list2.removeitem(thisform.list2.listindex)
VB编程如何将listbox中选中的多个选项添加至文本输入框?
假定文本框在Form1，列表框在Form2，则以下代码放在Form2：Private Sub List1_Click()Dim s As String, i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then If s <> "" Then s = s & "，"s = s & List1.List(i)End If Next obj.Text = s End ...
VB中如何设置下拉列表框,并加入我想选择的内容,求高手解答
如果想加入的是固定不变的，可以点击下拉列表框的List属性，逐个加入（按Ctrl+Enter）换行。如果是动态的用以下代码：Combo1.Clear Combo1.Additem "你要添加的内容" '如果多条，可以对这条语句进行循环操作
vb中如何让列表框选中哪项然后点一下按钮就能使选中的那项添加在列表...
你说的是选中项添加在最后面，而并不是移动到最后面，所以一句就可以。List1.AddItem List1.List(List1.ListIndex)如果是移动到最后面，则原来项需要删除。List1.RemoveItem List1.ListIndex
急!如何VB文件列表框双击文件名在文本框中显示文件内容?
fName = File1.Path + File1.FileName Else fName = File1.Path + "\\" + File1.FileName End If Text1.Text = fName Text1.MultiLine = True Open fName For input As #1 Do until EOF(1)Line Input #1, s Text1.Text = Text1.Text & chr(13) & chr(10) & s Loop Close...
