高校问答netflix上好看的剧:VB右键问题
来源：百度文库 编辑：高校问答 时间：2024/05/09 06:49:19
'大家看看下列代码有什么错误？
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 就行