全部
Ada助手

vb有没有这样的函数？

gh188 2003-10-08 02:11:14

vb有没有这样的函数？
根据数组名字符串返回数组变量的值，如下代码：

dim a(1 to 5) as integer
dim b as string
dim i as integer

for i=1 to 5
a(i)=i
next

for i=1 to 5
b="a(" & i & ")"
msgbox XXXX(b) ‘用该函数
next

执行后屏幕依次显示1，2，3，4，5。

...全文

给本帖投票

用AI写文章

VB中调用dll后，是否需要释放dll,如何释放>>

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

pigsanddogs 2003-10-10

打赏
举报

dim a(1 to 5) as string
dim i as integer

for i=1 to 5
a(i)=i
next

msgbox join(a, " ") '用该函数

执行后屏幕依次显示1，2，3，4，5。

flc 2003-10-10

打赏
举报

学习

道素 2003-10-09

打赏
举报

需要注意
EbExecuteLine 只能用在设计模式
如果运行时可以使用microsoft script control使用的程序支持vbscript

northwolves 2003-10-09

打赏
举报

你需要的功能可以这样实现：
Dim i As Integer
Dim a(1 To 5) As String
Dim b(1 To 5) As String
Private Sub Command1_Click()
For i = 1 To 5
MsgBox element(a, i)
Next
End Sub

Private Sub Command2_Click()

For i = 1 To 5
MsgBox element(b, i)
Next

End Sub

Private Sub Form_Load()

For i = 1 To 5
a(i) = i & "***"
b(i) = "***" & i
Next

End Sub
Function element(ByVal x As Variant, i As Integer) As String
element = x(i)
End Function

Gelim 2003-10-08

打赏
举报

真的很少用！帮你up!

MSSQL 2003-10-08

打赏
举报

用EbExecuteLine这个函数就完全能够实现了。

gh188 2003-10-08

打赏
举报

Collection?

老熊宝宝 2003-10-08

打赏
举报

呵呵，有这样做的必要吗？
如果要这样，就用Collection吧。

zjcxc 2003-10-08

打赏
举报

没有.

AndyZhang_ 2003-10-08

打赏
举报

我没明白是什么意思

射天狼 2003-10-08

打赏
举报

Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Sub Command1_Click()
ExecuteLine "msgbox (1+2)*3/4"
ExecuteLine "dim a as integer"
ExecuteLine "a = 10"
ExecuteLine "Print a"
ExecuteLine "form2.show"
End Sub

看看这个能不能达到你的要求~~