文件名称：VB内嵌控件的使用,
文件大小：2KB
文件格式：RAR
更新时间：2012-09-03 03:46:03
VB,内嵌控件
VB内嵌控件的使用， Private WithEvents mobjTest As UserControl1 Private mobjCtl As Control Private Sub Command1_Click() Call mobjTest.Test End Sub Private Sub Form_Load() Set mobjCtl = Me.Controls.Add("工程1.usercontrol1", "ctl1") mobjCtl.Move 120, 120 mobjCtl.Visible = True Set mobjTest = mobjCtl ' MsgBox mobjTest.Left End Sub Private Sub mobjTest_Hit() MsgBox "哼，想杀我，问问我手上的家伙答应不答应吧！" mobjTest.Dead = True End Sub
【文件预览】：
新建文件夹
----Form1.frm(1KB)
----工程1.vbp(704B)
----MSSCCPRJ.SCC(190B)
----UserControl1.ctl(1019B)
----工程1.vbw(96B)