为什么vb的Form_Resize在启动时不执行,该怎么解决

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

VB code

Private Sub Form_Load()'代码Debug.Print "Form_Load"End SubPrivate Sub Form_Activate()Debug.Print "Form_Activate"End SubPrivate Sub Form_GotFocus()Debug.Print "Form_GotFocus"End SubPrivate Sub Form_Initialize()Debug.Print "Form_Initialize"End SubPrivate Sub Form_Paint()Debug.Print "Form_Paint"End SubPrivate Sub Form_Resize()Debug.Print "Form_Resize"End Sub

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

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

VB code

'等待过去多长时间，以毫秒计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 >= DTEnd 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……

查看更多 下一篇