-1

これを自分の Windows フォームに埋め込みたいと思います。

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

しかし、このコードには何も表示されません。助けてください。ありがとうございました。

4

1 に答える 1