中科新闻网奇虎360怎么样:VB右键问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/16 06:00:59
'大家看看下列代码有什么错误？
Private Sub rtfText_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
frmMain.PopupMenu frmMain.mnuEdit, vbPopupMenuLeftAlign
Else
Exit Sub
End If
End Sub
'rtfText是子窗体里的
'错误提示为实时错误：'426'只允许一个MDI窗体
'请问该如何修改？
Private Sub rtfText_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
frmMain.PopupMenu frmMain.mnuEdit, vbPopupMenuLeftAlign
Else
Exit Sub
End If
End Sub
'rtfText是子窗体里的
'错误提示为实时错误：'426'只允许一个MDI窗体
'请问该如何修改？
frmMain.PopupMenu frmMain.mnuEdit ,x,y 就行