vb源码 listbox超过32767行怎么办?分享编程源码，函数直接可以使

概述 超过32767时listcount,listindex都不正常了 我的文件数据比较大,  大概有50000多行.  一行一行写到listbox里面以后,  最后需要用到listcount的值,  但是居然得了个负值.  仔细检查了一下,  发现从0到32767还是正常,  但是紧接着ListCount的值就变成了-32768  然后从-32768开始增加下去了,-32767,-32766,-32 超过32767时Listcount,Listindex都不正常了

我的文件数据比较大,
大概有50000多行.
一行一行写到ListBox里面以后,
最后需要用到Listcount的值,
但是居然得了个负值.
仔细检查了一下,
发现从0到32767还是正常,
但是紧接着ListCount的值就变成了-32768
然后从-32768开始增加下去了,-32767,-32766,-32765.......

请教各位高手!
这到底是怎么回事?
急!
也恳请各位为我UP!!多谢多谢!!!

Private Declare Function SendMessage lib "user32 " Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Long,lParam As Any) As LongPrivate Const LB_GETCOUNT = &H18B '获取ListBox控件行数Private Const LB_GETCURSEL = &H188 '获取ListBox控件当前选中第几行Private Const LB_SETCURSEL = &H186 'ListBox控件设置选择第几行Private Sub Command2_Click()Dim Count As LongCount = SendMessage(List1.hwnd,LB_GETCOUNT,0)End SubPrivate Sub Command3_Click()dim ID as longID = SendMessage(List1.hwnd,LB_GETCURSEL,0)End SubPrivate Sub Command4_Click()call SendMessage(List1.hwnd,LB_SETCURSEL,200,0)End Sub

总结

以上是内存溢出为你收集整理的vb源码 listbox超过32767行怎么办?分享编程源码，函数直接可以使全部内容，希望文章能够帮你解决vb源码 listbox超过32767行怎么办?分享编程源码，函数直接可以使所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。