在應用系統的設計中,有時要求在程序中自動調用Microsoft 應用程序,如Word或Excel 等來創建文檔或制作表格。在開發一個辦公系統時,就采用了這種方法。 設計環境: ①MicroSoft Visual FoxPro 5.0中文版; ②Windows 98中文操作系統; ③Microsoft (R)Word 97。 首先創建一個表單Form1,在Form1上新建一個命令按扭Command1,并設置Command1的Caption 為“自動創建Word文檔”。Command1的Click 過程包括下列命令 語句:c MessageTitle ='啟動窗' c MessageText ='啟動Microsoft (R) Word 97'nDialogType =0+64+0 nAnswer =MESSAGEBOX (c MessageText ,nDialogType ,c MessageTitle) filename ='99年工作計劃' public objwdoc nllocaleId =sys(3004) =sys(3006,1033) objWDdoc =crea("word .basic") objwddoc .appshow objWDdoc .appmaxi mize objwddoc .filenewdefault objwddoc .filesaveas("&filename") =sys(3006,val(nlLocaleId)) c MessageTitle ='結束窗' c MessageText ='文檔創建完畢'+chr(13)+'退出Mi— crosoft (R)Word 97' nDialogType =0+64+0 nAnswer =MESSAGEBOX(c MessageText ,nDialogType , c MessageTitle) 這樣,在命令窗口中運行上述Form 時,單擊“自動創建Word 文檔”按扭,則自動調用Word 97創建文檔,且文檔的名字為“99年工作計劃”。 (海軍航空工程學院孔波264001)
|