Document.Tables.Item1 wdt.Cell13.Range.Text : Hello //以下是保存和关闭文档及 Word 可以不关,下面两个例程略过此步。
//EmptyParam 用来代替不使用的参数。
FileName : c:test.doc wd.ActiveDocument.SaveAsFileNameEmptyParamEmptyParam EmptyParam EmptyParamEmptyParamEmptyParamEmptyParamEmptyParam EmptyParam EmptyParam wd.ActiveDocument.CloseEmptyParamEmptyParamEmptyParam wd.QuitEmptyParamEmptyParamEmptyParamend //设置 Variant 对象为 UnAssigned 来释放该对象的引用。
NewDoc : UnAssigned DocTable : UnAssigned Ole : UnAssigned end 方法三:使用 Server 页的 TWordApplication 控件,同理,你可以用里头的所有控件。
Ole 为 TWordApplication 控件名称。
var NewDoc: Variant DocTable: Variant o: OleVariant begin o : c:abc.dot NewDoc : Ole.Documents.AddoEmptyParam DocTable : NewDoc.Tables.Item1 DocTable.Cell13.Range.Text : Hello NewDoc : UnAssigned DocTable : UnAssigned end 推荐用方法一和方法三。
因为方法二不提供类型参数检查,也因为方法二的接口调用效率低。
程序中所使用的属性和方法资料可以在 Office 的 VBA 帮助中查到。
需要者请在安装 Office 时选择安装 VBA 编程帮助。
21Q:想用 Dephi4.0 实现这样的效果:在程序启动时在主窗口中同时放置几个 Dockable 的子窗口。
子窗口的大小和 Dock 的位置都可以变化,也可以拖离主窗口成为独立的窗口。
如同 Visual C6.0 集成环境的界面一样请问怎么实现 A:在 Delphi5.0 的 BorlandDelphi5DemosDocking 文件夹下有完整的示例程序,请参看例程 22Q:我的 VB6 总把全角符号和半角符号一样对待,而且它对字符串的长度也辨不清如 lenquot中华人民共和国quot的返回值为 7。
而其 FileLen 的返回值却又似乎正常,等于文件的长度Bit,请问到底得如何解决 A: VB4.0 以后,string 类型以 UNICODE 存放,以 ANSI 形式写入文件。
所以,len 和 FileLen 结果不同。
len 返回字数,每个中、英文均为 1;lenb 返回字节数,每个中、英文均为 2。
如果需要返回 ANSI 的字节数,可用如下函数: Public Function LenANSIstrU as string as long LenANSI LenBStrConvstrU vbFromUnicode End function 23Q:能否在 VB 中作 DLL 文件 A:VB 不能制作 Win32 DLL 文件但它可创建 ActiveX DLL。
24Q:如何在不使用 Windows 的打印对话框或打印设置框的情况下,在 VB 程序中设定打印机的自定义纸张尺寸 A:可设置 Printer 对象的 Width 和 Height 属性。
对于同一种打印机, 而 Windows9X 往往可以成功设置自定义纸张大小, NT不能。
这主要取决于打印机驱动程序。
另外,即使驱动程序接受这些设置,它也会根据情况作些微调。
25Q:在 VB 中如何控制计算结果的整数位和小数位 A:可用 Format 函数,或 VB 新增的 FormatNumber可本地化等函数。
26Q:在 VB6.0 中如何区分汉字和半角西文字符 A:用 LenBStrConvstr vbFromUnicode, 为 结果为 1 是半角, 2 是全角。
另外一个 undocumented 的方法是,ASCstr,结果gt0 是半角,lt0 是全角。
27Q:微软 VISUAL J 和 JAVA 有什么不同 A:微软已经放弃了 java,他发布了一个新产品叫 C 与 sun 的 java 竞争。
C 与 C 类似却很容易开发 COM/DCOM 程序,但目前北美没有人用 C。
而 sun 的 java 却很热年薪在 6 万元以上。
28Q:如何在 VB 中调用资源文件中的资源,如图片、光标等 A:可用 LoadResPictureindexformat 来调用。
其中“index”是必需的,它是一个整数或字符串,用来指定资源文件中数据的标识符 ID ,“format”是必需的一个数值或常数,指定返回数据的格式,返回一个 Picture 对象,例如位图、图标或光标。
例如:Picture1.PictureLoadResPicture100 vbResBitmap,常量有 vbResBitmap ,vbResCursor vbResIcon 等。
.res 文件可以用 VC 来产生和编辑,在 VB 中调用。
29Q:是否运行用 Delphi 开发的数据库应用程序时,一定要装 BDE 能否可以将其包含在应用程序中,使不安装 BDE,就可运行 A:不可以。
BDE 是 Delphi 和 Inprise 公司其他一些产品的数据引擎!有它才可以和 ODBC 相连接。
30Q:请问怎么样将用
VFP5.0 编写的小软件编绎成可以脱离
VFP 而独立运行的软件 A:将
VFP5.0 的的两个支持文件放置在与可执行文件相同的目录中,或者在 MS-DOS 搜索路径中,即可独立运行。
单片机返回相应的 1--3 字节数据。
31Q: 如何在 VC6.0 中使用 MSComm 控件与单片机通讯 要求是 PC 机发一个字节的命令, A:首先将端口串行化: commh CreateFiletmpstr GENERIC_READ,GENERIC_WRITE NULL NULL OPEN_EXISTING FILE_FLAG_OVERLAPPED NULL 然后设 DCB。
读使用 ReadFilehComm lpBuf READ_BUF_SIZE ampdwRead amposReader 写使用 WriteFilehComm lpBufdwToWrite ampdwWritten amposWrite 也可以使用 _inp _outp 来直接写串口的端口。
32Q:在 VB 网格中输入数据: A:VISUAL BASIC 提供的网格控制Grid主要是用来直观地输出数据,但不能输入数据,使用起来很不方便。
能不能向网格中输入数据呢?这里提供一种解决方法,供大家参考: 利用一文本框作为缓冲,实现编辑功能。
当网格改变行列时,把网格当前行列的内容传递给文本框;当网格中有 ASCII 字符产生时,把输入焦点设置为文本框,并把输入的 ASCII 字符送给文本框;当编辑完文本框的内容时,按 Enter 键或 TAB 键,把文本框的内容送给网格的当前行列,并把输入焦点设置为网格。
如下程序所示其中 Textl 为文本框,Labell 为标签,Gridl 为网格: Option Explicit Const EnterAsc=13 Const TabAsc=9 Private Sub Form_Load Labell.Caption=”请输入” End Sub Private Sub Gridl_KeyPressKeyAscii As Integer Text1.StFocus Textl.SelStart=0 End Sub Private Sub Text1_KeyPressKeyAscii As Integer If KeyAscii=EnterAsc Then Grid1.SetFocus KeyAscii=0 End If End Sub Private Sub Text1_LostFocus Grid1.Text=Text1.Text End Sub 33Q:启动“控制面板”中的设置程序: A:控制面板 Control Panel CONTROL.EXE ----------------------------------------Control Panel: rundll32.exe shell32.dllControl_RunDLL辅助选项 Accessability Options ACCESS.CPL -----------------------------------------------Accessability Properties Keyboard: rundll32.exe shell32.dllControl_RunDLL access.cpl1Accessability Properties Sound: rundll32.exe shell32.dllControl_RunDLL access.cpl2Accessability Properties Display: rundll32.exe shell32.dllControl_RunDLL access.cpl3Accessability Properties Mouse: rundll32.exe shell32.dllControl_RunDLL access.cpl4Accessability Properties General: rundll32.exe shell32.dllControl_RunDLL access.cpl5添加/删除程序 Add/Delete Programs APPWIZ.CPL rundll32.exe shell32.dllControl_RunDLL desk.cpl0Display Properties Screen Saver: rundll32.exe shell32.dllControl_RunDLL desk.cpl1Display Properties Appearance: rundll32.exe shell32.dllControl_RunDLL desk.cpl2Display Properties Settings: rundll32.exe shell32.dllControl_RunDLL desk.cpl3区域设置 Regional Settings INTL.CPL -------------------------------------------Regional Settings Properties Regional Settings: rundll32.exe shell32.dllControl_RunDLL intl.cpl0Regional Settings Properties Number: rundll32.exe shell32.dllControl_RunDLL intl.cpl1Regional Settings Properties Currency: rundll32.exe shell32.dllControl_RunDLL intl.cpl2Regional Settings Properties Time: rundll32.exe shell32.dllControl_RunDLL intl.cpl3Regional Settings Properties Date: rundll32.exe shell32.dllControl_RunDLL intl.cpl4Joystick Options JOY.CPL -------------------------------游戏控制器 Joystick Properties Joystick: rundll32.exe shell32.dllControl_RunDLL joy.cpl鼠标、键盘 Mouse/Keyboard/Printers/Fonts Options MAIN.CPL ----------------------------------------------------------------Mouse Properties: rundll32.exe shell32.dllControl_RunDLL main.cpl 0Keyboard Properties: rundll32.exe shell32.dllControl_RunDLL main.cpl 1Printers: rundll32.exe shell32.dllControl_RunDLL main.cpl 2Fonts: rundll32.exe shell32.dllControl_RunDLL main.cpl 3邮件和传真 Mail and Fax Options MLCFG32.CPL --------------------------------------------------Microsoft Exchange Profiles General: rundll32.exe shell32.dllControl_RunDLL mlcfg32.cpl多媒体 Multimedia/Sounds Options MMSYS.CPL -------------------------------------------------Multimedia Properties Audio: rundll32.exe shell32.dllControl_RunDLL mmsys.cpl0Multimedia Properties Viedo: rundll32.exe shell32.dllControl_RunDLL mmsys.cpl1Multimedia Properties MIDI: rundll32.exe shell32.dllControl_RunDLL mmsys.cpl2Multimedia Properties CD Music: rundll32.exe shell32.dllControl_RunDLL mmsys.cpl3Multimedia Properties Advanced: rundll32.exe shell32.dllControl_RunDLL mmsys.cpl4声音属性 Sounds Properties: rundll32.exe shell32.dllControl_RunDLL mmsys.cpl 1安装调制解调器 Modem Options MODEM.CPL ----------------------------------------------Modem Properties General: rundll32.exe shell32.dllControl_RunDLL modem.cpl网络设置 Network Option NETCPL.CPL -----------------------------------------Network Configuration: rundll32.exe shell32.dllControl_RunDLL netcpl.cpl口令设置 Password Option PASSWORD.CPL ---------------------------------------------Password Properties Change Passwords: rundll32.exe shell32.dllControl_RunDLL password.cpl系统/添加新硬件设置 System/Add new Hardware SYSDM.CPL ------------------------------------------------------------System Properties General: rundll32.exe shell32.dllControl_RunDLL sysdm.cpl0System Properties Device Manager: rundll32.exe shell32.dllControl_RunDLL sysdm.cpl1System Properties Hardware Profiles: rundll32.exe shell32.dllControl_RunDLL sysdm.cpl2System Properties Performance: rundll32.exe shell32.dllControl_RunDLL sysdm.cpl3 Add New Hardware Wizard: rundll32.exe shell32.dllControl_RunDLL sysdm.cpl 1日期和时间设置 Date and Time Options TIMEDATE.CPL ---------------------------------------------------------Date/Time Properties: rundll32.exe shell32.dllControl_RunDLL timedate.cpl微软邮局设置 Microsoft Mail Postoffice Options WGPOCPL.CPL ---------.
上一篇:
【精品】齿轮套件塑料模具设计与制作
下一篇:
法律专业开题报告范文