// 顯示一個空白網頁
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 '''' 關閉
新聞熱點
疑難解答