Re: [VB6 ] Webbeowser開啟新分頁的問題。
拿以前做過的程式碼來參考，另外，有顏色的是全域變數，請自行宣告。
Private Sub WebX_NewWindow2(ppDisp As Object, Cancel As Boolean)
On Error GoTo errProc
If sysEnd Then Cancel = True: Exit Sub
Set PopupWindow = New frmWeb2
Set ppDisp = PopupWindow.Webx.object
With PopupWindow
.Left = Me.Left: .Top = Me.Top
.Webx.RegisterAsBrowser = True
.Webx.Move 0, 0, .Webx.Width, .Webx.Height
DoEvents
End With
Exit Sub
errProc:
End Sub
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43
推
03/30 08:39, , 1F
03/30 08:39, 1F
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
