按键精灵,下拉框怎么弄
2个回答
展开全部
方法如下:
除了输入框为字符串,界面返回值大多数是0123456789其中一个,根据这个值再变化即可。
如:
Dim
a
MessageBox
"下拉框值是"&Form1.ComboBox1.ListIndex
If
Form1.ComboBox1.ListIndex
=
0
Then
a="我"
ElseIf
Form1.ComboBox1.ListIndex
=
1
Then
a="你"
ElseIf
Form1.ComboBox1.ListIndex
=
2
Then
a="他"
Else
a="其它"
End
If
MessageBox
"a的值为
"&a
除了输入框为字符串,界面返回值大多数是0123456789其中一个,根据这个值再变化即可。
如:
Dim
a
MessageBox
"下拉框值是"&Form1.ComboBox1.ListIndex
If
Form1.ComboBox1.ListIndex
=
0
Then
a="我"
ElseIf
Form1.ComboBox1.ListIndex
=
1
Then
a="你"
ElseIf
Form1.ComboBox1.ListIndex
=
2
Then
a="他"
Else
a="其它"
End
If
MessageBox
"a的值为
"&a
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询