乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 202|回复： 10

如何对组合框排序？

[复制链接]
Humbertogo

34

主题

118

帖子

1

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
254
发表于 2007-9-5 07:50:30 | 显示全部楼层 |阅读模式
有没有办法按字母顺序对组合框排序

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

hendie

18

主题

222

帖子

51

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
260
发表于 2007-9-5 08:02:20 | 显示全部楼层
作者未知
  1. Public Function CBsort(CB As ComboBox)

  2. ' Sort the Combobox

  3.     Dim CBvar As Variant

  4.     For I = 0 To CB.ListCount - 2

  5.     

  6.         If CB.List(I) > CB.List(I + 1) Then

  7.             CBvar = CB.List(I)

  8.             CB.List(I) = CB.List(I + 1)

  9.             CB.List(I + 1) = CBvar

  10.             I = -1

  11.         End If

  12.     Next I

  13. End Function

回复

使用道具 举报

Humbertogo

34

主题

118

帖子

1

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
254
发表于 2007-9-5 08:19:50 | 显示全部楼层
在将信息添加到组合框之前对其进行排序。你的代码是什么样子的？你能发一个片段吗？
回复

使用道具 举报

hendie

18

主题

222

帖子

51

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
260
发表于 2007-9-5 08:24:29 | 显示全部楼层
将项目读入数组、对数组排序然后将数组添加到组合框中可能更容易/更快
回复

使用道具 举报

Kerry

116

主题

996

帖子

9

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1466
发表于 2007-9-5 08:32:03 | 显示全部楼层

有多少？？
回复

使用道具 举报

Bryco

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2007-9-5 09:22:35 | 显示全部楼层
http://vbnet.mvps.org/index.html?code/sort/QS overview . htm
quick sort可能是其中之一，但它需要几秒钟才能确定
回复

使用道具 举报

hendie

18

主题

222

帖子

51

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
260
发表于 2007-9-5 09:40:32 | 显示全部楼层

有多少

没错
为什么要/需要向组合框中添加9000000项
回复

使用道具 举报

Keith™

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2007-9-5 10:06:48 | 显示全部楼层
简单的解决方案是在设计时在IDE中将排序属性设置为True
在运行时，组合框排序属性是只读的，因此需要在运行代码之前对其进行设置。
回复

使用道具 举报

Keith™

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2007-9-5 13:25:51 | 显示全部楼层

但是VBA中的组合框没有用于排序的选项。（除非它被称为其他东西？？）
回复

使用道具 举报

Humbertogo

34

主题

118

帖子

1

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
254
发表于 2007-9-5 13:30:31 | 显示全部楼层
嗯...我最近一直在VB工作...没有考虑到VB和VBA的属性会有所不同...
让我看看我能想出什么
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-6 01:07 , Processed in 1.176522 second(s), 83 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表