string(28) "Visible (Internet Explorer)" Visible (Internet Explorer) | UWSC辞典

Visible

オブジェクトが表示されているかどうかの値を設定もしくは取得します。

構文
Boolean = InternetExplorer.Visible
引数
戻り値
TRUE
オブジェクトが表示されている
FALSE
オブジェクトが表示されていない

プログラム実行例

[ファイルを開く]ウィンドウを表示

CONST OLECMDID_OPEN = 1
CONST OLECMDEXECOPT_DODEFAULT = 0

DIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.GoHome()
BusyWait(IE)

IE.ExecWB(OLECMDID_OPEN, OLECMDEXECOPT_DODEFAULT)
  1. CREATEOLEOBJ
  2. IE.Visible
  3. IE.GoHome
  4. BusyWait
  5. IE.ExecWB
結果
ファイルを開く

[Webページの保存]ウィンドウを表示

CONST OLECMDID_SAVEAS = 4
CONST OLECMDEXECOPT_DODEFAULT = 0

DIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.GoHome()
BusyWait(IE)

IE.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT)
  1. CREATEOLEOBJ
  2. IE.Visible
  3. IE.GoHome
  4. BusyWait
  5. IE.ExecWB
結果
Webページの保存

[ページ設定]ウィンドウを表示

CONST OLECMDID_PAGESETUP = 8
CONST OLECMDEXECOPT_DODEFAULT = 0

DIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.GoHome()
BusyWait(IE)

IE.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT)
  1. CREATEOLEOBJ
  2. IE.Visible
  3. IE.GoHome
  4. BusyWait
  5. IE.ExecWB
結果
ページ設定

[プロパティ]ウィンドウを表示

CONST OLECMDID_PROPERTIES = 10
CONST OLECMDEXECOPT_DODEFAULT = 0

DIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.GoHome()
BusyWait(IE)

IE.ExecWB(OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT)
  1. CREATEOLEOBJ
  2. IE.Visible
  3. IE.GoHome
  4. BusyWait
  5. IE.ExecWB
結果
プロパティ

Was this post helpful?