请教高手！如何点击按钮出现下拉菜单！拜托！拜托！

Question

Private Sub Command1_Click()
PopupMenu 菜单名
End Sub

Answer 1

Private Sub Command1_Click()
PopupMenu 菜单名, , Command1.Left, Command1.Top + Command1.Height
End Sub

Answer 2

最简单的方法就是，先做好菜单，让它不可见，当你按下按钮时，用POPUPMENU 你的菜单名，即可。

Answer 3

你必须用菜单编辑器编辑一个下拉菜单，
private sub command1_click()
me.popupmenu 菜单名,方式，X，Y
'''''''EG:me.popupmenu mnufile,2,360,360
'''''''''菜单会出现在离窗体左边360，顶端360的位置
end sub
接分

Answer 4

出现下面错误：
C:\Documents and Settings\Administrator\My Documents\Visual Studio Projects\WindowsApplication26\Form1.vb(94): Name 'PopupMenu' is not declared.
C:\Documents and Settings\Administrator\My Documents\Visual Studio Projects\WindowsApplication26\Form1.vb(94): Name '菜单名' is not declared.
如何改？能详细点吗？

Answer 5

vb.net中的菜单控件是那一个？是mainmenu吗？

Answer 6

点击工具,选菜单编辑器,建一不可见菜单,在command1_click事件中，
PopupMenu 菜单名, , x, y(x y为弹出点的坐标)

Answer 7

Name 'PopupMenu' is not declared.
为什么？

Answer 8

你用。net的话，加一个ContextMenu
ContextMenu1.Show(Me, Button1.Location)
就可以了。

Answer 9

一个很酷的下拉式菜单:
下拉菜单
</a></font>
</span>
</span>
</layer>
</ilayer><script language="JavaScript1.2">
var enableeffect=truevar selection=new Array()
selection[0]='<font face="宋体"><a href="http://remotion.myetang.com">下拉1</a></font><br>'
selection[1]='<font face="宋体"><a href="http://www.skycn.com">下拉2</a></font><br>'
selection[2]='<font face="宋体"><a href="http://www.delphibbs.com">下拉3</a></font><br>'
selection[3]='<font face="宋体"><a href="http://www.codelphi.com">Codelphi</a></font><br>'
selection[4]='<font face="宋体"><a href="http://www.csdn.net">下拉3</a></font><br>'if (document.layers)
document.dropmenu01.document.dropmenu02.visibility='show'function dropit2(){
if (document.all){
dropmenu03.style.left=document.body.scrollLeft+event.clientX-event.offsetX
dropmenu03.style.top=document.body.scrollTop+event.clientY-event.offsetY+18
if (dropmenu03.style.visibility=="hidden"){
if (enableeffect)
dropmenu03.filters.revealTrans.apply()
dropmenu03.style.visibility="visible"
if (enableeffect)
dropmenu03.filters.revealTrans.play()
}
else{
hidemenu()
}
}
}function dropit(e){
if (document.dropmenu03.visibility=="hide")
document.dropmenu03.visibility="show"
else
document.dropmenu03.visibility="hide"
document.dropmenu03.left=e.pageX-e.layerX
document.dropmenu03.top=e.pageY-e.layerY+19
return false
}function hidemenu(){
if (enableeffect)
dropmenu03.filters.revealTrans.stop()
dropmenu03.style.visibility="hidden"
}function hidemenu2(){
document.dropmenu03.visibility="hide"
}if (document.layers){
document.dropmenu01.document.dropmenu02.captureEvents(Event.CLICK)
document.dropmenu01.document.dropmenu02.onclick=dropit
}
else if (document.all)
document.body.onclick=hidemenu</script>
<div id="dropmenu03" style="position:absolute;left:0;top:0;layer-background-color:seashell;background-color:seashell;width:120;visibility:hidden;border:1px solid black;padding:0px">
<script language="JavaScript1.2">
if (document.all)
dropmenu03.style.padding='4px'
for (i=0;i<selection.length;i++)
document.write(selection[i])
</script>
</div><script language="JavaScript1.2">
if (document.layers){
document.dropmenu03.captureEvents(Event.CLICK)
document.dropmenu03.onclick=hidemenu2
}
</script>
</tr></table>