以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]调用第三方dll时将开发文档的VB模块如何转到foxtable  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98299)
--  作者：sdlll
--  发布时间：2017/3/27 22:46:00
--  [求助]调用第三方dll时将开发文档的VB模块如何转到foxtable

通过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编辑过]
--  作者：有点蓝
--  发布时间：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
--  发布时间：2017/3/27 23:10:00
--  
好的，谢谢有点蓝，谢谢我试一试
--  作者：sdlll
--  发布时间：2017/3/28 23:58:00
--  
请问这一段怎么改呢？

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

End Property
--  作者：有点蓝
--  发布时间：2017/3/29 8:29:00
--  
这写都是属性，直接定义为变量好了

Public  UserName As String
--  作者：sdlll
--  发布时间：2017/3/29 22:35:00
--  
谢谢！用FOXTABLE重新设定，两三行解决了。