在 WebBrowser 中拖动 Div 而不是水平滚动
在使用 IE11 的 WinForm 应用程序(Framework 3.5)中,一个简单的 HTML 页面具有可水平滚动的内容,而不是滚动拖动页面:
如果我独立打开 IE11必须滚动。
WebBrowser 创建如下:
Private Sub VediTagli()
Dim webNEWTES As New WebBrowser
webNEWTES.Name = "webNEWTES"
webNEWTES.ScriptErrorsSuppressed = True
'webNEWTES.WebBrowserShortcutsEnabled = False
webNEWTES.IsWebBrowserContextMenuEnabled = False
'AddHandler webNEWTES.DocumentCompleted, AddressOf webNEWCLI_DocumentCompleted
AddHandler webNEWTES.Navigating, AddressOf webNEWTES_Navigating
AddHandler webNEWTES.DocumentCompleted, AddressOf webNEWTES_DocumentCompleted
webNEWTES.Top = lstDETT.Top
webNEWTES.Left = lstDETT.Left
webNEWTES.Height = lstDETT.Height
webNEWTES.Width = lstDETT.Width
webNEWTES.Visible = True
If SONO_IN_MODIFICA_BP = True Then
webNEWTES.Navigate("http://127.0.0.1/webquery/VisualTicket.aspx?ORARIO=" & Format(DateTime.Now, "HH.mm.ss"))
Else
webNEWTES.Navigate("http://127.0.0.1/webquery/VisualTicket.aspx?client=true" & "&ORARIO=" & Format(DateTime.Now, "HH.mm.ss"))
End If
'webNEWTES.Url = New Uri("http://127.0.0.1/webquery/VisualTicket.aspx?client=true")
'webNEWTES.Navigate(IP_CREACLI & "&ORARIO=" & Format(DateTime.Now, "HH.mm.ss"), Nothing, Nothing, "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET4.0C; .NET4.0E)")
'webNEWTES.DocumentText = ""
'webNEWTES.Navigate("about:blank")
webNEWTES.BringToFront()
Panel2.Controls.Add(webNEWTES)
End Sub
In a WinForm application (Framework 3.5) with IE11 a simple HTML page with a horizontally scrollable content instead of scrolling drags the page:
While if i open IE11 standalone it scrolls as have to.
The WebBrowser is created as the following:
Private Sub VediTagli()
Dim webNEWTES As New WebBrowser
webNEWTES.Name = "webNEWTES"
webNEWTES.ScriptErrorsSuppressed = True
'webNEWTES.WebBrowserShortcutsEnabled = False
webNEWTES.IsWebBrowserContextMenuEnabled = False
'AddHandler webNEWTES.DocumentCompleted, AddressOf webNEWCLI_DocumentCompleted
AddHandler webNEWTES.Navigating, AddressOf webNEWTES_Navigating
AddHandler webNEWTES.DocumentCompleted, AddressOf webNEWTES_DocumentCompleted
webNEWTES.Top = lstDETT.Top
webNEWTES.Left = lstDETT.Left
webNEWTES.Height = lstDETT.Height
webNEWTES.Width = lstDETT.Width
webNEWTES.Visible = True
If SONO_IN_MODIFICA_BP = True Then
webNEWTES.Navigate("http://127.0.0.1/webquery/VisualTicket.aspx?ORARIO=" & Format(DateTime.Now, "HH.mm.ss"))
Else
webNEWTES.Navigate("http://127.0.0.1/webquery/VisualTicket.aspx?client=true" & "&ORARIO=" & Format(DateTime.Now, "HH.mm.ss"))
End If
'webNEWTES.Url = New Uri("http://127.0.0.1/webquery/VisualTicket.aspx?client=true")
'webNEWTES.Navigate(IP_CREACLI & "&ORARIO=" & Format(DateTime.Now, "HH.mm.ss"), Nothing, Nothing, "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET4.0C; .NET4.0E)")
'webNEWTES.DocumentText = ""
'webNEWTES.Navigate("about:blank")
webNEWTES.BringToFront()
Panel2.Controls.Add(webNEWTES)
End Sub
如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱,如果其他用户或者作者回复了您的评论,将不能在第一时间通知您!
发布评论
评论(1)
通过在系统寄存器中禁用旧版输入模型解决了该问题。
根据 docs 需要禁用
FEATURE_NINPUT_LEGACYMODE
如下:The issue was solved by disabling Legacy Input Model in sys register.
As per docs it was needed to disable
FEATURE_NINPUT_LEGACYMODE
as following: