我做了一个简单的控件,想把它动态加入窗体并显示。
可是加进去以后却不知道怎么把它显示出来,怎么办?Dim newCon withevents as
Private Sub Command2_Click()
Set NewCon = Controls.Add("MyProj.UserCon", "ConNew", Picture1)
End Sub
没有显示,而且我也不知道怎么定坐标什么的,求救中。
可是加进去以后却不知道怎么把它显示出来,怎么办?Dim newCon withevents as
Private Sub Command2_Click()
Set NewCon = Controls.Add("MyProj.UserCon", "ConNew", Picture1)
End Sub
没有显示,而且我也不知道怎么定坐标什么的,求救中。
解决方案 »
- 如何控制登录窗体先于MDI中的主窗体显示
- 能不能用vb6编写一个自动弹出窗口?
- 有没有人遇到过定时器不执行里面的代码的现象?
- 问两个简单问题:1、vb导出excel office版本问题 2、activereport报表内容能自动回行吗?
- 画图的嵌入和图片上传
- vb报表页小计
- 在VB如何执行CHM帮助文件?急,在线等待!
- 关于button丢失的问题!请各位帮忙看看!
- 喇叭箱前面的网罩发霉,可以用 VB 程序去除吗?
- Animation控件怎样播放音乐,可以播放什么样的格式?
- 使用flash控件,在ShockwaveFlash1_FSCommand事件中使用unload me退出vb环境?
- 有关datacombo??求助
Load UserControl(UserControl.Count)
'设置UserControl的属性
UserControl(UserControl.Count - 1).Top =
UserControl(UserControl.Count - 1).Left =
UserControl(UserControl.Count - 1).Width =
UserControl(UserControl.Count - 1).Height = UserControl(UserControl.Count - 1).Visible = True
UserControl(UserControl.Count - 1).Container = PictureBox1
你可以说清楚一点吗?
窗体上放一个COMMAND按钮,假定命名为cmd,将index设置成0,visible=False
控制的核心的代码是:
For i = 1 to 按钮总数
Load cmd(i)
cmd(i).Caption = 你指定的按钮名称
cmd(i).visible = True
Next i
特别的,在循环结束以后,你的程序应该自动根据你的要求对cmd的TOP,LEFT属性
进行重排