能不能动态添加ProgressBar? (问题还未解决）

ntccharles

QUOTE:

以下是引用northwolves在2008-1-7 0:01:40的发言：

2) 如在同一个USERFORM中有两个FRAME --> frame1 (内有Button1) 和 frame2 (内有Button2) ,  想做一个共用的动态添加ProgressBar的子程序, 当分别按下不同的Button时,可在不同的Frame中添加ProgressBar.

Private Sub CommandButton1_Click()
Dim pr As Object
Set pr = Frame1.Controls.Add("MSComctlLib.ProgCtrl.2", "progressbar1", True)
pr.Width = Me.Width
pr.Height = 20
pr.Max = 1000
pr.Min = 0
pr.Value = 360
End Sub

Private Sub CommandButton2_Click()
Dim pr As Object
Set pr = Frame2.Controls.Add("MSComctlLib.ProgCtrl.2", "progressbar1", True)
pr.Width = Me.Width
pr.Height = 20
pr.Max = 1000
pr.Min = 0
pr.Value = 360
End Sub

这个不能用. 如果连续按Button1 和Button2, 会出严重错误, 导致EXECL退出.....

请狼斑主再帮忙.

ntccharles

QUOTE:

以下是引用northwolves在2008-1-7 0:01:40的发言：

1) 对于动态添加控件, 有什么资料可以查出不同的控件的"ProgID", 如 ProgressBar 的ID是 "MSComctlLib.ProgCttr.2"

http://www.google.cn/search?q=progid+progressbar

这是针对ProgressBar的google查询, 我的意思是, 有没有资料可以一次性查到一些比较常用的控件的ProgID, 如: Listview, Treeview, 等等.

northwolves

向工作表添加控件的同时录制宏可得到其PROGID。

northwolves

QUOTE:

以下是引用ntccharles在2008-1-7 0:16:28的发言：

这个不能用. 如果连续按Button1 和Button2, 会出严重错误, 导致EXECL退出.....

请狼斑主再帮忙.

不会吧？我这里运行没问题

BobPan

QUOTE:

以下是引用ntccharles在2008-1-7 0:16:28的发言：

这个不能用. 如果连续按Button1 和Button2, 会出严重错误, 导致EXECL退出.....

请狼斑主再帮忙.

本机测试也OK

ntccharles

QUOTE:

以下是引用northwolves在2008-1-7 0:42:21的发言：

不会吧？我这里运行没问题

我也觉得很奇怪．请参见附件．

问题的现象是：

不管怎样，两个FRAME中只有一个可以正常工作-->显示PROGRESSBAR的工作状态. 而另一个,只要一按BUTTON, EXECL就会发生错误而退出.

把发生错误的那个FRAME"删掉", 再在原地重做一个相同的FRAME, 这个FRAME就能正常工作, 而另一个FRAME就不能工作, 而且会发生错误而退出......

tTjyJbC2.rar (12.29 KB, 下载次数: 7)

2008-1-8 00:36 上传

点击文件名下载附件
能不能动态添加ProgressBar?

ntccharles

QUOTE:

以下是引用northwolves在2008-1-7 0:02:52的发言：

3) 如有几个不同的USERFORM, 想做一个共用的动态添加ProgressBar的子程序, 使不同的USERFORM都能调用.

模块：

Sub addprogress(ByVal fm As UserForm)
Dim pr As Object
Set pr = fm.Controls.Add("MSComctlLib.ProgCtrl.2", "progressbar1", True)
pr.Width = 200
pr.Height = 20
pr.Max = 1000
pr.Min = 0
pr.Value = 360
End Sub

窗体：

Private Sub CommandButton1_Click()
addprogress Me
End Sub

能说明一下子Dim WithEvents Pr As MSComctlLib.ProgressBar 和 Dim pr As Object 的不同吗? 我之前就是想在"模块"中加 Dim WithEvents Pr As MSComctlLib.ProgressBar 而发生了错误......

BobPan

QUOTE:

以下是引用ntccharles在2008-1-8 0:43:19的发言：

能说明一下子Dim WithEvents Pr As MSComctlLib.ProgressBar 和 Dim pr As Object 的不同吗? 我之前就是想在"模块"中加 Dim WithEvents Pr As MSComctlLib.ProgressBar 而发生了错误......

Dim WithEvents Pr As MSComctlLib.ProgressBar '这是类模块中的定义方式

ntccharles

QUOTE:

以下是引用BobPan在2008-1-8 9:14:12的发言：

Dim WithEvents Pr As MSComctlLib.ProgressBar '这是类模块中的定义方式

 能不能说明一下 Dim WithEvents Pr As MSComctlLib.ProgressBar 和 Dim pr As Object 在动态添加PROGRESSBAR时 (我的问题) 的不同之处?

BobPan

QUOTE:

以下是引用ntccharles在2008-1-8 15:51:15的发言：

 能不能说明一下 Dim WithEvents Pr As MSComctlLib.ProgressBar 和 Dim pr As Object 在动态添加PROGRESSBAR时 (我的问题) 的不同之处?

没有不同，只是用类模块（Dim WithEvents Pr As MSComctlLib.ProgressBar）可以使用进度条的事件，以做更多高级功能！