作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] Webbeowser开启新分页的问题。
时间Thu Mar 30 07:15:04 2006
拿以前做过的程式码来参考，另外，有颜色的是全域变数，请自行宣告。
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
1F：推 atenn:强，太强，受教了，谢谢。 03/30 08:39