동적으로 HTA 구성 요소 추가 및 제거

HTA에서 동적으로 텍스트 상자를 제거하는 방법을 아무도 알려 줄 수 있습니까? 나는 이것이 당신이 찾고있는 것과 유사하다 생각동적으로 HTA 구성 요소 추가 및 제거

Sub AddTextBox 
    strHTML = DataArea.InnerHTML strHTML=strHTML&"<tr><td>Source Path</td><td><input type="&Chr(34)& _ "text"&Chr(34)&">"&"</td><td><button type="&Chr(34)&"button"&Chr(34)& _ "onclick="&Chr(34)&"RemoveTextBox"&Chr(34)&">"&"x"&"</button></td></tr>" 
    DataArea.InnerHTML = strHTML 
    tabHTML = tabHTML & strHTML 
End Sub

출처

2013-03-24 Tjs

전체'tr' 또는'input' 만 제거 하시겠습니까? – Teemu

이 적어도 당신에게 당신이에서 만들 수있는 작업 예제를 제공합니다 :

이 코드 동적으로 텍스트 상자를 추가합니다. Window_OnLoad 서브 루틴은 초기 내용을로드 한 다음 새로 생성 된 내용에 클릭하면 텍스트 상자/단추가 제거되고 Add Again? 레이블이 붙은 새 단추가 추가됩니다. 이 새로운 버튼은 Window_OnLoad 서브 루틴을 다시 호출하고 원본 콘텐츠를 다시로드 할 수 있습니다.

<html> 
<head> 
<title>Dynamically Add Controls</title> 
<HTA:APPLICATION 
    APPLICATIONNAME="Dynamically Add Controls" 
    ID="Dynamically_Add_Controls" 
    VERSION="1.0"/> 
</head> 

<script language="VBScript"> 

Sub Window_OnLoad 
    strHTML = "<tr><td>Source Path</td><td><input type="& Chr(34)& "text"&Chr(34)&">"&"</td><td><button type="&Chr(34)&"button"&Chr(34)& "onclick="&Chr(34)&"RemoveTextBox"&Chr(34)&">"&"Remove All?"&"</button></td></tr>" 
    DataArea.InnerHTML = strHTML 
End Sub 

Sub RemoveTextBox() 
    strHTML = "<td><button type="&Chr(34)&"button"&Chr(34)& "onclick="&Chr(34)&"Window_OnLoad"&Chr(34)&">"&"Add Again?"&"</button></td></tr>" 
    DataArea.InnerHTML = strHTML 
End Sub 

</script> 

<body bgcolor="white"> 
    <table border="0" cellspacing="0" cellpadding="0"> 
     <tr> 
      <td valign="top"><Div id="DataArea"></Div></td> 
     </tr> 
    </table> 
</body> 
</html>

출처

2013-05-31 22:44:03

동적으로 HTA 구성 요소 추가 및 제거

답변

관련 문제