乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 140|回复: 8

VBA中等效LSP成员?

[复制链接]
664

1

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
5
发表于 2007-10-23 12:24:03 | 显示全部楼层 |阅读模式
VBA中是否有与LSPs成员函数等效的函数 我想我看到了一些东西(内置函数或单独函数),但我可以#039;不记得它在哪里或是什么#039;s被称为 我也有一种奇怪的感觉,我'我以前发布过这个(在这里或其他NG)&nbsp
谢谢。
回复

使用道具 举报

0

主题

8

帖子

6

银币

初来乍到

Rank: 1

铜币
11
发表于 2007-10-23 12:36:35 | 显示全部楼层
您可以使用集合或字典复制功能,具体取决于特定用途/需要。
回复

使用道具 举报

0

主题

13

帖子

6

银币

初来乍到

Rank: 1

铜币
13
发表于 2007-10-23 12:45:17 | 显示全部楼层
试试这个
  1. Option Explicit
  2. Function IsMember(source As Variant, itm As Variant) As Boolean
  3.     Dim idx As Variant
  4.         On Error GoTo Err_Control
  5.         For Each idx In source
  6.             If (idx  itm) Then
  7.                 IsMember = False
  8.                 Else
  9.                 IsMember = True
  10.                 Exit For
  11.             End If
  12.         Next
  13.         Exit Function
  14. Err_Control:
  15. IsMember = False
  16. End Function

~&039;J#039~
回复

使用道具 举报

0

主题

9

帖子

4

银币

初来乍到

Rank: 1

铜币
11
发表于 2007-10-23 12:46:56 | 显示全部楼层
变体,akkkk,我的眼睛
(对不起,胖子,不是变体的拥护者)
回复

使用道具 举报

0

主题

12

帖子

5

银币

初来乍到

Rank: 1

铜币
15
发表于 2007-10-23 13:13:57 | 显示全部楼层
我不知道't喜欢#039;我也是,但我能做什么
干杯;J#039~
回复

使用道具 举报

0

主题

5

帖子

3

银币

初来乍到

Rank: 1

铜币
8
发表于 2007-10-29 07:46:40 | 显示全部楼层
如果此代码为't将驻留在dll中和/或直接与LISP I don#039交换;我不理解当显式类型应该占主导地位时为什么要使用变体。我错过什么了吗
换言之,正如我所理解的,这个问题是;模仿LISP的等效VB技术是什么;s成员函数",不是“;如何将列表传递给VB并让它执行成员类型查询&QUOTE
可能是我,靠睡眠的碎屑生存。
回复

使用道具 举报

0

主题

7

帖子

3

银币

初来乍到

Rank: 1

铜币
7
发表于 2007-10-29 07:56:59 | 显示全部楼层
啊,我明白了。对不起,我的错。在这种情况下,我没有答案;J#039~
回复

使用道具 举报

0

主题

5

帖子

4

银币

初来乍到

Rank: 1

铜币
9
发表于 2007-10-29 09:03:39 | 显示全部楼层
不用担心,我的朋友。就像我说的,有#039;这是一个很好的机会;我误解了意图,所以可能是#039;我们最好拭目以待,看看原始海报是否澄清。
回复

使用道具 举报

0

主题

9

帖子

5

银币

初来乍到

Rank: 1

铜币
9
发表于 2007-10-29 09:20:20 | 显示全部楼层
谢谢迈克尔,
我想他正忙于自己的工作
问候,
Oleg~&039;J#039~
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-6 07:44 , Processed in 1.394660 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表