是因为你的美丽丽超出了界线,无法超越的界线!

来源：蜘蛛抓取(WebSpider) 时间：2014-11-18 18:06 标签： 你的美丽泛滥成灾
当前位置： >
> 帮我看下35600索引超出边界帮我看下这里写错了什么，总是35600索引超出边界，数据不能显示完全
帮我看下35600索引超出边界帮我看下这里写错了什么，总是35600索引超出边界，数据不能显示完全
limeili0926 & at
帮我看下35600索引超出边界帮我看下这里写错了什么，总是35600索引超出边界，数据不能显示完全，排序不连贯，帮我看下，谢谢
Private & Sub & Command11_Click()
Dim & filename
If & Winsock1(ListView1.SelectedItem.Index).State &
& sckClosed & Then
filename & = & InputBox( &请选择本地文件名 &)
If & filename & = &
& & & Then
&请输入文件名 &
GoTo & exi:
Dim & FreeF & As & Integer
Dim & LenFile & As & Long &
'文件的长度
Dim & bytData() & As & Byte &
'存放数据的数组
Dim & ipos & As & Long
Const & imax & = & 65535
FreeF & = & FreeFile &
'获得空闲的文件号
Open & filename & For & Binary & As & #FreeF &
'打开文件
LenFile & = & LOF(FreeF) &
'获得文件长度
If & LenFile &
&= & imax & Then &
'如果要发送的文件小于数据块大小，直接发送
ReDim & bytData(1 & To & LenFile) &
'根据文件长度重新定义数组大小
Get & #FreeF, & , & bytData &
'把文件读入到数组里
Close & #FreeF &
'关闭文件
Winsock1(ListView1.SelectedItem.Index).SendData & bytData &
'发送数据
Exit & Sub
'文件大于数据块大小，进行分块发送
Do & Until & (ipos & & = & (LenFile & - & imax)) &
'发送整块数据的循环
ReDim & bytData(1 & To & imax)
Get & #FreeF, & ipos & + & 1, & bytData
Winsock1(ListView1.SelectedItem.Index).SendData & bytData
ipos & = & ipos & + & imax &
'移动iPos，使它指向下来要读的数据
'这里要注意的是，必须检查文件有没有剩下的数据，如果文件大小正好等于数据块大小的
' & 整数倍，那么就没有剩下的数据了
ReDim & bytData(1 & To & LenFile & - & ipos) &
'发送剩下的不够一个数据块的数据
Get & #FreeF, & ipos & + & 1, & bytData
Winsock1(ListView1.SelectedItem.Index).SendData & bytData
Close & #FreeF
索引超出边界，应该是与数组操作有关系，我估计是存取数组元素时发生了问题
dim arrX(0 to 1) as long
如果arrx(2)=100就会说索引超出边界
如果debug.print arrx(2)也会说索引超出边界
limeng8518335 & &
& & （0）（0）引用索引超出边界,是索引值的问题，你把你的索引值的最大和最小值减1，试试。另外看看下面的问题，或许能够有所启示。
limeng930217 & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&&&增值电信业务经营许可证湘B2-> 水晶石大讲堂之超媒体专场——无法阻挡的热情，超越媒体的界限
水晶石大讲堂之超媒体专场——无法阻挡的热情，超越媒体的界限
& 日，水晶石教育深圳中心周末大讲堂超媒体专场讲座顺利举行，讲座现场座无虚席，教室内汇聚了来自四面八方的同学们。讲座现场气氛轻松活跃，来自水晶石教育资深超媒体讲师金艾龙给大家带来了一场有关超媒体技术的饕餮盛宴，获得了在场学生的一致赞扬，下面让小编给同学们还原一下现场吧。
来咨询的同学依旧挤爆水晶石教育深圳中心
& 讲座于下午14时正式开始，来自水晶石教育总部外派组主管、资深超媒体教师金艾龙老师宣布讲座开始，拉开了整场讲座的序幕。金老师本次讲座主要从以下5个方面进行：什么是超媒体、超媒体学什么、超媒体从业之路、超媒体发展趋势以及超媒体的优势。
& 细致的讲解完以上5个方面后，金老师又通过网上世博、三里屯等实际案例进行讲解，让大家对技术层面的知识加以巩固，随后的小练习让同学们可以对技术层面的内容加以练习。本次讲座，让很多慕名而来的同学了解到自身的问题与不足，也让存在疑问的同学得到了满意的解答。
& 随着最后几名同学完成了金老师布置的小练习，几个小时的讲座很快就结束了，讲座后同学们纷纷对本次水晶石大讲堂超媒体专场给予很高的评价：&以往的讲座中只是进行介绍讲解，本次添加了小练习模块，可以让我们对技术层面有了初步的了解&，&此次讲座金老师语言风趣，很吸引人，如果在金老师的课堂内学习，肯定能学的不错&等等。
& 听了同学们的反馈，我们深有体会，也将在今后的水晶石教育大讲堂中添加更多有关技术实操的模块，让同学们能够听有所长，学以致用，好了，本期的水晶石教育深圳中心周末大讲堂超媒体专场就给大家介绍到这里，下期的水晶石教育大讲堂就业篇我们不见不散！
& 水晶石教育自2013年起，启动了水晶石教育周末大讲堂活动，华南区由水晶石教育广州、深圳、佛山三大校区联袂行动。周末大讲堂的主要意义在于帮助同学们了解CG视觉展示行业的发展前景和方向，对CG行业制作的难点进行分析解答。无论你是学习什么专业的同学，都可以报名参加，只要你感兴趣，有想法，周末大讲堂就欢迎你！作为中国CG视觉展示行业培训的领跑者，我们提供室内设计培训&、建筑表现培训&、影视后期培训、影视动漫培训、虚拟现实培训、游戏美术培训等，目前在华南有3家直营分中心，分别是广州水晶石教育、深圳水晶石教育、佛山水晶石教育。想参加的同学请联系相关老师报名，座位有限，报完截止，下期，我们不见不散！&
了解水晶石
客服电话：400-060-0620客服邮箱：
& 　北京水晶石技术培训有限公司 版权所有 | 京ICP备号-14 | 京公海网安备号cad超出图形界限，图形界限关了后为什么不能选择_百度知道
cad超出图形界限，图形界限关了后为什么不能选择
提问者采纳
都装了好几次了cad超出图形界限，急啊，试过很多方法将图形界限关了后可以担虎避绞篆悸吊稍画图但却都不能再图中进行选择，单击图形全选等等
其他类似问题
社保的相关知识
等待您来回答
您可能关注的推广
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 你的美丽泛滥成灾 的文章

 

随机推荐