求教:怎样做出像Msgbox一样按空格后可以弹出可选参数的函数？
比如我输入 msgbox "", 这时会弹出下拉列表框 可以选择vbokonly等等
各为请问这样的功能怎么实现？
有想法提出来大家研究研究
问题点数：100、回复次数：7Top
1 楼Jiao_Neusoft（）回复于 2006-07-04 15:16:49 得分 0
顶一下吧。。。Top
2 楼verywzm（寒江雪）回复于 2006-07-04 15:20:36 得分 100
Public Enum InterfaceColors
icMistyRose = &HE1E4FF
icSlateGray = &H908070
icDodgerBlue = &HFF901E
icDeepSkyBlue = &HFFBF00
icSpringGreen = &H7FFF00
icForestGreen = &H228B22
icGoldenrod = &H20A5DA
icFirebrick = &H2222B2
End Enum
Sub msg(a As InterfaceColors)
MsgBox a
End SubTop
3 楼verywzm（寒江雪）回复于 2006-07-04 15:26:30 得分 0
搞定了，结帖吧:)Top
4 楼Jiao_Neusoft（）回复于 2006-07-04 15:29:57 得分 0
怎么结帖。。。 -_-bTop
5 楼verywzm（寒江雪）回复于 2006-07-04 15:38:07 得分 0
晕，点右上方的“管理”Top
6 楼Jiao_Neusoft（）回复于 2006-07-04 15:38:47 得分 0
不好意思打击你了。。。。。。马上Top
7 楼Jiao_Neusoft（）回复于 2006-07-04 15:43:03 得分 0
下面是前段时间摘的一段： 十分的不明白 为什么要用And呢？ 当时Copy的时候比较匆忙导致
发贴用户名不见了 。。。 你能解答一下么？
我想做这样的函数，参数类似Msgbox里面的参数，如Vbinformation + vbyesno，就是支持+号的参数解析功能
用And操作就可以了
sub test(byval p as long)
if (p and vbYesNo) =vbYesNo then
debug.print "YesNo"
end if
if (p and Vbinformation) = Vbinformation then
debug.print "Vbinformation "
end if
...
end sub
那参数提示输入实现那，如输入vbinformation后再按+号又列出所有可选的数据
Top
