文本框在HTA文本提交後，從文本框

刪除文本

不知道這已被要求在任何地方，（我不能找到它）...文本框在HTA文本提交後，從文本框

我做了一點簡單的谷歌搜索HTA文件...

它工作得很好沒有問題，但我希望文本消失後按下輸入？

我試圖BasicTextBox.Value =「」搜索後......但是這一切都需要反正除了最後一個字母..

我希望即時決策意義上，有人可以幫我嗎？

<html> 
<head> 
<title>Search Google</title> 

<HTA:APPLICATION 
ID="objHTAHelpomatic" 
border="thin" 
borderStyle="normal" 
caption="yes" 
maximizeButton="no" 
minimizeButton="no" 
showInTaskbar="yes" 
windowState="normal" 
innerBorder="no" 
navigable="no" 
scroll="no" 
scrollFlat="no" 
sysMenu="yes" 
icon="htaicon.ico" 
> 
</head> 

<SCRIPT Language="VBScript"> 

Sub Window_OnLoad 
window.resizeTo 100, 100 
    End Sub 


sub checkEnter 
With document.parentWindow.event 
if .keycode = 13 then 
Const NORMAL_WINDOW = 1 
Set objShell = CreateObject("Shell.Application") 
objShell.ShellExecute "https://www.google.com.au/search?q=" & BasicTextBox.Value 
Else 
.cancelbubble = false 
.returnvalue = true 
End if 
End With 

    call removetext 

End sub 

sub removetext 
    BasicTextBox.Value = "" 
end sub 

</SCRIPT> 
<body bgColor="gray" STYLE="font:8pt arial; color:white"> 

Search Google 
<input type="text" onKeydown=checkEnter name="BasicTextBox" size="10"> 

</body> 
</html>

來源

2012-11-07 Pavle Stojanovic

你'checkEnter（）'是永遠不會被調用。在線分配應該是：'onkeydown =「checkEnter（）;」'，現在屬性包含一個字符串（「'checkEnter'」）。我認爲DOM屬性在VBScript中也是區分大小寫的，應該有'.cancelBubble'和'.returnValue'。 – Teemu

@Teemu VBScript中的DOM屬性不區分大小寫，但我同意這是一種很好的做法，就好像它們一樣。 – AutomatedChaos

只需撥打removetext在checkEnter：

sub checkEnter 
    Const NORMAL_WINDOW = 1 
    With document.parentWindow.event 
     if .keycode = 13 then 
      Set objShell = CreateObject("Shell.Application") 
      objShell.ShellExecute "https://www.google.com.au/search?q=" & BasicTextBox.Value 
      call removetext 
     End if 
End With

來源

2012-11-07 10:29:07

文本框在HTA文本提交後，從文本框

回答

相關問題