重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
工程的启动界面你设成welcome.vb了吧,把它换成login.vb的窗口,从login.vb的窗口中调用welcome.vb,然后这个me.close()应该就能好使了
大宁网站建设公司创新互联公司,大宁网站设计制作,有大型网站制作公司丰富经验。已为大宁上1000+提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱,请找那个售后服务好的大宁做网站的公司定做!
----------------------------------------------------
挺长时间没用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的焦点。