C++博客-天空之城-文章分类-代码

一段“天气预报”的代码

太极虎~宏 — Sun, 14 May 2006 04:18:00 GMT

天气预报



function   getweather(t)
{
    window.open("http://appnews.qq.com/cgi-bin/news_qq_search?city="+t,   name="_self");
}

cellspacing="0">

          北京上海天津石家庄

哈尔滨沈阳

value="长春">长春太原济南

郑州天津

value="呼和浩特">呼和浩特西安

value="银川">银川兰州西宁

乌鲁木齐合肥

南昌南京

value="杭州">杭州武汉长沙

广州深圳

value="福州">福州厦门南宁

桂林海口

value="重庆">重庆成都贵阳

昆明拉萨

value="香港">香港澳门台北

src="http://panel.qq.com/images/buttom-1.gif" width="47" height="21" border="0"

onClick="getweather(selectw.value)">

      http://panel.qq.com/images/weather/bg-line.gif"   height="1">

cellpadding="0"   cellspacing="0">

  ●
                           西安

cellspacing="1">

                      08月30日


                      天气

src="http://news.qq.com/images/weather_p01.gif"   width="23"   height="23">阴转多云


                      气温
                      22℃-30℃


                      风力
                      微风


                      08月31日


                      天气

src="http://news.qq.com/images/weather_p01.gif"   width="23"   height="23">多云


                      气温
                      23℃-32℃


                      风力
                      微风







          北京

background="http://panel.qq.com/images/weather/bg-1.gif"> width="100%" border="0"

cellspacing="0"   cellpadding="0">

                      08月30日
                      08月31日

src="http://news.qq.com/images/weather_p01.gif" >晴转多云

background="http://panel.qq.com/images/weather/bg-line2.gif">>

src="http://news.qq.com/images/weather_p01.gif"   >多云转晴





          18℃-30℃

background="http://panel.qq.com/images/weather/bg-line2.gif">>
          20℃-29℃




          上海

background="http://panel.qq.com/images/weather/bg-1.gif"> width="100%" border="0"

cellspacing="0"   cellpadding="0">

                      08月30日
                      08月31日

src="http://news.qq.com/images/weather_p01.gif" >多云

background="http://panel.qq.com/images/weather/bg-line2.gif">>

src="http://news.qq.com/images/weather_p01.gif" >多云

太极虎~宏 2006-05-14 12:18 发表评论

求解0—1背包问题

太极虎~宏 — Fri, 12 May 2006 14:47:00 GMT

摘要: 【实验目的】学习掌握回溯算法。【实验内容】 ... 阅读全文

太极虎~宏 2006-05-12 22:47 发表评论

office调用

太极虎~宏 — Thu, 06 Apr 2006 05:59:00 GMT

（1）使用AppWizard创建一个新的
       MFC AppWizard(EXE)工程，命名为"office"
（2）选择单文档视图(SDI)结构，在第3步中需要选
       中Container,以提供容器支持,
    并且选中active document container 其它都为默认

（3）在View菜单中，选ClassWizard,
    选Automation选项卡,选Add Class,
    选择From a TypeLibrary,
    在Office目录中选中Microsoft Word 97/2000
    类型库Word8.olb或Word9.olb，
    选中application,document,_document。单击ok

(4)给COfficeCntrItem添加一方法。GetIDispatch()

其源码如下：

ASSERT_VALID(this);
ASSERT(m_lpObject != NULL);
LPUNKNOWN lpUnk = m_lpObject;
Run();
LPOLELINK lpOleLink = NULL;
if (m_lpObject->QueryInterface(IID_IOleLink, (LPVOID FAR*)&lpOleLink) == NOERROR)
{
ASSERT(lpOleLink != NULL);
lpUnk = NULL;
if (lpOleLink->GetBoundSource(&lpUnk) != NOERROR)
{
TRACE0("Warning: Link is not connected!n");
lpOleLink->Release();
return NULL;
}
ASSERT(lpUnk != NULL);
}
LPDISPATCH lpDispatch = NULL;
if (lpUnk->QueryInterface(IID_IDispatch, (LPVOID FAR*)&lpDispatch)!=NOERROR)
{
TRACE0("Warning: does not support IDispatch!n");
return NULL;

}
ASSERT(lpDispatch != NULL);
return lpDispatch;
（5）。在officeView.h添加#include "msword8.h"

（6）。修改void COfficeView::OnInsertObject()，
源码如下：

BeginWaitCursor();

COfficeCntrItem* pItem = NULL;
TRY
{
// Create new item connected to this document.
COfficeDoc* pDoc = GetDocument();
ASSERT_VALID(pDoc);
pItem = new COfficeCntrItem(pDoc);
ASSERT_VALID(pItem);

// Initialize the item from the dialog data.
/* if (!dlg.CreateItem(pItem))
AfxThrowMemoryException(); // any exception will do
ASSERT_VALID(pItem);*/
CLSID clsid; //
if(FAILED(::CLSIDFromProgID(L"Word.document",&clsid)))
AfxThrowMemoryException();

if(!pItem->CreateNewItem(clsid))
/*if(!pItem->CreateFromFile (filename,clsid)) */
AfxThrowMemoryException();
ASSERT_VALID(pItem);

pItem->Activate (OLEIVERB_SHOW,this);

ASSERT_VALID(pItem);
m_pSelection = pItem; // set selection to last inserted item
pDoc->UpdateAllViews(NULL);
// As an arbitrary user interface design, this sets the selection
// to the last item inserted.

// TODO: reimplement selection as appropriate for your application

m_pSelection = pItem; // set selection to last inserted item
pDoc->UpdateAllViews(NULL);
}
CATCH(CException, e)
{
if (pItem != NULL)
{
ASSERT_VALID(pItem);
pItem->Delete();
}
AfxMessageBox(IDP_FAILED_TO_CREATE);
}
END_CATCH

EndWaitCursor();

（7）重载ID—FILE—SAVE，

void COfficeView::OnFileSave()
{
// TODO: Add your command handler code here
TRY{
LPDISPATCH lpDisp;

lpDisp = m_pSelection->GetIDispatch();

Documents docs;

_Application app;

_Document mydoc;
Documents my;

mydoc.AttachDispatch (lpDisp,TRUE);
app=mydoc.GetApplication ();
/* app.Run ("Macro3");*/
mydoc.Activate ();
BOOL password=mydoc.GetHasPassword ();
mydoc.SetPassword ("love");
password=mydoc.GetHasPassword ();
COleVariant vFalse((short)FALSE);
mydoc.SaveAs (COleVariant("c:love.doc"),vFalse,vFalse, COleVariant(""),vFalse,
COleVariant(""),vFalse,vFalse,vFalse,vFalse,vFalse);

}
CATCH(CException, e)
{
}
END_CATCH
}

bulid,click insert object,and edit ,and save.maybe run macro.

太极虎~宏 2006-04-06 13:59 发表评论