// 显示一个空白网页
m_ie.Navigate2( &CComVariant(_T("about:blank")),NULL,NULL,NULL,NULL);
// 得到 IHTMLDocument2 指针
CComPtr< IDispatch >spDoc(m_ie.GetDocument());
// 得到 IPersistStreamInit 指针
CComQIPtr< IPersistStreamInit, &IID_IPersistStreamInit >spPSI( spDoc );
// 申请内存,复制 HTML 字符串
LPTSTR lpMem = (LPTSTR)::GlobalAlloc( GPTR, ::lstrlen( lpHtml )+1 );
lstrcpy( lpMem, "xxx xxx" );
// 转换内存为流对象指针
CComPtr< IStream >spStream;
CreateStreamOnHGlobal( lpMem, TRUE, &spStream );
// 初始化后,装载显示
spPSI->InitNew();
spPSI->Load( spStream );
......
/////////////////////////////////////////////////////////////////////////////
//
// HTML
//
HTML_TOWord HTML DISCARDABLE "res//ToWord.htm" // 这两个是HTML文件,可以引入
HTML_DLG HTML DISCARDABLE "res//html_dlg.htm"
~SEND_R1_C1.GIF HTML DISCARDABLE "res//~Send_r1_c1.gif" // 下面的是GIF文件,需要手工加入
~SEND_R1_C2.GIF HTML DISCARDABLE "res//~Send_r1_c2.gif"
LOGO.GIF HTML DISCARDABLE "res//Logo.gif"
SEND_R1_C1.GIF HTML DISCARDABLE "res//Send_r1_c1.gif"
SEND_R1_C2.GIF HTML DISCARDABLE "res//Send_r1_c2.gif"
SPACER.GIF HTML DISCARDABLE "res//spacer.gif"
#endif // Chinese (P.R.C.) resources
/////////////////////////////////////////////////////////////////////////////
......
HRESULT ShowHTMLDialogEx( HWND hwndParent,
IMoniker *pMk,
DWORD dwDialogFlags,
VARIANT *pvarArgIn,
WCHAR *pchOptions,
VARIANT *pvarArgOut
);
On Error Resume Next
Set wordapp=CreateObject("Word.application") ''''运行 MS WORD
if err<>0 then
MsgBox("没有安装 MS WORD")
else
wordapp.visible = true ''''显示WORD界面
wordapp.Documents.Add "",false, 0 ''''新增一个空文档
wordapp.Selection.TypeText window.dialogArguments ''''键入传递进来的文本
end if
window.close '''' 关闭
更多内容请看浏览器使用技巧专题,或新闻热点
疑难解答