2009年9月16日 星期三

在Form_load事件中關閉表單

Q: 在Form_load事件中關閉表單,會造成程式錯誤,該如何解決?

A: 利用 Timer,在 Timer.Tick 事件中關閉表單,程式如下:

' close form since it cannot call me.close in form_load
Private WithEvents Timer1 As New Timer
Private Sub Timer1_Timer() Handles Timer1.Tick
Me.Close()
End Sub

Private Sub Form_Load(ByVal sender, ByVal e As System.EventArgs) Handles Me.Load
MsgBox(objTEJErrorMessage.GetLocalString("EA009_NoAccessRight").ToString)
Timer1.Interval = 100
Timer1.Enabled = True
End Sub