部分代碼如下:
創(chuàng)新互聯(lián)公司專注于海城企業(yè)網(wǎng)站建設(shè),自適應(yīng)網(wǎng)站建設(shè),商城網(wǎng)站建設(shè)。海城網(wǎng)站建設(shè)公司,為海城等地區(qū)提供建站服務(wù)。全流程按需制作,專業(yè)設(shè)計(jì),全程項(xiàng)目跟蹤,創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)
在窗口及WebBrowser創(chuàng)建完以后,寫此代碼:
WebBrowser.OnNewWindow2:=IE1NewWindow2;
給主窗口創(chuàng)建一個(gè)方法:
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;
【首發(fā)答案】
在NewWindow事件中,
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
Dim newUrl = WebBrowser1.StatusText
'Dim newUrl = WebBrowser1.Url.AbsoluteUri '是這個(gè)還是上面那個(gè)的我忘了..你都試試..
WebBrowser1.Navigate(newUrl) '加載新的網(wǎng)址
e.Cancel = True '使外部瀏覽器無(wú)法捕獲此事件
End Sub
這樣寫,每次點(diǎn)擊按鈕事件都會(huì)創(chuàng)建一個(gè)新的form。
你想要的效果是主窗口生命周期內(nèi),子form是一個(gè)。
根據(jù)這個(gè)你再考慮下怎么實(shí)現(xiàn)。比如主form加載時(shí)創(chuàng)建子form。點(diǎn)擊事件中去獲取子form的焦點(diǎn)。
webbrowser的newwindows中寫代碼
1 不彈出新窗口,但跳轉(zhuǎn)到新網(wǎng)頁(yè)
Set ppDisp = WebBrowser.Object
2 禁止彈出
cancel=true
If App.PrevInstance = True Then
End
End If
如果程序正在運(yùn)行,結(jié)束程序。
在模塊中加入每個(gè)窗口的標(biāo)題變量。
然后用if then 來(lái)判斷是否有相同窗口。
如果你事先不知道有哪些窗口的話,那你就用枚舉 FindWindow來(lái)查找子窗口句柄。再用SendMessage 獲得窗口標(biāo)題再進(jìn)行判斷。
登陸按鈕里寫:
private void button1_Click(object sender, EventArgs e)
{
Form2 fo1 = new Form2();
fo1.Show();
this.Visible=false;
}
第2個(gè)窗體的關(guān)閉事件里寫
private void Form2_FormClosed(object sender, FormClosedEventArgs e)
{
Application.Exit();
}
這樣就可以了
me.dispose(); 這個(gè)是釋放本對(duì)象的資源,,有時(shí)候直接把這個(gè)對(duì)象就清理了,,登陸窗體如果是入口窗體的話,,這么寫就等于Application.Exit();
直接關(guān)整個(gè)應(yīng)用程序了
插紅旗噢 我還去vs里敲了一下
文章標(biāo)題:vb.net打開新頁(yè)面,vb打開立即窗口
本文網(wǎng)址:http://chinadenli.net/article14/hdosge.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供云服務(wù)器、標(biāo)簽優(yōu)化、定制網(wǎng)站、微信公眾號(hào)、網(wǎng)站排名、網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)