502647092
/
LoadFirstPic
mirror of https://e.coding.net/circlecloud/LoadFirstPic.git
1
0
Fork 0
Code Releases Activity

update file... 

Signed-off-by: j502647092 <jtb1@163.com>
master
j502647092 2015-06-12 00:11:46 +08:00
parent 32c498db7c
commit 174b8c49af
2 changed files with 7 additions and 273 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

270
webb.txt
View File

@ -1,4 +1,4 @@
1.获取WebBrowser加载网页的内容
1.获取WebBrowser加载网页的内容
WebBrowser1.Document.getElementById("kw").Value = "VB编程"
@ -137,6 +137,7 @@ Headers As Variant, _
Cancel As Boolean)
If TypeName(pDisp) = "WebBrowser" And Headers = "" Then
pDisp.Stop
@ -316,323 +317,64 @@ LPUNKNOWN lpUnknownDC = NULL;
lpUnknown = m_webBrowser.GetControlUnknown();
ASSERT(lpUnknown);
if (lpUnknown)
{
// Get the pointer to the IUnknown interface of the WebBrowser
// control being hosted. The pointer to the IUnknown returned from
// GetControlUnknown is not the pointer to the IUnknown of the
// WebBrowser control. It's actually a pointer to the IOleObject.
//
hr = lpUnknown->QueryInterface(IID_IUnknown,
(LPVOID*)&lpUnknownWB);
ASSERT(SUCCEEDED(hr));
if (FAILED(hr))
return;
// Get the pointer to the IUnknown of the object that fired this
// event.
//
hr = lpDispatch->QueryInterface(IID_IUnknown,
(LPVOID*)&lpUnknownDC);
ASSERT(SUCCEEDED(hr));
if (SUCCEEDED(hr) && lpUnknownWB == lpUnknownDC)
{
// The document has finished loading.
//
MessageBox("The document has finished loading.");
}
if (lpUnknownWB)
lpUnknownWB->Release();
if (lpUnknownDC)
lpUnknownDC->Release();
}
}
@ -798,10 +540,6 @@ m_dlgNewWB->Create(IDD_MYDLG_DIALOG);
记住当你完成打开的新对话框后删除（delete） m_dlgNewWB . 且不要在CMyDlg::OnInitDialog 方法中导航, 因为这样代码将不会工作.
ProgressChange
ProgressChange 事件通告你的应用程序下在操作状态已经更新. ProgressChange 有两个参数:
@ -813,8 +551,4 @@ ProgressMax. 最大进度值
事件发生序列
下图展示了IE的事件发生序列.但这仅仅为不包含帧的普通网页浏览. (没有包含诸如 ProgressChange , CommandStateChange , OnToolBar , 等等事件.)不是所有事件都会被激发. 但是 BeforeNavigate2 和DocumentComplete 每次浏览都会被激发.
Figure 7-5. The sequence of events fired by the WebBrowser control during a typical navigation.

10
首图导出工具.vbw
View File

@ -1,5 +1,5 @@
Frm_Main = 0, 0, 984, 374, Z, 0, 0, 918, 535, C
TzDownload = 22, 22, 1006, 396, , 75, 75, 961, 524, C
TzListBox = 88, 88, 1072, 462, C, 22, 22, 940, 557, C
Frm_Download = 174, 51, 1224, 550, , 44, 44, 1028, 418, C
TzProgressBar = 88, 88, 1139, 462, , 0, 0, 0, 0, C
Frm_Main = 0, 0, 984, 374, , 0, 0, 918, 535, C
TzDownload = 0, 0, 0, 0, C, 0, 0, 0, 0, C
TzListBox = 0, 0, 0, 0, C, 0, 0, 0, 0, C
Frm_Download = 0, 0, 0, 0, C, 0, 0, 0, 0, C
TzProgressBar = 0, 0, 0, 0, C, 0, 0, 0, 0, C