miaozk2006

点滴积累与收藏:关于技术，关于生活

日志

关于我

miaozk2006

文章分类

List列表拒绝添加重复信息

2011-12-12 17:54:49| 分类：编程-VB | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

【实例说明】
利用程序输入信息时，经常由于马虎输入了重复的信息。为避免输入重复信息，可以在添加重复信息时进行警告。

【编程思路】
                 通过判断文本框内输入的内容是否在列表中存在，来确定信息是否重复。相关的属性和方法：
                 AddItem方法，将项目添加到ListBox列表里。
                 语法：object.AddItem item,index
                 参数：Item必需的。字符串表达式，用来指定添加到列表中的项目。Index可选。是整数，用来指定新项目或行在列表中的位置。
                 ListCount属性，列表中项目的个数。
                 ListIndex属性，设置列表中当前被选择的项目的索引。
                 Text属性，列表中的文本。

【设计步骤】
1.新建一个标准工程，创建一个新窗体，默认名为Form1。
2.在Form1窗体中放置一个Text控件、一个ListBox控件、两个Command控件。

3.源程序

Private Sub Form_Load()
Me.List1.AddItem "456"

Me.List1.AddItem "123"

End Sub

             Private Sub Command1_Click()
                     Dim i As Integer
                     For i = 0 To List1.ListCount - 1
                             List1.ListIndex = i
                             If List1.Text = Text1.Text Then '如果信息重复
                                    ' MsgBox "系统不允许重复输入，请重新输入"
                                     Exit Sub
                             End If
                     Next i

List1.AddItem Text1.Text '添加信息
End Sub

             Private Sub Command2_Click()
                     End
             End Sub

VB部分相关文章推荐

※VB快速读取 TextBox 第 N 行的资料

※VB禁止使用 Alt-Tab 或 Ctrl-Alt-Del

※生成迷宫的程序

※另一方法转换大小写

※VB控件注册 - 利用资源文件将dll、ocx打包进exe文件

※做VB的，经常注册和反注册OCX控件和DLL链

※VB从程序中生成Exe文件

※VB6监视/操作剪贴板示例(VB6.0代码)

※VB6里自动提交/自动填表的一种相对通用的方案

※在VB中INI文件的读写、删除（对中文支持很好）

※VB获取windows各常用目录的函数（模块）

※VB:设定 MsgBox 在若干时间之后若无回应则自动关闭

※VB:读取及设定NumLock/CapsLock/ScrollLock的值

※VB:您知道 Mid$ 函量可以放在 '=' 的左方吗

※VB后台获得按键,并执行自己的函数(非钩子及热键)

※VB:将短文件名格式转成长文件名

※在vb中使用Iphlpapi.dll获取网络信息(上）

※在vb中使用Iphlpapi.dll获取网络信息(下）

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_087067080081083065083087081070072085089065080081086070092',
              blogTitle:'List列表拒绝添加重复信息',
              blogAbstract:'<SPAN style=\"LINE-HEIGHT: 20px; FONT-FAMILY: Arial; COLOR: rgb(95,95,95); FONT-SIZE: 12px; webkit-border-horizontal-spacing: 2px; webkit-border-vertical-spacing: 2px;\"  \>\r\n<DIV align=\"left\" \>【实例说明】<BR\>                 利用程序输入信息时，经常由于马虎输入了重复的信息。为避免输入重复信息，可以在添加重复信息时进行警告。</DIV\>\r\n<DIV align=\"left\" \>【编程思路】<BR\>                 通过判断文本框内输入的内容是否在列表中存在，来确定信息是否重复。相关的属性和方法： <BR\>                 AddItem方法，将项目添加到ListBox列表里。 <BR\>                 语法：object.AddItem item,index <BR\>  </DIV\></SPAN\>',
              blogTag:'',
              blogUrl:'blog/static/3824705820111132415106',
              isPublished:1,
              istop:false,
              type:2,
              modifyTime:1361415782689,
              publishTime:1323683689709,
              permalink:'blog/static/3824705820111132415106',
              commentCount:0,
              mainCommentCount:0,
              recommendCount:0,
              bsrk:-100,
              publisherId:0,
              recomBlogHome:false,
              currentRecomBlog:false,
              attachmentsFileIds:[],
              vote:{},
              groupInfo:{},
              friendstatus:'none',
              followstatus:'unFollow',
              pubSucc:'',
              visitorProvince:'',
              visitorCity:'',
              visitorNewUser:false,
              postAddInfo:{},
              mset:'000',
              mcon:'',
              srk:-100,
              remindgoodnightblog:false,
              isBlackVisitor:false,
              isShowYodaoAd:false,
              hostIntro:'',
              hmcon:'0',
              selfRecomBlogCount:'0',
              lofter_single:'<iframe width="140" height="560" style="overflow:hidden;" src="http://www.lofter.com/mailEntry.do?blogad=1&blog" frameBorder="0"></iframe>'
            }

{list a as x}
    {if !!x}
    <div class="iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
      {if x.visitorName==visitor.userName}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        {if x.moveFrom=='wap'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/wapblog.html?frompersonalbloghome"><span title="来自网易手机博客" class="iblock wapIcon"> </span></a>
        {elseif x.moveFrom=='iphone'}
          <a class="noul pnt" target="_blank"><span title="来自iPhone客户端" class="iblock iphoneIcon"> </span></a>
        {elseif x.moveFrom=='android'}
          <a class="noul pnt" target="_blank"><span title="来自Android客户端" class="iblock androidIcon"> </span></a>
        {elseif x.moveFrom=='mobile'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/emsblog.html?frompersonalbloghome"><span title="来自网易短信写博" class="iblock wapIcon"> </span></a>
        {/if}
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
          ${fn(x.visitorNickname,8)|escape}
        </a>
      </div>
    </div>
    {/if}
    {/list}

<#--最新日志，群博日志--> <#--推荐日志-->

<p class="fc06">推荐过这篇日志的人：</p>
    <div>
      {list a as x}
      {if !!x}
      <div class="iblock nbw-fce nbw-f40">
        <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
        <img alt="${x.recommenderNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.recommenderName)}"/>
        </a>
        <div class="cwd thide">
          <a class="fc03 m2a" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
            ${fn(x.recommenderNickname,6)|escape}
          </a>
        </div>
      </div>
      {/if}
      {/list}
    </div>
    {if !!b&&b.length>0}
    <p  class="fc06">他们还推荐了：</p>
    <ul>
    {list b as y}
      {if !!y}
        <li class="rrb"><span class="iblock">·</span><a class="fc03 m2a" target="_blank" href="http://blog.163.com/${y.recommendBlogPermalink}/?from=blog/static/3824705820111132415106">${y.recommendBlogTitle|escape}</a></li>
      {/if}
    {/list}
    </ul>
    {/if}

<#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇，下一篇--> <#-- 热度 -->

{list a as x}
    {if !!x}
    <div class="hotItem iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
      {if x.publisherUsername==visitor.userName}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
          ${fn(x.publisherNickname,8)|escape}
        </a>
      </div>
      <a class="f-myLikeIcons hottype {if x.type==1} js-liketype{elseif x.type==2} js-reblogtype{elseif x.type==3} js-sharetype{else}{/if}" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/"> </a>
    </div>
    {/if}
    {/list}

<#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->

页脚

我的照片书 - 手机博客 - 下载LOFTER APP - 订阅此博客

miaozk2006

导航

日志

List列表拒绝添加重复信息

历史上的今天

最近读者

热度

评论

页脚