Hey, Scripting Guy!: Flowers Blooming. Dialogs Popping. Spring Is Here.

[アーティクル]
08/25/2016

Hey, Scripting Guy!花が咲き、ダイアログが開き、春が来た

Microsoft Scripting Guys

春が来ました。かつてないほどの喜びです。記録的な雨量、アイスストーム、雪嵐、暴風雨に見舞われた冬を経て、ついに春がやってきました (ある嵐では、大木が Scripting Guys の 1 人の裏庭に倒れ込みました。ぎりぎりのところで家屋に被害はありませんでしたが、Scripting Dog はソファーの後ろに逃げ込みました)。今は、ひんやりとした雨を楽しんでいます。これが過ぎると、夏の太平洋岸北西地区の温かい雨に変わります。

外の小雨を眺めているとき、スクリプトでちょっとした冒険をして、HTML アプリケーション (HTA) を見てみるいい機会だと思いました。冒険というからには、そのとおり本気で冒険します。ここでは初歩的な説明はしません。読者が HTA とは何かや、HTA の作成方法を既に理解していることを前提にします。このような知識をお持ちでなければ、スクリプトセンターの HTA Developers Center を参照してください。特に、「初心者向け HTA」の 2 つの記事を一読することをお勧めします。それさえ済めば、必要な知識が揃い、この記事をお読みいただけます。

今回のコラムでは、ダイアログボックスの作成方法を説明します。さらに、メインの HTA とダイアログボックス間で情報をやりとりする方法についても説明します。本当に春のすがすがしい空気の中で、野心的になっていますね。今のうちに楽しんでおきましょう。

ご存じかもしれませんが、ダイアログボックスには 2 種類あります。モーダルとモードレスです。違いは、モーダルダイアログボックスを開くと、そのダイアログボックスを閉じるまで、ダイアログボックスを開いたメインウィンドウに戻ることができません。モードレスダイアログボックスを開いた場合は、ウィンドウ間を移動できます。ただし、メインウィンドウを閉じると、モードレスダイアログボックスも閉じられます。

モーダルダイアログボックスとモードレスダイアログボックスの作成方法はまったく同じです。唯一の違いは、モーダルダイアログボックスを作成する場合は ShowModalDialog 関数を呼び出し、モードレスダイアログボックスを作成する場合は ShowModelessDialog 関数を呼び出すことだけです。どちらの関数も、同じパラメータを受け取ります。まず、モーダルダイアログボックスを開く簡単な HTA を見てみましょう (図 1 参照)。

Figure 1 出発点となる簡単なダイアログ

<html> 
<head> 
<title>Modal Example</title>
<HTA:APPLICATION 
  APPLICATIONNAME=”MainModal”>
</head>

<script language=”VBScript”> 
Sub ShowDialog 
 intReturn = _
    ShowModalDialog(“modaldialog.hta”) 
 textbox.Value = intReturn
End Sub
</script> 

<body> 
<button onclick=”ShowDialog”>
 Show Dialog Box</button> <p>
<input type=”text” name=”textbox”>
</body> 
</html>

ここでは、"Modal Example" という名前の HTA を作成しました。HTA の <body> 領域には、2 つの要素を追加しています。"Show Dialog Box" というラベルのボタンと、textbox という名前のテキストボックスです。これらについては、図 2 を参照してください。ボタンをクリックすると、ShowDialog サブルーチンが実行されます。

図 2 実際の HTA モーダルダイアログ

図 2** 実際の HTA モーダルダイアログ **

ShowDialog サブルーチンは、実に単純です。ShowModalDialog 関数を呼び出し、モーダルダイアログボックスとして表示する HTA ファイル名 (ここでは modaldialog.hta) をパラメータとして渡しています (modaldialog.hta は、この HTA と同じフォルダにあると仮定しています。違う場合は、ここに完全なファイルパスを含める必要があります)。

また、ShowModalDialog からの戻り値 (intReturn) をキャプチャしています。この値をテキストボックスに表示します。この戻り値を取得する方法については、この後すぐに説明します。重要な点は、モーダルダイアログボックスが閉じられるまで、ShowModalDialog への呼び出しから戻らないことです。つまり、ダイアログボックスが閉じられないと、戻り値がテキストボックスに割り当てられません。

では、modaldialog.hta を見てみましょう。これは、呼び出し元の HTA によって開かれるダイアログボックスです (図 3 参照)。この HTA では、2 つの要素を作成しました。listbox という名前のリストボックスと、"OK" というラベルのボタンです (図 4 参照)。リストボックスには、"Option 1"、"Option 2" のようにラベルを付けた項目を 4 項目追加し、項目ごとに対応する値 (1 ～ 4) を関連付けました。[OK] ボタンをクリックすると、CloseWindow サブルーチンが実行されます。

Figure 3 modaldialog.hta

<html> 
<head> 
<title>Modal Dialog Box</title>
<HTA:APPLICATION 
  APPLICATIONNAME=”ModalDialog”>
</head>

<script language=”VBScript”> 
Sub CloseWindow
  window.returnValue = listbox.Value
  window.Close 
End Sub
</script> 

<body> 
<select size=”3” name=”listbox”>
 <option value=”1”>Option 1</option>
 <option value=”2”>Option 2</option>
 <option value=”3”>Option 3</option>
 <option value=”4”>Option 4</option>
</select>
<p>
<input type=”button” id=”idBtn” value=”OK” onclick=”CloseWindow”> 
</body> 
</html>

図 4 モーダルダイアログボックスを表す HTA

図 4** モーダルダイアログボックスを表す HTA **

CloseWindow サブルーチンも、実に単純です。まず、選択されたリストボックス内の項目の値を読み取り、この値を window.returnValue プロパティに割り当てています。たとえば、ユーザーが [Option 2] を選択すると、値 2 が window.returnValue に割り当てられます。その後、window.Close メソッドを呼び出して、ダイアログボックスを閉じます。

この時点で、制御がメインの HTA に戻ります。ShowModalDialog への呼び出しを再度見てみましょう。

intReturn = _
  ShowModalDialog(“modaldialog.hta”)

intReturn に割り当てられる戻り値は、ダイアログボックス HTA で window.returnValue に割り当てた値です。したがって、ダイアログボックスで [Option 2] を選択すると、値 2 が window.returnValue に割り当てられるため、intReturn は 2 になり、その後のコードによってこの値がテキストボックスに表示されます。

textbox.Value = intReturn

ダイアログボックスから値を取得する方法を説明したので、次はダイアログボックスに値を渡す方法について説明します。今度は、モードレスダイアログボックス (図 5 参照) を使用しますが、モーダルでもモードレスでも機能は同じなので、モーダルダイアログボックスでも同じプロセスを使用します。

Figure 5 モードレスに挑戦

<html>
<head>
<title>Modeless Example</title>
<HTA:APPLICATION 
  APPLICATIONNAME=”ModelessMain”>
</head>

<script language=”VBScript”>
Sub ShowDialog
  intReturn = _
    window.ShowModelessDialog _
    (“modelessdialog.hta”, _
    lstServers.Value, _
    “dialogHeight:400px;dialogWidth:300px”)
End Sub
</script>

<body>
<select size=”1” name=”lstServers”>
 <option value=”server1”>Server1</option>
 <option value=”server2”>Server2</option>
 <option value=”server3”>Server3</option>
 <option value=”server4”>Server4</option>
</select>
<p>
<input type=”button” value=”Retrieve Processes” onclick=”ShowDialog”>
</body>
</html>

図 7 モードレスダイアログに渡されるデータ

図 7** モードレスダイアログに渡されるデータ **

ここでは、lstServers という名前のドロップダウンリストボックスを作成しています (サイズが 1 なのでドロップダウンであることがわかります)。また、"Retrieve Processe" というラベルのボタンもあります。このボタンをクリックすると、ShowDialog サブルーチンが実行されます。ShowDialog サブルーチンは、以下に示すように、window.ShowModelessDialog 関数への呼び出しの 1 行のみです。

intReturn = _
  window.ShowModelessDialog _
  (“modelessdialog.hta”, _
  lstServers.Value, _
  “dialogHeight:400px;dialogWidth:300px”)

この関数に渡す最初のパラメータは、ダイアログボックスで実行する HTA の名前であり、ここでは modelessdialog.hta です。2 番目のパラメータは、リストボックスの Value プロパティです。もうおわかりのように、Value プロパティには、リストボックス内で選択した値が保持されます。したがって、ユーザーがリストボックスから [Server2] を選択すると、Value は "server2" になります。このパラメータは、ダイアログボックスにどのように情報を渡すかを示しています (複数の値を渡す場合は、配列またはコレクションとしてこのパラメータに渡すことができます)。

ダイアログボックスがこのパラメータ値をどのように受け取るかについては、すぐに説明します。しかし、まず、3 番目のパラメータを用意していることに注目してください。

“dialogHeight:400px;dialogWidth:300px”

このパラメータは、ダイアログボックスの高さと幅を指定する文字列を保持します。この場合は、高さを 400 ピクセル (400px)、幅を 300 ピクセルに指定しています。モーダルの例で説明したように、このパラメータは空のままにすることもでき、その場合はコンピュータの既定のサイズでダイアログボックスが表示されます。

では、modelessdialog.hta (図 6) に移り、このダイアログボックスが、渡された値をどのように読み取るかを見てみましょう。

Figure 6 modelessdialog.hta

<html>
<head>
<title>Modeless Dialog</title>
<HTA:APPLICATION 
  APPLICATIONNAME=”Processes”>
</head>

<script language=”VBScript”>
Sub window_onLoad
  strComputer = window.dialogArguments
  Set objWMIService = GetObject(“winmgmts:” _
    & “{impersonationLevel=impersonate}!\\” _
    & strComputer & “\root\cimv2”)
  Set colProcesses = objWMIService.ExecQuery   _
    (“Select * from Win32_Process”)

  strHTML = “<h1>” & strComputer & “</h1><p>”
  For Each objProcess in colProcesses
    strHTML = strHTML & objProcess.Name & _
       “<br>”
  Next

  DataArea.InnerHTML = strHTML
End Sub
</script>

<body>
<span id=”DataArea”></span>
</body>
</html>

この HTA で指定している唯一の要素はスパンであり、これはダイアログボックスの全領域を保持します。ここでのスクリプトセクションでは、window_onLoad サブルーチンを定義しています。このサブルーチンは、(ここでは ShowModelessDialog への呼び出しにより) HTA が開かれるとすぐに実行されます。このサブルーチンの 1 行目を見てください。

strComputer = window.dialogArguments

変数 strComputer にプロパティ window.dialogArguments の内容を代入しています。さて、このプロパティは何だと思いますか。ほら、読者の皆さんも春と共にお目覚めのようですね。そうです、これは ShowModelessDialog への呼び出しの 2 番目のパラメータに渡された値です。メインウィンドウで [Server2] が選択されると、値 "server2" が strComputer に保持されます。

このサブルーチンの残りの部分では、単に strComputer からすべてのプロセスを取得し、これらをスパン領域に表示しています。この操作の結果は図 7 のようになります。

これでめでたく、この夏は HTA ダイアログボックスで遊べるようになりました。といっても、もちろん、南半球にお住まいでなければの話ですが。南半球では冬が近づいていますね。こちらでこの冬経験したように、停電が多発するようなことになれば、冬場は大変な思いをされるかもしれません。

Microsoft Scripting Guysマイクロソフトの仕事をしています、というよりもマイクロソフトにより雇われています。野球をプレイしたり監督したり観戦したり (または他のさまざまな活動を) しているのでない限り、彼らは TechNet スクリプトセンターを運営しています。詳細については、https://www.microsoft.com/japan/technet/scriptcenter/default.mspx を参照してください。

Figure 1 出発点となる簡単なダイアログ

Figure 3 modaldialog.hta

Figure 5 モードレスに挑戦

Figure 6 modelessdialog.hta

その他のリソース