作者yauhh (哟)
看板Visual_Basic
标题Re: [VB6 ] Form的切换
时间Fri Sep 7 01:41:24 2012
只不过是要切换视窗,把另一个视窗隐藏而已,就想简单一点.
'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