for i=0 to 2 Image2(i).Picture = Me.Picturenextlabel1.caption=text1.text
菜单->外接程序管理器->vb6 activex控件接口向导 以这个为例:LABEL控件的CAPTION也由窗体的TEXTBOX的值决定然后点击activex控件接口向导,下一步,新建一个getcaption的属性,下一步 左边选择etcaption,右边控件选择label1,成员选择caption 这一步就是做映射,下一步,完成 生成许多代码测试工程,看到了吧 Private Sub Command1_Click() UserControl11.getcaption = Text1.Text End Sub
以这个为例:LABEL控件的CAPTION也由窗体的TEXTBOX的值决定然后点击activex控件接口向导,下一步,新建一个getcaption的属性,下一步
左边选择etcaption,右边控件选择label1,成员选择caption
这一步就是做映射,下一步,完成
生成许多代码测试工程,看到了吧
Private Sub Command1_Click()
UserControl11.getcaption = Text1.Text
End Sub