ttthhh_hb 发表于 2015-4-2 22:23:20

请教vlax.cls中一个过程的参数用法

vlax.cls 中有一个过程如下：
Public Sub SetLispSymbol(symbolName As String, value)
    Dim sym As Object, ret, symValue   
    symValue = value
    Set sym = VLF.Item("read").funcall(symbolName)
    ret = VLF.Item("set").funcall(sym, symValue)
    EvalLispExpression "(defun translate-variant (data) (cond ((= (type data) 'variant) (translate-variant (vlax-variant-value data))) ((= (type data) 'safearray) (mapcar 'translate-variant (vlax-safearray->list data))) (t data)))"
    EvalLispExpression "(setq " & symbolName & "(translate-variant " & symbolName & "))"
    EvalLispExpression "(setq translate-variant nil)"
End Sub

我对VB不是很熟，想请问下SetLispSymbol(symbolName As String, value) 中第二个参数value是什么含义，难道不用声明类型的吗？


雪山飞狐_lzh 发表于 2015-4-3 07:44:18

默认变体

ttthhh_hb 发表于 2015-4-3 09:38:46

谢谢版主指教！我想试着把它翻译成Delphi语言。

zzyong00 发表于 2015-4-3 13:40:30

ttthhh_hb 发表于 2015-4-3 09:38 static/image/common/back.gif
谢谢版主指教！我想试着把它翻译成Delphi语言。

有理想，现在很少有人用dehpi了吧

ttthhh_hb 发表于 2015-4-3 14:44:17

本帖最后由 ttthhh_hb 于 2015-4-3 14:45 编辑

十几年前接触的Delphi语言，当时觉得好用，但没学精，偶尔用用。
页: [1]
查看完整版本: 请教vlax.cls中一个过程的参数用法