Re: [VB6 ] Form的切換

[yauhh (喲)]

只不過是要切換視窗,把另一個視窗隱藏而已,就想簡單一點.

'formbase.frm
private sub Cmdnew_Click()
    formadd.show
    formadd.setfocus
end sub

private sub Form_GotFocus()
    formadd.hide
end sub

'formadd.frm
private sub Form_GotFocus()
    formbase.hide
end sub

private sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    if UnloadMode = vbFormControlMenu then
        cancel = 1
        formbase.show
        formbase.setFocus
    end if
end sub

※ 引述《chrisjon (開車/旅遊)》之銘言：
: 目前設定formbase和formadd
: 現在想要當點選formbase上的新增按鈕後，出現formadd
: 之後把formbase隱藏(或避免佔記憶體直接釋放，之後再叫出來，但我不會^^")
: Private Sub Cmdnew_Click()
: '新增資料，叫出新增視窗
: Formadd.Show
: Formbase.Visible = False
: Formadd.SetFocus
: End Sub
: Formadd.SetFocus的用意在於
: 當出現Formadd後，搶走focus，之後如果結束新增或不小心關掉視窗
: 再用LostFocus來叫回Formbase
: Private Sub Cmdnew_LostFocus()
: '叫回基本視窗'
: Formbase.Visible = True
: End Sub
: 但執行下去卻變成Formbase不會消失，而且還搶走Focus
: 不知道是哪裡邏輯有問題呢?
: 在這裡先感謝先進的幫忙
: 另外再請教一下，有辦法關掉右上的 X 嗎?
: 或者當按下右上的 X ，一樣會跳出msgbox"確定"的訊息?

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 36.226.94.15