本节视频通过三种方法实现了防止项目重复加入列表框。

易语言列表框防止项目重复加入列表框视频教程源码：

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

列表框1.现行选中项 ＝ 0
皮肤_加载 (1)

.子程序 _按钮1_被单击

列表框1.加入项目 (编辑框1.内容, )
编辑框1.内容 ＝ “”

.子程序 _按钮2_被单击, , , 不重复加入-1

.如果 (列表框1.选择 (编辑框1.内容) ＝ -1)
列表框1.加入项目 (编辑框1.内容, )
信息框 (“添加成功！”, 0, , )
.否则
信息框 (“已经存在【” ＋ 编辑框1.内容 ＋ “】请不要重复添加该内容！”, 0, , )

.如果结束

.子程序 _按钮3_被单击, , , 不重复加入-2

.如果 (SendMessageA (列表框1.取窗口句柄 (), 399, 0, 编辑框1.内容) ＝ -1)
列表框1.加入项目 (编辑框1.内容, )
信息框 (“添加成功！”, 0, , )
.否则
信息框 (“已经存在【” ＋ 编辑框1.内容 ＋ “】请不要重复添加该内容！”, 0, , )

.如果结束

.子程序 _按钮4_被单击, , , 不重复加入-3
.局部变量 i, 整数型
.局部变量 重复, 逻辑型

.计次循环首 (列表框1.取项目数 (), i)
.如果真 (列表框1.取项目文本 (i － 1) ＝ 编辑框1.内容)
重复 ＝ 真
跳出循环 ()
.如果真结束
重复 ＝ 假
.计次循环尾 ()

.如果 (重复 ＝ 假)
列表框1.加入项目 (编辑框1.内容, )
编辑框1.内容 ＝ “”
信息框 (“添加成功！”, 0, , )
.否则
信息框 (“已经存在【” ＋ 编辑框1.内容 ＋ “】请不要重复添加该内容！”, 16, , )
.如果结束

源码：511遇见易语言教程

           511遇见易语言教程视频链接

           易语言列表框防止项目重复加入列表框

列表框给出了一个选项清单，允许用户从中进行单项或多项选择，被选中的项会高亮显示。列表框可分为单选列表框和多选列表框，顾名思义，单选列表框中一次只能选择一个列表项，而多选列表框可以同时选择多个列表项。

       列表框也会向父窗口发送通知消息。这些通知消息及含义如下：

       LBN_DBLCLK ：用户用鼠标双击了一列表项，只有具有LBS_NOTIFY 的列表框才能发送该消息
       LBN_ERRSPACE ：列表框不能申请足够的动态内存来满足需要
       LBN_KILLFOCUS ：列表框失去输入焦点
       LBN_SELCANCEL： 当前的选择被取消，只有具有LBS_NOTIFY 的列表框才能发送该消息
       LBN_SELCHANGE：单击鼠标选择了一列表项，只有具有LBS_NOTIFY 的列表框才能发送该消息
       LBN_SETFOCUS：列表框获得输入焦点
       WM_CHARTOITEM：当列表框收到WM_CHAR 消息后， 向父窗口发送该消息， 只有具有LBS_WANTKEYBOARDINPUT 风格的列表框才会发送该消息
       WM_VKEYTOITEM：当列表框收到WM_KEYDOWN 消息后，向父窗口发送该消息，只有具有LBS_WANTKEYBOARDINPUT 风格的列表框才会发送该消息

       列表框控件的创建

       MFC将列表框控件的所有操作都封装到了CListBox类中。

        创建列表框控件时，可以在对话框模板中直接拖入列表框控件Listbox，然后添加控件变量使用。但如果需要动态创建列表框，就要用到CListBox类的Create成员函数了。Create成员函数的原型如下：

virtual BOOL Create(
   DWORD dwStyle,
   const RECT& rect,
   CWnd* pParentWnd,
   UINT nID 
);

       参数rect指定了列表框的位置和尺寸，pParentWnd为父窗口的指针，nID用于指定列表框控件的ID。最后重点讲讲参数dwStyle，它指定了列表框控件的风格，以下是各种风格说明：

       LBS_EXTENDEDSEL：支持多重选择，在点击列表项时按住Shift 键或Ctrl 键即可选择多个项
       LBS_HASSTRINGS：指定一个含有字符串的自绘式列表框
       LBS_MULTICOLUMN：指定一个水平滚动的多列列表框， 通过调用CListBox::SetColumnWidth 来设置每列的宽度
       LBS_MULTIPLESEL：支持多重选择。列表项的选择状态随着用户对该项单击或双击鼠标而翻转
       LBS_NOINTEGRALHEIGHT：列表框的尺寸由应用程序而不是Windows 指定。通常，Windows指定尺寸会使列表项的某些部分隐藏起来
       LBS_NOREDRAW：当选择发生变化时防止列表框被更新，可发送消息改变该风格
       LBS_NOTIFY：当用户单击或双击鼠标时通知父窗口
       LBS_OWNERDRAWFIXED：指定自绘式列表框，即由父窗口负责绘制列表框的内容，并且列表项有相同的高度
       LBS_OWNERDRAWVARIABLE：指定自绘式列表框，并且列表项有不同的高度
       LBS_SORT：使插入列表框中的项按升序排列
       LBS_STANDARD：相当于指定了WS_BORDER|WS_VSCROLL|LBS_SORT
       LBS_USETABSTOPS：使列表框在显示列表项时识别并扩展制表符(‘\t’)，默认的制表宽度是32 个对话框单位
       LBS_WANTKEYBOARDINPUT：允许列表框的父窗口接收WM_VKEYTOITEM 和WM_CHARTOITEM 消息，以响应键盘输入
       LBS_DISABLENOSCROLL：使列表框在不需要滚动时显示一个禁止的垂直滚动条

       dwStyle可以是以上所列风格的组合。与其他控件一样，除了这些风格一般还要为列表框控件设置WS_CHILD、WS_VISIBLE、WS_TABSTOP、WS_BORDER、WS_VSCROLL等风格。一般创建单选列表框时，风格要设置为：WS_CHILD|WS_VISIBLE|WS_TABSTOP|LBS_STANDARD，如果不希望列表框项排序显示则应去掉LBS_STANDARD。创建多选列表框时，只需要在单选列表框风格后添加LBS_MULTIPLESEL或LBS_EXTENDEDSEL风格。

       对于对话框模板中直接添加的列表框控件，其属性页中的属性包含了以上风格，例如属性Multicolumn对应的就是LBS_MULTICOLUMN风格。

       CListBox类的主要成员函数

       int GetCount( ) const;
       返回值：返回列表框中列表项的数目，如果发生错误则返回LB_ERR。

       int GetSel(int nIndex) const;
       参数：nIndex指定某个列表项的索引。
       返回值：返回nIndex指定列表项的状态。如果此列表项被选择了则返回一个正值，否则返回0，若发生错误则返回LB_ERR。

       int SetSel(int nIndex,BOOL bSelect = TRUE);
       此函数只用于多选列表框，使用它可以选择或取消选择指定的列表项。
       参数：nIndex指定某个列表项的索引，若为-1则相当于指定了所有列表项。bSelect为TRUE时选择指定列表项，否则取消选择指定列表项。
       返回值：如果发生错误则返回LB_ERR。

       int AddString(LPCTSTR lpszItem);
       此函数用来向列表框中添加字符串。如果列表框指定了LBS_SORT风格，字符串就被以排序顺序插入到列表框中，如果没有指定LBS_SORT风格，字符串就被添加到列表框的结尾。
       参数：lpszItem指定了要添加的字符串。
       返回值：返回字符串在列表框中添加的位置。如果发生错误则返回LB_ERR,内存不够则返回LB_ERRSPACE。

       int InsertString(int nIndex, LPCTSTR lpszItem);
       该函数用来在列表框中的指定位置插入字符串。与AddString函数不同的是，InsertString函数不会导致LBS_SORT风格的列表框重新排序。不要在具有LBS_SORT风格的列表框中使用InsertString函数，以免破坏列表项的次序。
       参数：。参数nIndex 给出了插入位置（索引），如果值为-1，则字符串将被添加到列表的末尾。参数lpszItem 指定了要插入的字符串。
       返回值：返回实际的插入位置，若发生错误，会返回LB_ERR 或LB_ERRSPACE。

       int DeleteString(UINT nIndex);
       该函数用于删除指定的列表项。
       参数：nIndex 指定了要删除项的索引。
       返回值：函数的返回值为剩下的列表项数目，如果nIndex 超过了实际的表项总数，则返回LB_ERR。

       void ResetContent();
       该函数用于清除所有列表项。

       int GetText(int nIndex,LPTSTR lpszBuffer) const;
       void GetText(int nIndex,CString& rString) const;
       这两个成员函数用于获取指定列表项的字符串。参数nIndex 指定了列表项的索引。参数lpszBuffer 指向一个接收字符串的缓冲区。引用参数rString 则指定了接收字符串的CString对象。第一个版本的函数会返回获得的字符串的长度，若出错，则返回LB_ERR；第二个版本的函数则不会。

       int GetTextLen(int nIndex) const;
       该函数返回指定列表项的字符串的字节长度。
       参数：nIndex 指定了列表项的索引。
       返回值：若出错则返回LB_ERR。

       int GetCurSel() const;
       该函数仅适用于单选列表框，用来返回当前被选择项的索引，如果没有列表项被选择或有错误发生，则函数返回LB_ERR。

       int SetCurSel(int nSelect);
       该函数仅适用于单选列表框，用来选择指定的列表项。该函数会滚动列表框以使选择项可见。参数nIndex 指定了列表项的索引，若为-1，那么将清除列表框中的选择。若出错函数返回LB_ERR。

       int GetSelCount() const;
       该函数仅用于多重选择列表框，它返回选择项的数目，若出错函数返回LB_ERR。

       int FindString(int nStartAfter,LPCTSTR lpszItem) const;
       该函数用于对列表项进行与大小写无关的搜索。参数nStartAfter 指定了开始搜索的位置，合理指定nStartAfter 可以加快搜索速度，若nStartAfter 为-1，则从头开始搜索整个列表。参数lpszItem 指定了要搜索的字符串。函数返回与lpszItem 指定的字符串相匹配的列表项的索引，若没有找到匹配项或发生了错误，则会返回LB_ERR。FindString 函数先从nStartAfter指定的位置开始搜索，若没有找到匹配项，则会从头开始搜索列表。只有找到匹配项，或对整个列表搜索完一遍后，搜索过程才会停止，所以不必担心会漏掉要搜索的列表项。

       int SelectString(int nStartAfter,LPCTSTR lpszItem);
       该函数仅适用于单选列表框，用来选择与指定字符串相匹配的列表项。该函数会滚动列表框以使选择项可见。参数的意义及搜索的方法与函数FindString 类似。如果找到了匹配的项，函数返回该项的索引，如果没有匹配的项，函数返回LB_ERR 并且当前的选择不被改变。

        CListBox类应用实例

       最后鸡啄米给大家写一个简单的实例，说明CListBox的几个成员函数及通知消息等的使用方法。此实例实现的功能：在单选列表框中显示一个网站列表，然后在用鼠标左键选择某列表项时，将选中列表项的文本显示到编辑框中。下面是具体实现步骤：

       1. 创建一个基于对话框的MFC工程，名称设置为“Example24”。

       2. 在自动生成的对话框模板IDD_EXAMPLE24_DIALOG中，删除“TODO: Place dialog controls here.”静态文本控件、“OK”按钮和“Cancel”按钮。添加一个Listbox控件，ID设置为IDC_WEB_LIST，Sort属性设为False，以取消排序显示。再添加一个静态文本控件和一个编辑框，静态文本控件的Caption属性设为“您选择的站点：”，编辑框的ID设为IDC_SEL_WEB_EDIT，Read Only属性设为True。此时的对话框模板如下图：

       3. 为列表框IDC_WEB_LIST添加CListBox类型的控件变量m_listBox。

       4. 在对话框初始化时，我们将站点名加入到列表框中，那么需要修改CExample24Dlg::OnInitDialog()函数为：

       5. 我们希望在选中列表项改变时，将最新的选择项实时显示到编辑框中，那么这就要用到LBN_SELCHANGE通知消息。为列表框IDC_WEB_LIST的通知消息LBN_SELCHANGE添加消息处理函数CExample24Dlg::OnLbnSelchangeWebList()，并修改如下：

       6. 运行程序，弹出结果对话框，在对话框的列表框中用鼠标改变选中项时，编辑框中的显示会相应改变。效果图如下：

       关于列表框ListBox的讲解就到此为止了。大家如果想试验更多的列表框成员函数，可以在上面的小例子中加入更多的功能来体会。最后依然感谢大家对鸡啄米的关注。

本课视频通过四种方法实现了易语言列表框去重复项目到列表框。

易语言列表框去重复项目到列表框视频教程源码：

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

皮肤_加载 (1)

.子程序 _按钮1_被单击
.局部变量 项目文本, 文本型

项目文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
.如果 (列表框查找文本 (列表框2, 项目文本) ＝ 真)
列表框2.加入项目 (项目文本, )
.否则

.如果结束

.子程序 列表框查找文本, 逻辑型
.参数 列表框, 列表框
.参数 要加入的文本, 文本型
.局部变量 I, 整数型

.计次循环首 (列表框.取项目数 (), I)
.如果真 (要加入的文本 ＝ 列表框.取项目文本 (I － 1))
返回 (假)
.如果真结束

.计次循环尾 ()
返回 (真)

.子程序 _按钮2_被单击
.局部变量 列表框1内容, 文本型

列表框1内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
.如果 (列表框2.选择 (列表框1内容) ＝ -1)
列表框2.加入项目 (列表框1内容, )
.否则

.如果结束

.子程序 _按钮3_被单击
.局部变量 项目, 文本型

项目 ＝ 列表框1.取项目文本 (列表框1.现行选中项)

.如果 (列表框加入项目 (列表框2, 项目) ＝ 真)
信息框 (“项目添加成功”, 0, , )
.否则

.如果结束

.子程序 列表框加入项目, 逻辑型
.参数 列表框, 列表框
.参数 要加入的文本, 文本型
.局部变量 n, 整数型

.计次循环首 (列表框.取项目数 (), n)
.如果真 (要加入的文本 ＝ 列表框.取项目文本 (n － 1))
返回 (假)
.如果真结束

.计次循环尾 ()
列表框.加入项目 (要加入的文本, )
返回 (真)

.子程序 _按钮4_被单击
.局部变量 项目, 文本型

项目 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
.如果 (SendMessageA (列表框2.取窗口句柄 (), 399, 0, 项目) ＝ -1)
列表框2.加入项目 (项目, )
信息框 (“项目添加成功！”, 0, , )

.否则
信息框 (“已经存主【” ＋ 项目 ＋ “】请不要重复添加！”, 16, , )

.如果结束

源码：511遇见易语言教程

           511遇见易语言教程视频链接

           易语言列表框去重复项目到列表框