VB 单击text自动出现下拉菜单,如果右键,则Button = 2