VB ListBox 添加不重复的值

最新推荐文章于 2020-03-25 15:27:05 发布

miaozk2006

最新推荐文章于 2020-03-25 15:27:05 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/miaozk2006/article/details/82417002

该博客介绍了在VB中如何确保ListBox控件添加的值是不重复的。通过一个名为AddList的Private Function，检查列表中是否存在相同的值，避免重复添加。

VB ListBox 添加不重复的值，当列表中已经存在该值即不再添加。

Private Function AddList(List As ListBox, Str As String) As Boolean
    Dim I As Long
    For I = 0 To List.ListCount - 1
        If List.List(I) = Str Then Exit Function
    Next
    List.AddItem Str
    AddList = True
End Function

摘自：网络整理

相关文章参考：

※Listbox 之中点击右键弹出菜单

※Listbox 的水平卷动轴

※VB动态拖曳Listbox Item位置

★

V B 部分相关文章推荐： ★

※VB WindowsMediaPlayer 播放

最低0.47元/天解锁文章

新学期VIP享超值加赠

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

miaozk2006

关注关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

VB 简单实现简体与繁体互转

miaozk2006的专栏

02-01

1052

Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByV...

VB鼠标事件详解-《来抓我》游戏

weixin_39433293的博客

01-29

2716

“ 本节课程一起学习VB中常用的鼠标事件” VB是一种可视化编程语言，UI设计非常的方便。其用户交互中最为重要的方式是鼠标，此前我们介绍过鼠标的单击事件。那么本节课程我们一起来详细的学习鼠标的各种事件。鼠标常用事件包括： Click、DblClick、MouseMove、MouseDown、MouseUp。 01 — 鼠标事件的含义鼠标事件是指，用户使用鼠标发生的某个动作时触发的相应的事件。有时候一个动作会触发多个事件。例如：鼠标单击时，不仅会触发Click事件，还会引发 MouseDown、Mo

参与评论您还未登录，请先登录后发表或查看评论

vb获取鼠标坐标及判断位置

01-15

这是一个强大的鼠标开发技术它可以把鼠标的坐标在1毫秒内读出来而且坐标随鼠标移动而移动...

VB获取鼠标指针坐标

05-11

摘要:VB源码,API专区,获取坐标 VB获取鼠标指针坐标，在窗口中适时显示鼠标坐标，移动鼠标适时显示坐标信息，是计算鼠标所经过点的像素值，以下代码是关键代码：　　Private Sub Timer1_Timer() 　　 Dim point As POINTAPI 　　 GetCursorPos point '获取鼠标位置　　 Label1.Caption = "当前鼠标坐标：" & point.x & " , " & point.y 　　End Sub 运行环境：Windows/VB6

VB下获得鼠标位置

xiaozi8112的专栏

01-18

4747

在vb里获得鼠标位置目前我知道两个方法,一个是:Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 在MouseMove事件中获得当前鼠标的位置.还有一个就是用API函数了,具体如下:先声明函数和点的数据类型,Private Type POINTAPI

VB LISTBOX

miaozk2006的专栏

02-14

1400

1）List Box控件常用的方法参数：AddItem向列表框添加新项目，其格式为：ListBox控件名．AddItem＜项目＞[，＜索引值＞]其中：<项目>为字符串表达式，表示添加到列表框中的新项目。<索引值>为数值表达式，指定在列表框中插入新项目的位置。若为0，则插入到第一个项目位置；若缺省且Sorted属性为False，则插入到最后一个项目位置；若缺省且Sor...

vb.net将excel表格数据填加到Listbox控件中并去重复选项

Newnotes的博客

03-25

1078

Dim xlApp As Object = Nothing Dim xlBooks As Excel.Workbooks = Nothing Dim xlBook As Excel.Workbook = Nothing Dim xlSheets As Excel.Sheets = Nothing Dim xlSheet As Exce...

VB中防止将重复项目添加到列表框控件中...

10-08

### VB中防止将重复项目添加到列表框控件中的方法在Visual Basic（简称VB）编程环境中，列表框（ListBox）是一种常用的控件，用于显示一个项目列表供用户选择。但在实际应用中，我们常常需要避免列表框中出现重复...

在.NET VB.NET中向Listbox列表框添加图片的方法

要向Listbox列表框添加图片，首先需要明确Listbox控件本身并不直接支持图片，但我们可以通过添加带图片的子控件来实现这一需求。一个常用的方法是使用带图片的Label控件作为Listbox的每个条目。具体步骤如下： 1. ...

VB 获取鼠标任意点上的位置坐标.rar

07-10

VB 获取鼠标任意点上的位置，鼠标在屏幕上移动，本窗口中可显示鼠标所在位置的坐标信息。

VB 获取鼠标位置

06-08

VB 获取鼠标位置 VB 获取鼠标位置 VB 获取鼠标位置

获取当前鼠标坐标程序(VB6.0源代码编写)

12-10

获取当前鼠标坐标程序(VB6.0源代码编写) 用两种方法，获取当前鼠标坐标程序，可能即时显示鼠标坐标值。源代码

VB鼠标模拟点击器实时坐标获取

08-21

该资源通过VB编程模拟鼠标左键，可实时捕捉鼠标坐标，自定义左键单击次数，循环操作。合理使用可有效增加工作效率。

删除数组重复元素（VB.NET）

07-20

VB.NET删除数组中的重复元素,包括源码和可执行程序，已在VS2005中测试通过。

获取当前鼠标坐标程序(VB6.0代码编写)

09-01

获取当前鼠标坐标程序(VB6.0代码编写) 用两种方法，获取当前鼠标坐标程序，可能即时显示鼠标坐标值。 QQ223857666勾月

VB中删除数组重复元素

RosickyNewBee的专栏

01-22

8346

Option ExplicitFunction Delete3(Arr As Variant) As Variant Dim i As Integer For i = LBound(Arr) To UBound(Arr) If i > UBound(Arr) Then Exit For If Arr(i) = 3 Then

vb显示鼠标位置

FeiJiXiong的专栏

01-30

1600

Private Sub Form1_MouseMove(ByValeventSender As System.Object, ByVal eventArgs AsSystem.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove Dim Button As Short = eventArgs.Button\ &H10000

Vb 实现简体转繁体

yulu380393306的专栏

10-30

1356

//LCmapString 映像字符串Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" ( _ ByVal Locale As Long, _

VB058-获取鼠标坐标源代码

12-23

VB058-获取鼠标坐标源代码