[求助]在窗口中打开包含richtextbox控件的窗口时鼠标右键菜单偏离
此主题相关图片如下:截屏图片.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