[求助]在窗口中打开包含richtextbox控件的窗口时鼠标右键菜单偏离 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

[求助]在窗口中打开包含richtextbox控件的窗口时鼠标右键菜单偏离

dvubb 此主题相关图片如下：截屏图片.jpg

窗口打开窗口代码：

Forms("导航窗口").Controls("SplitContainer2").Panel1Collapsed = True '隐藏导航栏

Dim PB As WinForm.Panel = e.Form.Controls("Panel4")
Dim Name As String = "日记本"
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
'Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
'PB.BaseControl.Controls.Clear
PB.BaseControl.Controls("panel5").visible = False '增加此句
PB.BaseControl.Controls.add(Forms(Name).BaseForm)
Forms(Name).BaseForm.left = (pb.width-Forms(Name).BaseForm.width) / 2
Forms(Name).BaseForm.top = (pb.height-Forms(Name).BaseForm.height) / 2
Forms("日记本").open

测试示例做几次都没有成功，但大概找到原因了。

在主窗口内有个"panel1",次窗口显示richtextbox的也是个"panel1"。

当在主窗口显示次窗口时：在次窗口右键点击击鼠标时，右键菜单显示到了主窗口中。

请老师指教。谢谢！

1、自定义函数mytxt_MouseDown：

Dim sender = args(0) 'rtf窗口鼠标右键
Dim e = args(1)

Dim f As WinForm.Form = Forms.ActiveForm
If f IsNot Nothing Then
    If e.Button = MouseButtons.Right Then '假定按下的是鼠标右键
        ContextMenus("快捷菜单1").Show(f.controls("panel1"),e.x,e.y) '则在鼠标位置显示快捷菜单
    End If
End If

2、窗口打开窗口代码：

Forms("导航窗口").Controls("SplitContainer2").Panel1Collapsed = True '隐藏导航栏

甜老师好！

遇到老师楼上质疑的问题了：

我在窗口中的页面集合中有多个richtextbox同时使用，鼠标右键的快捷菜单怎样调用？自定义函数mytxt_MouseDown怎样修改？

谢谢！

1、自定义函数mytxt_MouseDown：

Dim sender = args(0) 'rtf窗口鼠标右键
Dim e = args(1)

老师好！

我在窗口的afterload中命名和赋值没有问题；但是鼠标右键不出现快捷菜单，不知道是哪里的问题？

1、AfterLoad

Dim ct1 As New Windows.Forms.RichTextBox
ct1.Dock = Windows.Forms.DockStyle.Fill
ct1.Name ="RichTextBox1"
e.Form.Controls("Panel1").BaseControl.Controls.Add(ct1)
ct1.DataBindings.Add("text", Tables("表A").Grid.DataSource, "第一列")
ct1.Font = new System.Drawing.Font("楷体", 12) '字体

Dim ct2 As New Windows.Forms.RichTextBox
ct2.Dock = Windows.Forms.DockStyle.Fill
ct2.Name ="RichTextBox2"
e.Form.Controls("Panel2").BaseControl.Controls.Add(ct2)
ct2.DataBindings.Add("text", Tables("表A").Grid.DataSource, "第二列")
ct2.Font = new System.Drawing.Font("楷体", 12) '字体

Dim ct3 As New Windows.Forms.RichTextBox
ct3.Dock = Windows.Forms.DockStyle.Fill
ct3.Name ="RichTextBox3"
e.Form.Controls("Panel3").BaseControl.Controls.Add(ct3)
ct3.DataBindings.Add("text", Tables("表A").Grid.DataSource, "第三列")
ct3.Font = new System.Drawing.Font("楷体", 12) '字体

------------------

2、MouseDown----？

If e.Button = MouseButtons.Right Then '假定按下的是鼠标右键

ContextMenus("快捷菜单1").Show(e.Form.Controls("RichTextBox1"),e.x,e.y) '则在鼠标位置显示快捷菜单
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目66.table

[此贴子已经被作者于2019/6/13 18:35:03编辑过]

这俩句代码放不进事件，提示未定义sender

msgbox(sender.name)

msgbox(sender.parent.name)

图片点击可在新窗口打开查看此主题相关图片如下：截屏图片.jpg

主题：[求助]在窗口中打开包含richtextbox控件的窗口时鼠标右键菜单偏离