| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 680 人关注过本帖
标题:关于VB中LISTBOX数据提取
只看楼主 加入收藏
zhuzhongsu
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-4-14
收藏
 问题点数:0 回复次数:1 
关于VB中LISTBOX数据提取
大家好,不知道大家有没有发现,我们把数据加到LISTBOX里时可以添加10几万组数据或更多,可为什么我想再从里面提取值出来只能提取65535组数据?有没有什么方法可以一次全部提取出来,谢谢
2015-06-04 16:59
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
好吧,在网上找到一个,你自己研究一下吧,多百度就可以了。

程序代码:
'┏〓〓〓〓〓〓〓〓〓 GetAllListItem,start 〓〓〓〓〓〓〓〓〓┓
'[简介]:
'API方式获取所有LISTBOX的项目值
Function GetAllListItem(Hwnd1 As Long)
   'VB源码,帮你写函数,帮你写代码,帮你写模块,帮你设计软件
   '--需要什么函数或功能,可以联系我。
   '版权所有,请保留作者信息.QQ:2605961812
   '如需商业用途请联系作者
   Dim Counts As Long, UB As Long
   Counts = SendMessage(Hwnd1, LB_GETCOUNT, 0, 0)
   If Counts = 0 Then Exit Function
   Dim Sz
   UB = Counts - 1
   ReDim Sz(UB)
          Dim S As String
   Dim ListIndex As Long
   For ListIndex = 0 To UB
          S = String$(255, 0)
          SendMessageByString& Hwnd1, LB_GETTEXT, ListIndex, S
          S = Left$(S, InStr(1, S, Chr$(0)) - 1)
          Sz(ListIndex) = S
   Next
   GetAllListItem = Sz
End Function
'┗〓〓〓〓〓〓〓〓〓  GetAllListItem,end  〓〓〓〓〓〓〓〓〓┛


API 定义:
程序代码:
 Private Const LB_GETTEXT = &H189

 Private Const LB_GETCOUNT = &H18B

 

 Private Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)

 Private Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)

授人于鱼,不如授人于渔
早已停用QQ了
2015-06-04 17:46
快速回复:关于VB中LISTBOX数据提取
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025681 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved