ÁöÁ¤µÈ ¸í·É¾î °³Ã¼¿¡¼ ¼öÇàµÇ¾ú´Â°¡¸¦ ³ªÅ¸³»´Â ºÎ¿ï°ªÀ» ¹ÝȯÇÑ´Ù.
¸í·É¾î°¡ ¼öÇàµÇ¾úÀº°¡¸¦ ³ªÅ¸³»´Â ºÎ¿ï°ªÀ¸·Î ¹ÝȯÇÑ´Ù.
true | ÁöÁ¤µÈ ¸í·É¾î °³Ã¼¿¡¼ ¼öÇàµÇ¾ú´Ù. |
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 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>