bcjq014.txt

c++ builder 的一些txt文档

C++ Builder开发者：程序员之家
var how_many_ads = 3;
var now = new Date()
var sec = now.getSeconds()
var ad = sec % how_many_ads;
ad +=1;
 
  
  
    
      
        
          
            首页   
              | 控件天堂 | 控件使用                 
              | 编程技巧                  
              |  源代码 |  编程工具 |      
               系统补丁 |  电子书籍 | 技术论坛                  
              |  相关链接               
                         
                       
                     
                   
                   
                     
                       
                         
                           
                         
               
       if (ad==1) {document.write(''+'');}             
       if (ad==2) {document.write(''+'');}             
       if (ad==3) {document.write(''+'');}             
                            
                         
                      
                                  
                      
                    
                  
                
                
                  
                    
                      
                        
                     
                   
var marqueecontents=''+scroll_text+''         
if (document.all)         
document.write(''+marqueecontents+'')         
function regenerate(){         
window.location.reload()         
}         
function regenerate2(){         
if (document.layers){         
setTimeout("window.onresize=regenerate",450)         
intializemarquee()         
}         
}         
function intializemarquee(){         
document.cmarquee01.document.cmarquee02.document.write(marqueecontents)         
document.cmarquee01.document.cmarquee02.document.close()         
thelength=document.cmarquee01.document.cmarquee02.document.height         
scrollit()         
}         
function scrollit(){         
if (document.cmarquee01.document.cmarquee02.top>=thelength*(-1)){         
document.cmarquee01.document.cmarquee02.top-=speed         
setTimeout("scrollit()",100)         
}         
else{         
document.cmarquee01.document.cmarquee02.top=marqueeheight         
scrollit()         
}         
}         
window.onload=regenerate2         
                     
                       
                     
                   
                 
               
               
                 
                   
                     
                       
                         
                           
                             
                  当前位置
  
                    ：
  
                    编程技巧          
                          
                        
                      
                      
                      
                        
                          
                            
                    用C++Builder实现Word  
                      97自动化       
                         
                   
                     
                       
                         
                          要 在 应 用 程 序 中 控 制Word 97 的 运 行， 首 先     
            必 须 在 编 制 自 动 化 客 户 程 序 时 使 其 头 文     
            件中 包 含 文 件ComObj.hpp， 写 入 ＃include    
            。 编 程 工具C ＋ ＋ Builder 的 开 发 者 把 调 用Word     
            97 自 动 化 对 象 的 功 能 大致 包 装 成 了 几 个Ole     
            object class 函 数， 应 用 程 序 设 计 人 员 可以 很     
            方 便 地 利 用 它 们。    
            
＊ 设 定Ole 对 象 的 属 性：    
            
 OlePropertyGet(propname)
    
            
    
             OlePropertySet(propname,value)
    
            
    
             其 中value 是 任 何 可 以 转 换 为Variant 型     
            的 值
    
            
    
                
            
＊ 调 用Ole 对 象 的 方 法：    
      
 OleProcedure(OleProcName,[val,...])
    
            
    
             OleFunction(OleFuncName,[val,...])
    
            
    
             其 中val 是 任 何 可 以 转 换 为Variant     
            型 的 值    
                
      
---- 可 以 通 过OleFunction(OleFuncName,[val,...]) 父     
            对 象 返 回 其 子 对 象， 句 法 是： 子 对 象 名=     
            父 对 象 名. OleFunction(OleFuncName,val)。而 且 可 以 对     
            此 方 法 组 合 从 父 对 象 返 回 其 下 层 对 象 的     
            对 象。    
                
            
---- C ＋ ＋ Builder 中 使 用OLE     
            自 动化 控 制Word 97， 必 须 掌 握Word 97 的 自 动 化     
            对 象 及Microsoft Word Visual Basic 帮 助 文 件 中 关 于Word     
            的 对 象 方 法 和 属 性。Word 对象 代 表 一 个 Word     
            的 元 素， 如 文 档、 段 落、 书 签 或 单 个 的     
            字符。 集 合 是 一 个 对 象， 该 对 象 包 含 其 他     
            数 个 对 象， 通 常 这些 对 象 属 于 相 同 的 类     
            型， 例 如， 一 个 集 合 对 象 中 可 包 含 文档 中     
            的 所 有 书 签 对 象。 通 过 使 用 属 性 和 方     
            法， 可 以 修 改 单个 的 对 象， 也 可 修 改 整 个     
            的 对 象 集 合。 属 性 是 对 象 的 一 个特 性 或     
            者 该 对 象 操 作 的 一 个 方 面。 例 如， 文 档     
            属 性 包 含 名称、 内 容、 保 存 状 态， 以 及 是     
            否 启 用 修 订。 要 更 改 一 个 对象 的 属 性， 可     
            以 修 改 属 性 的 值。 方 法 是 对 象 可 以 进 行     
            的 动作。    
            
---- 代 表Word 97 应 用 程 序     
            的 自 动化 对 象 有 两 个：Word.Application 和 Word.Basic，     
            通 过Application 对象 的WordBasic 属 性 可 以 允 许 它     
            们 之 间 进 行 变 换 赋 值。 在C ＋＋Builder 中 通     
            过CreateOleObject(" …") 就 可 启 动Word 并 获 得     
            句 柄，将 其 赋 给Variant 变 量。 如 有 两 个Variant     
            型 变 量V1 和V2， WordBasic 是Application 对 象 的 属     
            性：    
            
     
            V1=CreateOleObject("Word.Application")；
    
            
    
             V2=V1.OleFunction("WordBasic")。
   
            
   
            - 以 下 通 过 一 个 简 单 的 例     
            子， 具体 说 明 如 何 在C ＋ ＋ Builder 中 实 现 Word     
            97 的自 动 化 功 能， 其功 能 是 打 开 或 创 建 新     
            文 档， 并 向 当 前 活 动 中 发 送 文 字、 插入位     
            图 和 画 条 直 线 等。 在C ＋ ＋ Builder 集 成 开 发     
            环 境IDE 下，建 立 一 项 目Project1，其中 包 含Form1（     
            其Caption 为OLE Automation）的 单 元 文 件Unit1.cpp。 表     
            单Form1 的OpenDialog1对 象 的Filter 设 为 Word 文 档 或     
            位 图。Unit1.cpp 的 头 文 件 中 必 须 包 含"ComObj.hpp"。代     
            码如 下：    
      
头 文 件Unit1.h 代 码 为：
    
            
    
            ＃ifndef Unit1H
    
            
    
            ＃define Unit1H
    
            
    
            // － － － － － － － － － － － － －
    
            
    
            ＃include    
            
    
            
    
            ＃include    
            
    
            
    
            ＃include    
            
    
            
    
            ＃include    
            
    
            
    
            ＃include    
            
    
            
    
            ＃include    
            
    
            
    
            ＃include    
            
    
            
    
            // － － － － － － － － － － － － －
    
            
    
             class TForm1 : public TForm
    
            
    
            {
    
            
    
            __published: // IDE －managed     
            Components
    
            
    
             TButton ＊Button1;
    
            
    
             TOpenDialog ＊OpenDialog1;
    
            
    
             TButton ＊Button2;
    
            
    
             TMemo ＊Memo1;
    
            
    
             TBevel ＊Bevel1;
    
            
    
             TButton ＊Button3;
    
            
    
             TLabel ＊Label1;
    
            
    
             TButton ＊Button5;
    
            
    
             TBevel ＊Bevel2;
    
            
    
             TLabel ＊Label2;
    
            
    
             TLabel ＊Label3;
    
            
    
             void __fastcall Button1Click(TObject ＊Sender);