您的位置：程序门 -> .net技术 -> vb.net



急急急，关于vb.net指针的问题


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


急急急，关于vb.net指针的问题
发表于：2007-04-27 17:29:19 楼主
属性原型：pagentsinworkgroupinfo（delphi)
类型：integer  
说明：   使用该属性时，应先强制转换成指针类型，指针指向类型为tdbccc_agent_workgroup_info的结构体数组，存储一个工作组所有座席的状态信息（不包括班长），在调用方法queryworkgroupstatus后可以和属性workgroupagentnum配合使用。  

举例：   以下代码访问第i个座席信息，i为0~workgroupagentnum-1：  

tdbccc_agent_workgroup_info（pointer（phone.pagentsinworkgroupinfo+i*sizeof（tdbccc_agent_workgroup_info))^);  

我用vb的方法：
      dim   mywork   as   tdbccc_agent_workgroup_info
                                        dim   myobj   as   gchandle
                                        dim   myt   as   intptr

                                        for   i   =   0   to   j   -   1

                                                myobj   =   gchandle.alloc（myphone.pagentsinworkgroupinfo   +   i   *   marshal.sizeof（mywork),   gchandletype.pinned)
                                                myt   =   myobj.addrofpinnedobject

                                                mywork   =   ctype（marshal.ptrtostructure（myt,   gettype（tdbccc_agent_workgroup_info)),   tdbccc_agent_workgroup_info)
                                                console.writeline（ "工号： "   +   mywork.usagentno.tostring   +   "电路号： "   +   mywork.usagentdsn.tostring   +   "状态： "   +   mywork.ucagentstatus.tostring)
                                                'console.writeline（myt.tostring)

                                        next

为什么我获取的mywork结构体值不对，是不是哪里出错了，请大家多多帮忙
发表于：2007-04-27 21:15:311楼 得分:0
估计强制指针转换出问题了
发表于：2007-04-28 08:51:112楼 得分:0
没有知道答案吗

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击