این طرف html
<HTML>
<HEAD>
<title></title>
<scripttype="text/javascript">
function setSelectionRange(input, selectionStart, selectionEnd) {
if (input.setSelectionRange) {
input.focus();
input.setSelectionRange(selectionStart, selectionEnd);
}
elseif (input.createTextRange) {
var range = input.createTextRange();
range.collapse(true);
range.moveEnd('character', selectionEnd);
range.moveStart('character', selectionStart);
range.select();
}
}
function setCaretToEnd (input) {
setSelectionRange(input, input.value.length, input.value.length);
}
function setCaretToBegin (input) {
setSelectionRange(input, 0, 0);
}
function setCaretToPos (input, pos) {
setSelectionRange(input, pos, pos);
}
function selectString (input, string) {
var match = new RegExp(string, "i").exec(input.value);
if (match) {
setSelectionRange (input, match.index, match.index + match[0].length);
}
}
function replaceSelection (input, replaceString) {
if (input.setSelectionRange) {
var selectionStart = input.selectionStart;
var selectionEnd = input.selectionEnd;
input.value = input.value.substring(0, selectionStart)
+ replaceString
+ input.value.substring(selectionEnd);
if (selectionStart != selectionEnd) // has there been a selection
setSelectionRange(input, selectionStart, selectionStart + replaceString.length);
else// set caret
setCaretToPos(input, selectionStart + replaceString.length);
}
elseif (document.selection) {
var range = document.selection.createRange();
if (range.parentElement() == input) {
var isCollapsed = range.text == '';
range.text = replaceString;
if (!isCollapsed) { // there has been a selection
//it appears range.select() should select the newly
//inserted text but that fails with IE
range.moveStart('character', -replaceString.length);
range.select();
}
}
}
}*/
</script>
</HEAD>
<bodyMS_POSITIONING="FlowLayout">
<formid="Form2"method="post"runat="server">
<asp:TextBoxid="Textbox1"runat="server"Width="352px"></asp:TextBox><BR>
<scriptlanguage="JavaScript"defer>
document.Form2.Textbox1.focus();
setCaretToEnd('Textbox1');
</script>
<asp:ListBoxid="Listbox1"runat="server"Width="352px"Height="144px"></asp:ListBox>
</form>
</body>
</HTML>
و این هم طرف code
PrivateSub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Textbox1.Attributes.Add("onKeyUp", "this.form.submit()")
GetResults()
EndSub
PrivateSub GetResults()
Dim strConn AsString = ConfigurationManager.ConnectionStrings("conn").ToString()
Dim strquery AsString = "SELECT ID, Name FROM tbtest WHERE name LIKE '" & Textbox1.Text & "%'"
Dim da AsNew System.Data.SqlClient.SqlDataAdapter(strquery, strConn)
Dim dt AsNew System.Data.DataTable()
da.Fill(dt)
Listbox1.DataTextField = "name"
Listbox1.DataValueField = "id"
EndSub