請問一下這個綜合方塊清單之單純下拉式的程式碼...

Question

Private Sub Combo1_Click()
Select Case Combo1.Text
Case ""
Exit Sub
Case "第一頁"
Form1.Show
Case "第二頁"
Form2.Show
Case "第三頁"
Form3.Show
End Select
Unload Me
End Sub
這是我之前問的問題的答案.....只是這個unload me 位置是不是有錯阿
因為想說利用單純下拉式COMBO這物件.....在執行的時候選擇其中一個項目 然後跳到該項目的FORM 然後原來的FORM就消失 可是剛利用上面那程式碼時
就出現錯誤了.....請問上面程式碼是不是有錯阿...

他出現執行階段錯誤"365"
在目前狀態下無法載出
然後按偵錯的時候 unload me 就變黃底了...

Answer 1

在目前狀態下無法載出 (錯誤代碼 365)
某些情況下，並不允許載出表單或表單中的控制項。此錯誤產生的原因及解決方法如下：

在表單的 Paint 事件中有 Unload 陳述式，或在具有 Paint 事件表單上之控制項的 Paint 事件中，有 Unload 陳述式。
從 Paint 事件中移除 Unload 陳述式。

在 ComboBox 的 Change、Click 或 DropDown 事件中有 Unload 陳述式。
從事件中移除 Unload 陳述式。

在 HScrollBar 或 VScrollBar 控制項的 Scroll 事件中有 Unload 陳述式。
從事件中移除 Unload 陳述式。

在 Data、Form、MDIForm 或 PictureBox 控制項的 Resize 事件中有 Unload 陳述式。
從事件中移除 Unload 陳述式。

在欲載出 MDI 子表單之 MDIForm 的 Resize 事件中，有 Unload 陳述式。
從事件中移除 Unload 陳述式。

在 Data 控制項的 RePosition 或 Validate 事件中有 Unload 陳述式。
從事件中移除 Unload 陳述式。

在 OLE Container 控制項的 ObjectMove 事件中有 Unload 陳述式。
從事件中移除 Unload 陳述式。

所以你應該下Form0.Hide比較適當

Answer 2

呵呵!上面那位大大已經說明了,忘記這個細節!真是誤人子弟!!
如果真的要Unload掉可用 API強制關掉它!!(最佳解答請給上面那位大大)
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10

Private Sub Combo1_Click()
Select Case Combo1.Text
Case ""
Exit Sub
Case "第一頁"
Form1.Show
Case "第二頁"
Form2.Show
Case "第三頁"
Form3.Show
End Select
PostMessage Me.hwnd, WM_CLOSE, 0, 0&
End Sub