ÁöÁ¤ÇÑ ¸í·É¿¡¼ ¹®¼, ¹üÀ§³ª ¼±ÅÃÀÇ ÇöÀç °ªÀ» ¹ÝȯÇÑ´Ù.
¹Ýȯ°ª vValÀº Áö¿øµÇ¸é ¹®¼, ¹üÀ§ ȤÀº ÇöÀç ¼±ÅÃÀ¸¸® ¸í·ÉÀÇ °ªÀ» ¹ÝȯÇÑ´Ù.
°¡´ÉÇÑ °ªµéÀº command Identifiers ÁßÀÇ ÇϳªÀÌ´Ù.
ÁöÁ¤µÈ ¸í·ÉÀÌ Áö¿øµÇÁö ¾ÊÀ¸¸é ÀÌ ¸Þ¼µå´Â ºÎ¿ï°ª false¸¦ ¹ÝȯÇÑ´Ù.
| °³Ã¼ | script | IE |
|---|
ÁÖ¾îÁø ¸í·É¿¡ µû¸¥ °ü·Ã °ªÀ» µð½ºÇ÷¹ÀÌÇÑ´Ù.
<BUTTON onClick="QueryCommand()">¸í·É¿¡ µû¸¥ °ü·Ã °ª ¾ò±â</BUTTON>
<SCRIPT language=VBScript>
Sub QueryCommand() 'ƯÁ¤ ¸í·ÉÀÇ °ªÀ» Ãâ·ÂÇÑ´Ù.
Dim objApp As FrontPage.Application
Dim objDoc As DispFPHTMLDocument
Dim strUser As String
Dim strValue As String
Set objApp = FrontPage.Application
Set objDoc = objApp.ActiveDocument
strUser = InputBox("¼öÇàÇÒ ¸í·ÉÀ» ÀÔ·ÂÇ϶ó.")
strValue = objDoc.queryCommandValue(strUser)
MsgBox "ÁöÁ¤ÇÑ ¸í·ÉÀÇ °á°ú°ªÀº " & strValue
End Sub
</SCRIPT>