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

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

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

窗口打开窗口代码：

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

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

在主窗口内有个"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、窗口打开窗口代码：

为什么要用下面这个？

Dim f As WinForm.Form = Forms.ActiveForm

多个窗口一起使用的使用的时候，控件不要重名就好了。控件名可以用窗口名+本来的名字。

甜老师好！

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

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

谢谢！

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

1、可以根据sender获取窗口名称，比如

msgbox(sender.parent.name)

msgbox(sender.parent.parent.name)

2、你不是可以给 richtextbox 命名的吗？添加的时候，命名，如

txt.name = e.form.name & "_abc"

然后事件里面直接使用，如

msgbox(sender.name)

老师好！

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目66.table

1、你要给richtextbox绑定事件啊；

2、代码改成，比如

Dim ct1 As New System.Windows.Forms.RichTextBox
ct1.Dock = System.Windows.Forms.DockStyle.Fill
ct1.Name =e.form.name & "_RichTextBox1"
e.Form.Controls("Panel1").BaseControl.Controls.Add(ct1)
ct1.DataBindings.Add("text", Tables("表A").Grid.DataSource, "第一列")
'ct1.text = "在设计窗口的时候,应该先设置好分区面板的方向属性,该属性决定分区面板是水平分割,还是垂直分割"
ct1.Font = new System.Drawing.Font("楷体", 12)    '字体

3、需要引用的时候，直接用

msgbox(sender.name)

msgbox(sender.parent.name)