ÁöÁ¤µÈ ¸í·É¾î °³Ã¼¿¡¼­ ¼öÇàµÇ¾ú´Â°¡¸¦ ³ªÅ¸³»´Â ºÎ¿ï°ªÀ» ¹ÝȯÇÑ´Ù.

Àμö/ÆĶó¸ÞÅÍ
expression (Ç¥Çö½Ä : expression)
ÇʼöÀûÀÎ ¿ä¼ÒÀ̸ç, Àû¿ë ¸ñ·Ï¿¡ ÀÖ´Â Çϳª ÀÌ»ó °³Ã¼¸¦ ¹ÝȯÇϴ ǥÇö½ÄÀÌ´Ù.
sCmdID : (¸í·É¾î ÀνÄÀÚ)
ÇʼöÀûÀÎ ¿ä¼ÒÀ̸ç, command Identifiers¸¦ ÁöÁ¤ÇÏ´Â ¹®ÀÚ¿­ÀÌ»ç.
¹Ýȯ°ª

¸í·É¾î°¡ ¼öÇàµÇ¾úÀº°¡¸¦ ³ªÅ¸³»´Â ºÎ¿ï°ªÀ¸·Î ¹ÝȯÇÑ´Ù.

true ÁöÁ¤µÈ ¸í·É¾î °³Ã¼¿¡¼­ ¼öÇàµÇ¾ú´Ù.
false ÁöÁ¤µÈ ¸í·É¾î °³Ã¼¿¡¼­ ¼öÇàµÇÁö ¾Ê¾Ò´Ù.
Àû¿ë
°³Ã¼scriptIE
ÂüÁ¶
execCommand queryCommandEnabled queryCommandIndeterm queryCommandState queryCommandSupported queryCommandText queryCommandValue

ÁÖ¾îÁø ¸í·É¿¡ µû¸¥ °ü·Ã °ªÀ» µð½ºÇ÷¹ÀÌÇÑ´Ù.

<BUTTON onClick="QueryCommand()">¸í·É¿¡ µû¸¥ °ü·Ã °ª ¾ò±â</BUTTON>

<SCRIPT language=VBScript>
Sub QueryCommand()  '¸í·ÉÀÌ ¼öÇàµÇ¾ú´Â°¡¸¦ Ãâ·ÂÇÑ´Ù.
  Dim objApp As FrontPage.Application
  Dim objDoc As DispFPHTMLDocument
  Dim strUser As String
  Dim strYN

  Set objApp = FrontPage.Application
  Set objDoc = objApp.ActiveDocument
  strUser = InputBox("¼öÇàÇÒ ¸í·ÉÀ» ÀÔ·ÂÇ϶ó.")
    If objDoc.queryCommandState(cmdID:=strUser) = True Then
      strYN="µÇ¾ú´Ù."
    Else
      strYN="µÇÁö ¾Ê´Â´Ù."
    End If
    MsgBox "ÀÌ ¸í·É(" & strUser & ")ÀÌ ¼öÇà" & strYN
End Sub
</SCRIPT>