Веб-страница не адаптируется к управлению веб-браузером

[Не важно] У нас есть 2 веб-страницы, которые отображают нашу сетевую инфраструктуру на компьютере с двумя мониторами и имеют фиксированный размер 1920 x 1080. Проблема в том, что нам нужно вручную перемещать браузеры, в которых отображаются страницы, чтобы поместить их на правильный экран каждое утро после того, как наши дисплеи были выключены вечером. [/не важно]

Чтобы избежать этих хлопот, я подумал о создании приложения vb.net с двумя формами и управлением браузером на каждой из них, чтобы формы открывались на двух разных экранах при запуске программы (после перезагрузки). Это работает, однако страницы отображаются неправильно в элементе управления браузером. Как будто они увеличены, в то время как они выглядят нормально в Firefox, который был развернут (f11).

Я надеюсь, что кто-то может указать мне правильное направление, как это исправить.

Как видите, я попробовал пару вещей сам, но это все равно не сработает.

Public Class Left

Private Sub Left_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Me.Location = New Point(Screen.AllScreens(0).Bounds.X, Screen.AllScreens(0).Bounds.Y)
    Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    Me.WindowState = FormWindowState.Maximized
    Me.TopMost = True

    'WebBrowser1.Visible = True

    WebBrowser1.Navigate("http://detectmybrowser.com/") 'Just an example


    'WebBrowser1.AllowNavigation = False

    'WebBrowser1.Document.Body.Style = String.Format("zoom: {0}%", 50)
    TopRight.Show()
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
    TopRight.Show()
End Sub
End Class

Спасибо за любую помощь, которую вы, ребята, можете мне дать. :)


vb.net webbrowser-control
person user1928075    schedule 11.11.2014    source источник
comment
Я в замешательстве, в чем именно здесь проблема?   -  person zaggler    schedule 11.11.2014
comment
страницы не отображаются правильно в элементе управления браузером.   -  person user1928075    schedule 11.11.2014

Ответы (1)


arrow_upward
0
arrow_downward

Это решено. Я использовал другой браузерный элемент управления, awesomium, который поддерживал параметр масштабирования. Затем я добавил новый элемент управления в форму и вставил это:

Public Class Left

Private Sub Left_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Me.Location = New Point(Screen.AllScreens(0).Bounds.X, Screen.AllScreens(0).Bounds.Y)
    Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    Me.WindowState = FormWindowState.Maximized
    Me.TopMost = True

End Sub

Private Sub Awesomium_Windows_Forms_WebControl_LoadingFrameComplete(ByVal sender As System.Object, ByVal e As Awesomium.Core.FrameEventArgs) Handles WebControl2.LoadingFrameComplete
    WebControl2.Zoom = "80"
    TopRight.Show()
End Sub
End Class
person user1928075    schedule 12.11.2014