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

ifhwfu

QUOTE:

以下是引用northwolves在2008-1-6 23:17:33的发言：

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

我太愚笨了，真不知道从过什么方法手工加载 progressbar 。

 

我的窗体里面应该什么手工加载  progressbar  ？

在 控件工具箱 那一个才是  progressbar  ？

是不是这个不是 VBA 里面的？

ifhwfu

这里是我的代码？

怎么编译错误？

ifhwfu

在 MSForms 库里面也找不到有   ProgressBar

[

 2 3 ]

ntccharles

QUOTE:

以下是引用BobPan在2008-1-8 17:53:08的发言：

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

谢谢，明白了。

ntccharles

QUOTE:

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

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

问题的现象是：

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

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

 

狼斑主：

我的附件出了什么问题？请提提意见，帮帮忙啊。。

ntccharles

QUOTE:

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

狼斑主：

我的附件出了什么问题？请提提意见，帮帮忙啊。。

再顶一下, 看看有没有能帮到我. 有没有人明白我的问题的关键所在......

northwolves

Sub addprogress(ByVal IDStr As String, ByVal objName As UserForm)
Dim addCtr As Control, i As Long, j As Long
j = Val(Right(IDStr, 1)) * 1000
Set addCtr = objName.Controls(IDStr).Controls.Add("Forms.Label.1", "lblRunStatus" & IDStr, True)
addCtr.Width = objName.Controls(IDStr).Width
Set addCtr = objName.Controls(IDStr).Controls.Add("MSComctlLib.ProgCtrl.2", "ProgressBar" & IDStr, True)
    With addCtr
        .Height = 18
        .Left = 10
        .Top = 30
        .Width = 160
        .Min = 0
        .Max = j
        .Visible = True
        DoEvents
        For i = 0 To j
            .Value = i
            objName.Controls("lblRunStatus" & IDStr).Caption = "It is running for No. " & i & " step....." & Int((i / j) * 100) & "%"
            DoEvents
        Next
   
    MsgBox "The operation completed!", vbOKOnly + vbExclamation, "Operation Finished"

    End With
       objName.Controls.Remove "lblRunStatus" & IDStr
      objName.Controls.Remove "ProgressBar" & IDStr
End Sub

 

 

Private Sub CommandButton1_Click()
addprogress "Frame1", UserForm1
End Sub

Private Sub CommandButton2_Click()
addprogress "Frame2", UserForm1
End Sub

northwolves

或者：

Sub addprogress(ByVal IDStr As String, ByVal objName As UserForm)
Dim addCtr As Control, i As Long, j As Long, id As Long
id = objName.Controls(IDStr).Controls.Count
With objName.Controls(IDStr).Controls.Add("MSComctlLib.ProgCtrl.2", "ProgressBar" & id, True)
        .Height = 18
        .Left = 10
        .Top = 18 * id
        .Width = objName.Controls(IDStr).Width
        .Min = 0
        .max = 100
        .Visible = True
        For i = 1 To 100
        For j = 1 To 1000000
        Next
            .Value = i
             DoEvents
        Next
        End With
      objName.Controls.Remove "ProgressBar" & id
End Sub

 

Private Sub CommandButton1_Click()
addprogress "Frame1", UserForm1
End Sub

Private Sub CommandButton2_Click()
addprogress "Frame2", UserForm1
End Sub

ntccharles

QUOTE:

以下是引用northwolves在2008-1-10 23:54:59的发言：

或者：

Sub addprogress(ByVal IDStr As String, ByVal objName As UserForm)
Dim addCtr As Control, i As Long, j As Long, id As Long
id = objName.Controls(IDStr).Controls.Count
With objName.Controls(IDStr).Controls.Add("MSComctlLib.ProgCtrl.2", "ProgressBar" & id, True)
        .Height = 18
        .Left = 10
        .Top = 18 * id
        .Width = objName.Controls(IDStr).Width
        .Min = 0
        .max = 100
        .Visible = True
        For i = 1 To 100
        For j = 1 To 1000000
        Next
            .Value = i
             DoEvents
        Next
        End With
      objName.Controls.Remove "ProgressBar" & id
End Sub

Private Sub CommandButton1_Click()
addprogress "Frame1", UserForm1
End Sub

Private Sub CommandButton2_Click()
addprogress "Frame2", UserForm1
End Sub

谢谢狼斑主，你的代码可用. 但你能不能明确提出我的代码的错误所在?

northwolves

谢谢狼斑主，你的代码可用. 但你能不能明确提出我的代码的错误所在?

------------------

你的代码添加的控件名称相同