嵌入Google商家视图虚拟导览

时间:2016-12-09 03:30:36

标签: vb.net winforms virtual-tour

我想将其嵌入到我的窗体中。

Private Sub InitializeComponent()
    Try
        Me.VirtualView = New WebBrowser
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(347, 261)
        Me.Name = "frmVirtual"
        Me.Text = "frmVirtual"
        Me.VirtualView.ScriptErrorsSuppressed = True
        Me.VirtualView.Name = "frmVirtual"
        Me.VirtualView.DocumentText = "<html><body><iframe width='600' height='450' style='border: 0' src='https://www.google.com/maps/embed?pb=!1m0!3m2!1sen!2sau!4v1481252003737!6m8!1m7!1sF%3A-pwYGx-oWTIk%2FWC6LeJuIxdI%2FAAAAAAAABIg%2FphppDvMZr54JiWnLbsbUgDcTGUfGXLMRACLIB!2m2!1d-33.76525136331761!2d150.9088391438127!3f310!4f0!5f0.7820865974627469' frameborder='0' allowfullscreen></iframe></body></html>"

    Catch ex As Exception

        MessageBox.Show(ex.Message.ToString(), "Unable to Retrieve")

    End Try

End Sub

但此代码上没有显示任何内容。请帮忙。谢谢。

1 个答案:

答案 0 :(得分:0)

您不应该使用InitializeComponent方法导航地址,使用该类的Load()方法进行导航。对于此特定问题,您需要设置DocumentText控件的WebBrowser属性。

另一方面,您正在创建WebBrowser控件的新实例,但不会将其添加到我能看到的任何位置。如果你不添加它,你将永远不会看到这种控制。 IMO只需在您需要的地方拖放一个新的。

Me.VirtualView.ScriptErrorsSuppressed = True
Me.VirtualView.DocumentText = "<html><body><iframe width='600' height='450' style='border: 0' src='https://www.google.com/maps/embed?pb=!1m0!3m2!1sen!2sau!4v1481252003737!6m8!1m7!1sF%3A-pwYGx-oWTIk%2FWC6LeJuIxdI%2FAAAAAAAABIg%2FphppDvMZr54JiWnLbsbUgDcTGUfGXLMRACLIB!2m2!1d-33.76525136331761!2d150.9088391438127!3f310!4f0!5f0.7820865974627469' frameborder='0' allowfullscreen></iframe></body></html>"

我在这里做的是你需要将iframe包裹在htmlbody标签内。

注意 :我将ScriptErrorsSuppressed添加为true,因为加载时会出现脚本错误。另外,请查看嵌入这些地图的新方法,它们需要在您的通话中使用API​​密钥here