VB.NET中TextBox的智能感知应用实例

本文实例形式介绍了VB.NET中TextBox的智能感知实现方法，功能非常实用，具体如下：

该实例主要实现：在TextBox中键入字符，可以智能感知出列表，同时对不存在的单词（没有出现智能感知的）自动显示“Not Found”。

对此功能首先想到的是利用TextBox的AutoComplete功能。该功能允许你设置不同形式的AutoComplete智能感知，譬如：

1）AutoCompleteSource：设置感知源头类型（这里是CustomSource）。

2）AutoCompleteMode：设置感知的模式（输入不存在的字符追加，不追加还是同时存在，这里显然不追加）。

3）AutoCompleteCustomSource：设置源头数据（AutoCompleteSource必须是CustomSource）。

接下来思考如何在输入第一个字符的时候判断是否被感知到，如果没有则显示文本。

拖拽一个Label到窗体上，然后在TextBox的KeyUp事件中对数据源进行判断（为了方便，直接先把数据源数据转化成Array的形式然后使用扩展方法Any进行判断），同时为了防止界面卡死，使用异步。

具体实现代码如下：

Public Class Form1
  Dim collection As New AutoCompleteStringCollection
  Private ReadOnly arrayCollection() As String = {"a"}

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  End Sub

  Public Sub New()

    InitializeComponent()
    collection.AddRange(New String() {"apple", "aero", "banana"})
    TextBox1.AutoCompleteCustomSource = collection
    ReDim arrayCollection(collection.Count - 1)
    collection.CopyTo(arrayCollection, 0)
  End Sub
  ''' <summary>
  ''' When release the keys, plz start a background thread to handle the problem
  ''' </summary>
  Private Sub TextBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyUp
    Dim act As New Action(Sub()
                 'Check whether there are any values inside the collection or not
                 If (TextBox1.Text = "") OrElse (arrayCollection.Any(Function(s)
                                             Return s.StartsWith(TextBox1.Text)
                                           End Function)) Then

                   Label1.BeginInvoke(New MethodInvoker(Sub()
                                        Label1.Text = String.Empty
                                      End Sub))
                 Else
                   Label1.BeginInvoke(New MethodInvoker(Sub()
                                        Label1.Text = "Not found"
                                      End Sub))
                 End If

               End Sub)
    act.BeginInvoke(Nothing, Nothing)
  End Sub
End Class

这里有一些注意点：

1）异步的异常不会抛出（因为异步的本质是CLR内部的线程），只能调试时候看到。因此编写异步程序必须万分小心。

2）VB.NET定义数组（譬如定义String(5)的数组，其实长度是6（从0~5）包含“5”自身，因此数组复制（Redim重定义大小）的时候必须Count-1，否则重新定义的数组会多出一个来，默认是Nothing，这会导致异步线程出现异常）。

赞 (0)

相关推荐

  • VB.NET 中删除DataGridView中所选行的小例子

    复制代码 代码如下: For Each r As DataGridViewRow In DataGridView1.SelectedRows    If Not r.IsNewRow Then        DataGridView1.Rows.Remove(r)    End IfNext 其实就是一个IsNewRow属性,判断是不是为新选中的行,如果不是,remove!

  • VB.NET进度条的方法代码

    1.创建进度条: 复制代码 代码如下: <DIV id="Lay1" style="Z-INDEX: 1; LEFT: 1%; VISIBILITY: hidden; WIDTH: 99%; CURSOR: crosshair; POSITION: absolute; TOP: 32px; HEIGHT: 95%; BACKGROUND-COLOR: #ffffff"><FONT face="宋体"></FONT&g

  • asp.net 验证码的简单制作(vb.net+C#)

    asp.net 验证码的简单制作(vb.net+C#)

    网站上验证码效果一般制作方法是: 1)使用HttpHandler(一般处理程序)绘制随机验证码的图,以及产生随机码,并输出到页面的OutputStream中. 2)页面中使用异步方式(js等)进行刷新当前页面的验证码. [示例] 1)创建一个"一般应用处理程序ashx",代码如下: [C#] 复制代码 代码如下: public class ValidationCode : IHttpHandler { //随机发生器 static Random r = new Random(Guid.

  • VB.net读取Word文档属性的方法

    复制代码 代码如下: '对自定义属性进行读取         Dim Properties = SourceDoc.CustomDocumentProperties            Dim PropertyType As Type = Properties.GetType Try            Dim Authorprop = PropertyType.InvokeMember("Item", Reflection.BindingFlags.Default Or Refl

  • VB.NET验证邮件地址的合法性实现代码

    VB.NET验证邮件地址的合法性实现代码

    一.提出问题 现在,对于用户在Web页面上或电话中给出的Email地址,我们越来越不敢肯定它是否真的有效.在今天这个垃圾邮件泛滥成灾的年代,人们完全有理由舍不得轻易透露Email地址. 另一方面,对于通过正规途径得到的邮件地址,当我们将它用于合法的目的时,也常常要为邮件地址是否有效而烦恼,用户可能有意或无意地写错地址,也可能由于长时间不访问而导致邮箱失效.对于少量的邮件地址,也许可以手工验证其合法性,例如发送测试email:但是,当邮件地址的数量达到数万甚至更多时,手工验证就不可能了,必须用专门

  • VB.NET中Caching的使用方法

    ASP.NET通过两种方式支持缓存:通过Cache API存储任意数据,通过页面输出缓存经常被访问的页面.让我们来看一个例子. 一个电子商务的站点, 它的目录一般一周更新一次.站点提供了一套用户界面让客户订购产品.当一个客户浏览目录时,系统将通过网络去查询数据库,进行各种计算,最后返回结果. 从服务器查询这些目录数据的操作是很频繁的.我们知道,这些数据一周才变化一次.所以以下的几种操作将带来性能上的损失. 1. 执行ASP.NET的程序生成对数据库的查询语句.2. 通过网络,和数据库服务器进行通

  • VB.net 查询获取数据库数据信息

    复制代码 代码如下: '数据操作执行 Public Sub getConn(ByVal SqlStr As String, ByVal TableName As String) Try objCommand.CommandText = SqlStr objDataSet.Clear() objDataAdapter.SelectCommand = objCommand objDataAdapter.Fill(objDataSet, TableName) Catch ex As Exception

  • asp.net(vb.net)获取真实IP的函数

    aspx vb.net获取真实IP的函数如下: 复制代码 代码如下: <script runat="server"> Public Function CheckIp(ByVal ip As String) As Boolean Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" Dim reg As Regex = New Regex(pat) if ip = "

  • vb.net 数组参与SQL语句的查询范例

    首先定义数组,我是同事session传值的 复制代码 代码如下: Dim struser As New List(Of String)struser = Session("chooseuser")strruser = "" For a = 0 To struser.Count - 1If a = 0 Thenstrruser = "'" & struser.Item(a).ToString.Trim & "'"

  • VB.NET中TextBox的智能感知应用实例

    本文实例形式介绍了VB.NET中TextBox的智能感知实现方法,功能非常实用,具体如下: 该实例主要实现:在TextBox中键入字符,可以智能感知出列表,同时对不存在的单词(没有出现智能感知的)自动显示"Not Found". 对此功能首先想到的是利用TextBox的AutoComplete功能.该功能允许你设置不同形式的AutoComplete智能感知,譬如: 1)AutoCompleteSource:设置感知源头类型(这里是CustomSource). 2)AutoComplet

  • 让VS2008对JQuery语法的智能感知更完美一点

    让VS2008对JQuery语法的智能感知更完美一点

    一.刚才看到已经有快手的牛人做完了这项工作,现在可以直接下载(http://data.lancefisher.net/jquery-1.2.3-intellisense.js)回来用了. 这样引用就行了 <script src="jquery-1.2.3-intellisense.js" type="text/javascript"></script> 如果是在独立的.js文件中需要JQuery智能提示,那么在文件开始加上这行 /// <

  • vscode如何安装汉化和Python智能感知

    Visual Studio Code是一款免费开源的现代化轻量级代码编辑器,支持几乎所有主流的开发语言的语法高亮.智能代码补全.自定义热键.括号匹配.代码片段.代码对比 Diff.GIT 等特性,支持插件扩展,并针对网页开发和云端应用开发做了优化.软件跨平台支持 Win.Mac 以及 Linux. 本文将介绍如何安装汉化和Python智能感知. 下载&安装 VSCode是免费的,因此我们不必像Pycharm一样想办法寻找绿化方法 直接官网下载安装包 https://code.visualstud

  • vs2017智能感知错误解决代码标红但编译通过问题

    当Visual Studio运行编译器可以通过,但在错误窗口和编辑窗口代码下划波浪线,代码智能感知显示错误: 代码实际生成成功,但 Intellisense 将多个类标记为缺失,即使它们显然存在并清楚地正确编译.产生原因: 1.智能感知错误 在错误列表中的下拉列表,它允许您看到生成 + Intellisense,在上面的情况下,它产生 3 个错误,但如果我只是显示生成, 则没有错误.说明:IntelliSense感知出现异常. 解决方案: ----关闭工程: ----删除解决方案下的.vs文件夹

  • Python 代码智能感知类型标注与特殊注释详解

    Python 代码智能感知类型标注与特殊注释详解

    目录 一.代码智能感知 二.类型标注 函数返回值的类型标注 变量的类型标注 三.特殊的注释 四.特殊的类型 一个不会写好的类型标注和注释的Python程序员,是让使用TA的代码的人都痛苦无比的事情…… —— 某某大佬 一.代码智能感知 想必大部分现代的集成开发环境(IDE)都有代码智能感知功能吧! 智能感知(IntelliSense),就是在我们写代码的时候,代码编辑器自动弹出我们代码中需要补全的部分,而这些补全的部分就是代码编辑器通过智能感知得到的,最重要的是,代码编辑器智能地感知补全的部分是

  • C++ 中boost::share_ptr智能指针的使用方法

    C++ 中boost::share_ptr智能指针的使用方法 最近项目中使用boost库的智能指针,感觉智能指针还是蛮强大的,在此贴出自己学习过程中编写的测试代码,以供其他想了解boost智能指针的朋友参考,有讲得不正确之处欢迎指出讨论.当然,使用boost智能指针首先要编译boost库,具体方法可以网上查询,在此不再赘述. 智能指针能够使C++的开发简单化,主要是它能够自动管理内存的释放,而且能够做更多的事情,即使用智能指针,则可以再代码中new了之后不用delete,智能指针自己会帮助你管理

  • C#中的除法运算符与VB.NET中的除法运算符

    VB.NET中的除法运算符有两个:/(浮点除法).\(整数除法) C#中的除法运算符只有一个:/(除法) VB.NET中的除法运算符与C#中的除法运算符存在很大的差异,使用时注意区分. 关于VB.NET中的除法运算符的介绍(摘自MSDN): /(浮点除法):将两个数相除并返回以浮点数表示的结果. 所得结果的数据类型取决于操作数的类型. 下表显示如何确定结果的数据类型. 操作数数据类型 结果数据类型 两个表达式都是整数数据类型(SByte.Byte.Short.UShort.Integer.UIn

  • jquery实现智能感知连接外网搜索

    复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title></title

  • C#中TextBox实现输入提示功能的方法

    本文实例讲述了C#中TextBox实现输入提示功能的方法.分享给大家供大家参考.具体如下: 设置TextBox的AutoCompleteSource的属性为CustomSource,设置TextBox的AutoCompleteMode属性为SuggestAppend. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawin

  • C++中的auto_ptr智能指针的作用及使用方法详解

    智能指针(auto_ptr) 这个名字听起来很酷是不是?其实auto_ptr 只是C++标准库提供的一个类模板,它与传统的new/delete控制内存相比有一定优势,但也有其局限.本文总结的8个问题足以涵盖auto_ptr的大部分内容.  auto_ptr是什么? auto_ptr 是C++标准库提供的类模板,auto_ptr对象通过初始化指向由new创建的动态内存,它是这块内存的拥有者,一块内存不能同时被分给两个拥有者.当auto_ptr对象生命周期结束时,其析构函数会将auto_ptr对象拥

随机推荐