资源大小： 2KB
发布时间： 2009-08-14
文件格式： rar
下载次数： 0
分享到：

下载地址：

下载地址1
（本站为飞网专业下载站，域名：down.cfei.net）

资源简介：

VB内嵌控件的使用，Private WithEvents mobjTest As UserControl1Private mobjCtl As ControlPrivate Sub Command1_Click() Call mobjTest.TestEnd SubPrivate Sub Form_Load() Set mobjCtl = Me.Controls.Add("工程1.usercontrol1", "ctl1") mobjCtl.Move 120, 120 mobjCtl.Visible = True Set mobjTest = mobjCtl' MsgBox mobjTest.LeftEnd SubPrivate Sub mobjTest_Hit() MsgBox "哼，想杀我，问问我手上的家伙答应不答应吧！" mobjTest.Dead = TrueEnd Sub


飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。