这个例子能说明API函数在VBA中极不稳定吗？

老伙计2008

做了一个简单的窗体。调用窗体时，窗体的显示和功能一切正常。但是执行了子过程以后窗体的最大、最小化按钮就会消失。如果过程中，不更改窗体的Caption属性值，这个例子中的窗体的最大、最小化按钮就不会消失（但是其它例子偶尔有出现消失的时候，没准备好这个例子不上传了）。
这个例子能说明API函数在VBA中极不稳定吗？如果不能说明，那么说明了什么呢？

[ 本帖最后由 老伙计2008 于 2010-1-2 15:19 编辑 ]

赵国辉

也许是因为改变窗体caption相当于重绘了，可以在过程中重新调用一次UserForm_Initialize

老伙计2008

原帖由 赵国辉 于 2010-1-2 16:34 发表
也许是因为改变窗体caption相当于重绘了，可以在过程中重新调用一次UserForm_Initialize

重新调用窗体初始化，虽然能够显示最小、最大化按钮，可是这两个按钮是无效的。

stanleypan

Private Sub CommandButton1_Click()
Dim i&, j#, t!
    Me.Caption = "正在进行计算……"

    t = Timer
    For i = 1 To 100
        DoEvents
        If CheckBox1 Then j = j + i
        j = j + i
    Next
    MsgBox "和=" & j & "    用时" & Timer - t & "秒   "
    Me.Caption = "极限分析"
    '---重画--
    SetWindowLong hWnd, -16, &H16CF0000
    DrawMenuBar hWnd
End Sub

赵国辉

的确不行，再顶，抓空再看看
元旦一直在加班................

joforn

应该是VBA窗体在重绘标题栏时自动又重新设置的了窗体的外观样式。

joforn

改成这样好像就可以了，不过修改Caption就得修改一次窗体样式也是挺烦的……

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     Dim i&, j#, t!
   
4.     Me.Caption = "正在进行计算……"
   
5.     UserForm_Initialize
   
6.     t = Timer
   
7.     For i = 1 To 100
   
8.         DoEvents
   
9.         If CheckBox1 Then j = j + i
   
10.     Next
    
11.     MsgBox "和=" & j & "    用时" & Timer - t & "秒   "
    
12.     Me.Caption = "极限分析"
    
13.    
    
14.     UserForm_Initialize
    
15. End Sub
    

复制代码

赵国辉

原帖由 stanleypan 于 2010-1-3 18:28 发表
Private Sub CommandButton1_Click()
Dim i&, j#, t!
    Me.Caption = "正在进行计算……"

    t = Timer
    For i = 1 To 100
        DoEvents
        If CheckBox1 Then j = j + i
        j = j + i ...

看着有点迷茫............

老伙计2008

需要重画2次，不然在计算过程中仍然看不到，最小、最大化按钮
Private Sub CommandButton1_Click()
Dim i&, j#, t!
    Me.Caption = "正在进行计算……"

    '---重画--
    SetWindowLong hWnd, -16, &H16CF0000
    DrawMenuBar hWnd
    t = Timer
    For i = 1 To 100000
        DoEvents
        If CheckBox1 Then j = j + i
        j = j + i
    Next
    MsgBox "和=" & j & "    用时" & Timer - t & "秒   "
    Me.Caption = "极限分析"
    '---重画--
    SetWindowLong hWnd, -16, &H16CF0000
    DrawMenuBar hWnd
End Sub
从上面这个问题来看，确实是重绘标题栏时自动又重新设置的了窗体的外观样式。

可是另外遇到过：本来设置了关闭按钮在运行时失效。可是在强循环时，会出现暂时无响应，这时本来失效的关闭按钮会自动变为有效的，很可怕，不知道什么原因。这个例子暂时找不到了