作者kight (山中杂草一只鹿)
看板Visual_Basic
标题[.NET] VB6转VB.net的问题~~
时间Wed May 18 11:56:52 2011
小弟最近将VB6转成VB.net,但是在Structure部份却出了问题..
Structure的程式码是:
Public Structure dotSCRIBELINEINFO
Dim ixScribeLineCount As Short 'Line Count
<VBFixedArray(100)> Dim xScribeLine() As dotPIX
Dim iyScribeLineCount As Short 'Line Count
<VBFixedArray(100)> Dim yScribeLine() As dotPIX
Public Sub Initialize()
ReDim xScribeLine(100)
ReDim yScribeLine(100)
End Sub
End Structure
其中,dotPIX是另一个Structure ..
因为要将资料使用FileGet读出到到这个个Structure中..
但却一直出现"无法读取资料末端之外"的错误讯息..
後来才发现,在VB6中,使用Len去查看这个Structure的大小是3120
但是到了VB.net,使用Len去查看却只剩下4...
这是怎麽一回事呢??
为何长度会缩水这麽多??
恳请高手指导~~~
这是原本在VB6的Structure
Public Type dotSCRIBELINEINFO
ixScribeLineCount As Integer
xScribeLine(BUFFERCOUNT_SCRIBELINEINFO) As dotPIX
iyScribeLineCount As Integer
yScribeLine(BUFFERCOUNT_SCRIBELINEINFO) As dotPIX
End Type
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 211.20.115.210
※ 编辑: kight 来自: 211.20.115.210 (05/18 11:57)
※ 编辑: kight 来自: 211.20.115.210 (05/18 11:57)
1F：推 horngsh:你的VB6原来的structure内容可否贴上来? 05/18 13:25
※ 编辑: kight 来自: 211.20.115.210 (05/18 13:36)
2F：推 horngsh:把你的两个Structure寄过来, 我帮你转. 05/18 18:21