Foxtable(狐表)用户栏目专家坐堂 → [求助]调用第三方dll时将开发文档的VB模块如何转到foxtable


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

主题:[求助]调用第三方dll时将开发文档的VB模块如何转到foxtable

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


加好友 发短信
等级:幼狐 帖子:170 积分:1493 威望:0 精华:0 注册:2012/8/15 15:02:00
[求助]调用第三方dll时将开发文档的VB模块如何转到foxtable  发帖心情 Post By:2017/3/27 22:46:00 [只看该作者]


通过foxtable调用了其他dll 初步成功,但要获得其中的每个字符串属性(参数),需要按开发文档要求进行拆分,给的示例代码是VB的,请问如何转换为foxtable代码来实现?

部分代码如下:
Mpase.bas

Option Explicit
Private Const 'cC'--不加单引号发不上来
Private Const cUserName="UserName"
Private Const CuserID="UserID"
Private Const cDBMSName="DBMS Name"
Private Const cDBMSVersion="DBMS Version"

Private m_colParse As Collection
Private m_sParseString As String

Public Property Get PropsString() As String
 
 PropsString=m_sParseString

End Property

Public Property Get UserName () As String
 
 UserName=GetProperty(cUserName)

End Property

Public Property Get UserID() As String
 
 UserName=CInt(GetProperty(cUserID))

End Property

Public Property Get ConDBMSName () As String
 
 ConDBMSName=GetProperty(cDBMSName)

End Property

Public Property Get ConDBMSVersion () As String
 
 ConDBMSVersion=GetProperty(cDBMSVersion)

End Property
....
[此贴子已经被作者于2017/3/27 22:47:49编辑过]

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/27 22:55:00 [只看该作者]

类似:

Public m_sParseString As String

Public ReadOnly Property PropsString() As String
Get
Return m_sParseString
End Get
End Property


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


加好友 发短信
等级:幼狐 帖子:170 积分:1493 威望:0 精华:0 注册:2012/8/15 15:02:00
  发帖心情 Post By:2017/3/27 23:10:00 [只看该作者]

好的,谢谢有点蓝,谢谢我试一试

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


加好友 发短信
等级:幼狐 帖子:170 积分:1493 威望:0 精华:0 注册:2012/8/15 15:02:00
  发帖心情 Post By:2017/3/28 23:58:00 [只看该作者]

请问这一段怎么改呢?

Public Property Get UserName() As String
 
 UserName=GetProperty(cUserName)

End Property


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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/29 8:29:00 [只看该作者]

这写都是属性,直接定义为变量好了

Public  UserName As String

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


加好友 发短信
等级:幼狐 帖子:170 积分:1493 威望:0 精华:0 注册:2012/8/15 15:02:00
  发帖心情 Post By:2017/3/29 22:35:00 [只看该作者]

谢谢!用FOXTABLE重新设定,两三行解决了。

 回到顶部