fram1中的按钮名称为“甲”，“乙”。点击后，当前项目=“甲”，或“乙”

Select Case Index
Case 1
   当前项目 = "甲"
Case 2
   当前项目 = "乙"
  End Select

fram2中有“甲＿lable","乙＿label"等控件，按钮2点击后，将相应lable的caption打印到picturebox上。

按钮2代码：picture1.print.fram2.当前项目＿lable.caption

在模块中已写有：Public 当前项目 As String

提示未找到方法或数据成员。请教各位，先谢谢了。

使用
callbyname
这个函数。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
CallByName 函数

执行一个对象的方法，或者设置或返回一个对象的属性。
语法

CallByName(object, procedurename, calltype,[arguments()])

CallByName 函数的语法有以下部分：

部分 描述
object 必需的；变体型（对象）。函数将要执行的对象的名称。
procedurename 必需的；变体型（字符串）。一个包含该对象的属性名称或者方法名称的字符串表达式。
calltype 必需的；常数。一个 vbCallType 类型的常数，代表正在被调用的过程的类型。
arguments() 可选的：变体型（数组）。


说明

CallByName 函数用于获取或者设置一个属性，或者在运行时使用一个字符串名称来调用一个方法。

在下面的例子中，第一行使用 CallByName 来设置一个文本框的 MousePointer 属性，第二行得到 MousePointer 属性的值，第三行调用 Move 方法来移动文本框：

CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
以下代码测试能用。VB6+WIN7。
Print CallByName(Form1, "甲＿lable", VbGet)

print后面多了个点

回 3楼：

真是没注意去看他的代码。
只看了标题。