当前位置:编程学习 > VB >>

vb编程,筛选

判断文本框内是否有指定文本并输出是否,使用什么函数?
答案:使用instr函数
以下引用百度百科资料,他整理的比较全面,我就不自己写了。
InStr  【类别】  字符串函数  【方法】  InStr([start, ]string1, string2[, compare])  【返回值】  返回 正整数Variant(Long)。  【异常/错误】  当string1为null时,产生 实时错误 '94' :无效使用Null 的错误  【描述】  返回指定一字符串在另一字符串中最先出现的位置。在字符串string1中,从start开始找string2,省略start时从string1的第1个字符开始找。找不到时,函数返回值为0,找到则返回所在位置。  如果需要字节查找,则可以使用InstrB  【参数】  InStr 函数的语法具有下面的参数:  部分编辑本段说明  start 搜索起点   可选参数。为数值表达式,设置每次搜索的起点。如果省略,将从第一个字符的位置开始。如果 start 包含 Null,将发生错误。如果指定了 compare 参数,则一定要有 start 参数。  string1   必要参数。接受搜索的字符串表达式。  string2   必要参数。被搜索的字符串表达式。  Compare 比较方式   可选参数。指定字符串比较。如果 compare 是 Null,将发生错误。如果省略 compare,Option Compare 的设置将决定比较的类型。  compare 参数设置为:  常数 值  vbUseCompareOption -1  说明:使用Option Compare 语句设置执行一个比较。  vbBinaryCompare 0  说明:执行一个二进制比较。  vbTextCompare 1  说明:执行一个按照原文的比较。  vbDatabaseCompare 2  说明:仅适用于Microsoft Access,执行一个基于数据库中信息的比较。编辑本段具体返回值  如果  string1 为零长度  InStr返回 0  string1 为 Null  InStr返回 Null  string2 为零长度  InStr返回 Start 的值  string2 为 Null  InStr返回 Null  string2 找不到  InStr返回 0  在 string1 中找到string2  InStr返回 找到的位置  start 值 > string2 值  InStr返回 0编辑本段示例  本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。  Dim SearchString, SearchChar, MyPos  SearchString ="XxxxxpxxPhdd" '被搜索的字符串。  SearchChar = "P" ' 要查找字符串。  ' 从第4个字符开始,以文本比较的方式找起。返回值为 6(小写 p)。  ' 小写 p 和大写 P 在文本比较下是一样的。  MyPos = Instr(4, SearchString, SearchChar, 1)  ' 从第4个字符开始,按照原文比较的方式找起。返回值为 9(大写 P)。  ' 小写 p 和大写 P 在二进制比较下是不一样的。  MyPos = Instr(1, SearchString, SearchChar, 0)  ' 缺省的比对方式为二进制比较(最后一个参数可省略)。  MyPos = Instr(SearchString, SearchChar) ' 返回 9。  MyPos = Instr(1, SearchString, "W") ' 返回 0。  SQL函数:  INSTR(char1,char2,start,times):在char1字符串中搜索char2字符串,start为执行搜索的起始位置,times为搜索次数。

Private Sub Command1_Click()

    If Instr(Text1.Text, "aaaa") > 0 Then

        MsgBox "含有aaaa"

    Else

        MsgBox "没含有"

    End If

End Sub

上一个:一个VB程序问题
下一个:vb制作小程序问题

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,