Foxtable(狐表)用户栏目专家坐堂 → [求助]定义定长字符串问题?在线等


  共有9421人关注过本帖树形打印复制链接

主题:[求助]定义定长字符串问题?在线等

帅哥哟,离线,有人找我吗?
xingzy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:21 积分:250 威望:0 精华:0 注册:2012/2/8 13:37:00
[求助]定义定长字符串问题?在线等  发帖心情 Post By:2012/2/23 16:22:00 [显示全部帖子]

我在窗口的afterload时间中定义一个定长字符串
Dim data32 As New VB6.FixedLengthString(32)
保存时提示错误   未编译错误:为定义类型VB6.FixedLengthString

在外部引用中添加了Microsoft.VisualBasic.Compatibility的引用

急!恳请各位大侠帮忙解决!

 回到顶部
帅哥哟,离线,有人找我吗?
xingzy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:21 积分:250 威望:0 精华:0 注册:2012/2/8 13:37:00
  发帖心情 Post By:2012/2/23 16:50:00 [显示全部帖子]

用这个试过了,不行啊。
我在全局代码中Declare Function rf_HL_read Lib "mwhrf_bj.dll" (ByVal icdev As Integer, ByVal mode As Short, ByVal Adr As Short, ByRef Snr As Integer, ByVal sdata As String, ByRef ssnr As Integer) As Short
在窗口的afterload时间中定义字符串data32
Dim data32 As New VB6.FixedLengthString(32)就是为了接收  rf_HL_read 返回的数据,使用 Dim s As new StringBuilder(32)没有返回结果


 回到顶部
帅哥哟,离线,有人找我吗?
xingzy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:21 积分:250 威望:0 精华:0 注册:2012/2/8 13:37:00
  发帖心情 Post By:2012/2/23 17:02:00 [显示全部帖子]

使用了 .ToString,仍然没有,在vb.net 中 Dim data32 As New VB6.FixedLengthString(32),调用  rf_HL_read 后使用data32.value就可以了,在狐表中,为什么就不能 Dim data32 As New VB6.FixedLengthString(32)这样呢

 回到顶部
帅哥哟,离线,有人找我吗?
xingzy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:21 积分:250 威望:0 精华:0 注册:2012/2/8 13:37:00
  发帖心情 Post By:2012/2/23 17:44:00 [显示全部帖子]

谢谢狐狸爸爸!
我是Dim s As New VB6.FixedLengthString(32)出错,用您的这个 Dim s As New Microsoft.VisualBasic.Compatibility.VB6.FixedLengthString(32)应该是没有问题了


 回到顶部