为啥vb的Form_Resize在启动时不执行

为什么vb的Form_Resize在启动时不执行
代码

Private Sub Form_Load()
'代码
Debug.Print "Form_Load"
End Sub

Private Sub Form_Activate()
Debug.Print "Form_Activate"
End Sub

Private Sub Form_GotFocus()
Debug.Print "Form_GotFocus"
End Sub

Private Sub Form_Initialize()
Debug.Print "Form_Initialize"
End Sub

Private Sub Form_Paint()
Debug.Print "Form_Paint"
End Sub

Private Sub Form_Resize()
Debug.Print "Form_Resize"
End Sub

运行之后，窗体不显示，立即窗口中显示
Form_Initialize
Form_Load
后面应发生的Form_Resize事件不执行了，求这个的原因

Module1里有一个从网上拉下来的Sub,是不是这个有问题？

'等待过去多长时间，以毫秒计
Public Sub TimeDelay(DT As Long)
    Dim TT     As Long
    TT = GetTickCount()
    Do
        DoEvents
        If GetTickCount - TT < 0 Then TT = GetTickCount
        If gblnCancel = True Then Exit Do               '用户单击了取消
    Loop Until GetTickCount - TT >= DT
End Sub

[解决办法]
那肯定是你的 Form不需要 resize嘛。
你在 load 里加一句 me.move 或者 me.width = .... 肯定就 resize 了。
[解决办法]

引用:

代码

VB code
Private Sub Form_Load()
'代码
Debug.Print "Form_Load"
End Sub

Private Sub Form_Activate()
Debug.Print "Form_Activate"
End Sub

Private Sub Form_GotFocus()
Debug.Print "Form_Got……

运行结果：
Form_Initialize
Form_Load
Form_Resize
Form_Activate
Form_GotFocus
Form_Paint

注意，你的Form的BordStyle属性

查看更多 下一篇