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

ntccharles

能不能给用户窗体(USERFORM)动态添加ProgressBar? 如何做?

谢谢!!!

[此贴子已经被作者于2008-1-22 17:04:08编辑过]

northwolves

Dim WithEvents Pr As MSComctlLib.ProgressBar
Private Sub UserForm_Click()
Set Pr = Me.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

ifhwfu

代码简单，但还看不懂。

ifhwfu

Dim WithEvents Pr As MSComctlLib.ProgressBar

这里出错，是不是还要引用什么东西？

编译错误：

用户定义类型未定义

[此贴子已经被作者于2008-1-8 20:18:10编辑过]

northwolves

QUOTE:

以下是引用ifhwfu在2008-1-6 12:27:01的发言：

Dim WithEvents Pr As MSComctlLib.ProgressBar

这里出错，是不是还要引用什么东西？

变异错误：

用户定义类型未定义

手工在用户窗体加载一个progressbar，对象浏览器查看msforms的对应控件的类名

northwolves

或者放到事件之内：

Private Sub UserForm_Click()
Dim pr As Object
Set pr = Me.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

ntccharles

QUOTE:

以下是引用northwolves在2008-1-6 10:26:42的发言：
Dim WithEvents Pr As MSComctlLib.ProgressBar
Private Sub UserForm_Click()
Set Pr = Me.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

谢谢狼班主. 代码可以用.

有几个进一步的问题:

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

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

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

再次谢谢啦....

northwolves

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

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

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

northwolves

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

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

这个能用, 试过了. 谢谢斑主.