vbsの作法 その95

概要

vbsの作法、調べてみた。
ヤフオクで、もうIE11は、使えないらしい。
対応する。

今までのコード

Private Sub CommandButton27_Click()
    Dim objIE
    Dim strBody
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Width = 1000
    objIE.Height = 800
    objIE.Left = 0
    objIE.Top = 0
    objIE.Visible = True
    objIE.Navigate TextBox9.Text
    Set objIE = Nothing
End Sub

写真

対応したコード

Private Sub CommandButton27_Click()
    With CreateObject("Shell.Application")
        .ShellExecute "microsoft-edge:" + TextBox9.Text
    End With
End Sub

以上。