| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]调用第三方dll时将开发文档的VB模块如何转到foxtable (http://www.foxtable.com/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重新设定，两三行解决了。 |