模块与窗体之间传递的问题 比如说有n个标签,每一个标签都有一个控件数组,而且有相同的事件,将事件的代码写入了model中,现在要调用这些标签,这就涉及到如何引用这些标签,我是这样引用的eg.label(sn)(index),但是报错.不懂了,蒙了大侠指教 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我晕~~在前面加上窗体的名称,如form1.label(index).caption=XXXXX推荐还是写在本窗体的代码中吧, 如果非要在模块中调用的话可以在模块中或许可以用 SENDMESSAGE来间接调用 一般是不必要这样做的,可以写在窗体代码中 eg.label(sn)(index),但是报错.'-----------------------------当然会报错了.PUBLIC FUNCTION GETLAB(INDEX) AS STRING GETLAB=EG.LABEL1(INDEX).CAPTION END IF 在模块中:Public Function GETLAB(ByVal mForm As Object, ByVal Index As Long) As String GETLAB = mForm.Label1(Index).CaptionEnd Function 是这样的第几个label事先是不知道的就是说开始不知道是label1,要把1传递过去的,而且index也要传递过去的 做一个类似音量调整的东东 关于文字的宽度问题 有谁有VB6.0网络实时监控源码或者毕业设计可供下载啊? vba 如何实现表格的转换 在线求助!!ado连接oracle数据库报错 几个简单但让我奇怪的问题 系统打包问题 如何在应用程序中实现定期提示? 我问一个菜鸟级的问题 报表如何更新? 怎样在vb程序中使用脚本,如vbscript和javascript 40分
或许可以用 SENDMESSAGE来间接调用
一般是不必要这样做的,可以写在窗体代码中
'-----------------------------
当然会报错了.
PUBLIC FUNCTION GETLAB(INDEX) AS STRING
GETLAB=EG.LABEL1(INDEX).CAPTION
END IF
Public Function GETLAB(ByVal mForm As Object, ByVal Index As Long) As String
GETLAB = mForm.Label1(Index).Caption
End Function
第几个label事先是不知道的
就是说开始不知道是label1,要把1传递过去的,而且index也要传递过去的