VB中如何在label中显示combobox的内容
3个回答
展开全部
把内容取出来然后字符串连接就行了
Private
Sub
Command1_Click()
Dim
str
As
String
Dim
i
As
Integer
For
i
=
0
To
Combo1.ListCount
str
=
str
&
Combo1.List(i)
Next
Label1.Caption
=
str
End
Sub
Private
Sub
Form_Load()
Combo1.AddItem
"楼"
Combo1.AddItem
"主"
Combo1.AddItem
"你"
Combo1.AddItem
"好"
Combo1.AddItem
"!"
End
Sub
用Combo1.List(i),i是下表来取得Combo里的每个字符串,然后字符串连接赋值给Label1.Caption
就可以在label里显示combo的内容了
Private
Sub
Command1_Click()
Dim
str
As
String
Dim
i
As
Integer
For
i
=
0
To
Combo1.ListCount
str
=
str
&
Combo1.List(i)
Next
Label1.Caption
=
str
End
Sub
Private
Sub
Form_Load()
Combo1.AddItem
"楼"
Combo1.AddItem
"主"
Combo1.AddItem
"你"
Combo1.AddItem
"好"
Combo1.AddItem
"!"
End
Sub
用Combo1.List(i),i是下表来取得Combo里的每个字符串,然后字符串连接赋值给Label1.Caption
就可以在label里显示combo的内容了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
楼上的实在太麻烦且效率极低,最好的办法就是:
Label1.Caption
=
Combo1.Text
Label1.Caption
=
Combo1.Text
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果要显示所有的文字。也就是这么复杂了。要是只要当前选择中的文字,就是一句。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询