大家帮帮我，我是菜鸟


public sub xyz（）
If x <= List.ListCount Then
x=x+1
end if
Call insert
end sub

Public Sub insert()
用什么语句可以取得上面x执行完if后的值
end sub

定义x为模块级别的变量……
或者全局类型

又是你，呵呵，我试试哈

那我直接就把执行x的函数变成public可以不？

Public Sub xyz（ByRef x As Integer）
If x <= List.ListCount Then
x=x+1
End if
Call insert
End sub

Public Sub insert()
Dim y As Integer
Call xyz(y)
Print y '//得到你要得结果
End sub

Public Sub xyz()
If x <= List.ListCount Then
x = x + 1
End If
Call insert(x)
End Sub

Public Sub insert(y As Integer)
Print y
End Sub

如果xyz是个普通的函数就可以
但如果xyz是个按钮的click事件呢？编译就说过程声明与同名事件或过程描述不匹配
这可怎么办啊？

两个都是控件的事件

就将x定义全局变量，或者模块级变量

[此贴子已经被作者于2007-9-14 15:24:03编辑过]

过程内的变量是不公开也是不可能公开的。可以尝试让别的变量公开然后进行修改。