系统粉 > 电脑问答 > 其他问答

已解决VB编程问题(有奖),帮朋友问的,我没学过VB(斑竹锁)

提问者:听夏天的风声  |  浏览次  |  提问时间:2017-02-16  |  回答数量:7

VB编程问题(有奖),帮朋友问的,我没学过VB(斑竹锁) text1=list1.text

已有7条答案
我恨头大的女人

我恨头大的女人

回答数:145  |  被采纳数:144

能帮忙写全吗?我不懂,没学过VB
刚开始学C
2017-02-16 11:26:23
赞 14
靓颖的小嘴

靓颖的小嘴

回答数:97  |  被采纳数:36

'窗体加载时在列表框中加载4个选项
Private Sub form_Load()
list1.addItem("item1")
list1.addItem("item2")
list1.addItem("item3")
list1.addItem("item4")
End sub
'单击按钮文本框中显示在列表框选中的项
private sub C1_Click()
dim selectstring as string
'循环判断是否选中
for i=0 to list1.listCount-1
if list1.selected(i)=true then
exit for
endif
next

if i=list1.listCount then
'没有项被选中
msgbox("没有选中项")
exit sub
else
'有选中的项
selectstring=list1.list(i)
text1.text=selectstring
end if

end sub
'备注:此程序是我默写的,没有经过IDE,相信能够通过!
2017-02-16 13:29:29
赞 9
凤11莹莹

凤11莹莹

回答数:213  |  被采纳数:21

奖励已经发出了吗?
2017-02-16 14:41:20
赞 21
只爱exo勋鹿

只爱exo勋鹿

回答数:48  |  被采纳数:52

text1=list1.text
2017-02-16 19:08:45
赞 4
浸没在烟里哭

浸没在烟里哭

回答数:123  |  被采纳数:58

三楼的写的在复杂了,前面加载那几个是对的,至于选中的直接复制在文本框上不用for 来判断,直接text1.text=list1.listindex.text就可以了
2017-02-16 14:11:59
赞 12
凤凰欲飞_

凤凰欲飞_

回答数:191  |  被采纳数:115

Private Sub Form_Load()
List1.AddItem ("item1")
List1.AddItem ("item2")
List1.AddItem ("item3")
List1.AddItem ("item4")
End Sub

Private Sub C1_Click()
Text1 = List1.Text
End Sub
2017-02-16 21:00:41
赞 19
krissica我的爱

krissica我的爱

回答数:222  |  被采纳数:144

题目是:
在窗体上有一个列表框,名称为List1,一个文本框,名称为Text1,和一个命令按钮,名称为C1,标题为”复制”.要求程序运行后,在列表框中自动建立4个列表项,分别为” Item1” “Item2” “Item3” “Item4”.如果选择列表框中的一项,则单击”复制”按钮时,可以把该项复制到文本框中.

不会编,希望哪位帮忙编下
谢谢了

帮忙编的奖励500DY
2017-02-17 02:01:22
赞 22
相关问答
最新其他问答
解决方法