重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1、如果上一个窗体是程序的主窗体(默认是程序的第一个窗体),
成都创新互联坚持“要么做到,要么别承诺”的工作理念,服务领域包括:做网站、网站制作、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的西安网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
则不能关闭这个窗体,只能隐藏(Me.Hide())这个窗体,否则整
个程序就被关掉了。
2、如果上一个窗体不是程序的主窗体,可以用Me.Close()
关闭。
工程的启动界面你设成welcome.vb了吧,把它换成login.vb的窗口,从login.vb的窗口中调用welcome.vb,然后这个me.close()应该就能好使了
----------------------------------------------------
挺长时间没用VB.NET了,在你设置完启动界面为login后,进入login的代码处,在 Public Class Form1下敲入Sub New()也就是初始化。在那里面写入调用welcome的窗口程序
Dim frm as New welcome,
还要写一个判断
if frm.showDialog=Windows.Forms.DialogResult.Cancel
(里面随你以后工程需要自己添加)
end if
这样你在welcome里面用timer控制关闭的时候就可以写me.close()了。 不知道楼主明不明白......
部分代码如下:
在窗口及WebBrowser创建完以后,写此代码:
WebBrowser.OnNewWindow2:=IE1NewWindow2;
给主窗口创建一个方法:
procedure TBrowForm.IE1NewWindow2(Sender: TObject; var ppDisp: IDispatch;var Cancel: WordBool);
Var NewForm:TBrowForm;
begin
try
NewForm :=TPopBrowerForm.Create(application);
NewForm.WebBrowser.OnNewWindow2 :=IE1NewWindow2;//如果在窗口的Oncreate事件
//有此代码,此处就可以省略
ppDisp := NewForm.WebBrowser.Application;
NewForm.Show;
Cancel:=false;
except
end;
end;
这样写,每次点击按钮事件都会创建一个新的form。
你想要的效果是主窗口生命周期内,子form是一个。
根据这个你再考虑下怎么实现。比如主form加载时创建子form。点击事件中去获取子form的焦点。