9904.txt

关于编程技术技巧的文章

                   《编 程 技 术》

         一份属于广大编程爱好者的电子杂志

                    第四期 99/04/18


<本期栏目>
 *刊首语*
 *雕虫小技*
    C++ Builder经验点滴
 *技术文档*
    在VB5.0中生成统计图形
    用Delphi制作动态有声标签
    VF5.0的小工具
    在Visual Basic中显示动态运行进度
    使用Delphi实现滚动式面板窗口
 *服务台*
    源代码集锦/JavaScript

*****************************************************

<刊首语>
    
    首先要向几位朋友道声歉，这些朋友在看了上一期本刊中的
《用VC++5.0编写Ftp客户程序》一文后，误向我索取源代码。其
实那篇文章我是摘自《新潮电子》98年11期上的，由于我的一时
疏忽，没有看这篇文章，也没有在文章后注明出处，才产生了误
会。今后我一定多多注意，如果以后文章里有类似“索取源代码”
之类的字眼的话，我一定会特别注明的。在这里只能再此向这些
朋友说声抱歉了,希望能谅解！

*****************************************************
*****************************************************

<雕虫小技>

            　  C++ Builder经验点滴

                    (江苏　潘想)

　　1.全编译的问题。在C＋＋ Builder 3.0下,如果不进行设置,那么程序是
不完全编译的,运行时要用到Windows的System目录下的一些文件，如将这样编
译所得的可执行文件拷到其它未装C＋＋ Builder 的机子里将无法运行。如果
想全编译可以通过设置完成。设置方法如下：按“Project”下“Option”，
选中“Packages”页下角的“Build with runtime packages”即可。

　　2.在线帮助的制作。一个完整的程序应该有在线帮助。制作在线帮助并不
难,主要工作在制作帮助文件上，这需要一个帮助文件编译器，在C＋＋ Builder
的“CBuilder3\Help\Tools" 目录下就有一个帮助文件编译器HCW。实际上帮助
编译器的作用就是将.rtf文件编译成.hlp文件。让我们来看一个最简单的例子，
用Word随便写一个.rtf文件,启动HCW,先建一个项目；按窗体右边的“Files”
按钮，把刚才做的.rtf文件添加进去；最后按右下角的“Save and Compile”
按钮，这样在你的项目的目录下，将会出现一个和项目同名的.hlp文件。在程
序中使用帮助文件如下：
　　Application－>HelpFile=″myhelp.hlp″ ;／／指定帮助文件
　　Application－>HelpCommand(HELP_Contents,0); ／／打开帮助窗体

　　3.安装组件。C＋＋ Builder一个很吸引人的地方，就是它的组件。你不但
可以利用系统中提供的丰富的组件，而且可以利用第三方提供的组件。安装组件
的操作很简单，打开“Compoment”菜单下的“Install Compoment”，然后选中
要安装的组件的文件就行了。

*****************************************************
*****************************************************

<技术文档>
                         在VB5.0中生成统计图形

                             (湖南　陈震晗)
 
　　在用VB5进行数据库编程时，经常要生成统计图形。生成的方法有很多种，最
简单的是利用VB5提供的MSChart控件。具体操作方法如下：
　　1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”项，
选中并应用，此时在工具面板中出现MSChart控件图标。选中它并在新工程的Form1
中画一矩形，生成MSChart1,即出现缺省状态的直方图。设其ColumnCount属性为1。
　　2.利用Access或VB5的可视化数据管理器生成一个example.mdb的数据库，在其
中建一名为temp的数据表，包含“日期”和“数据”两个字段，并在表中输入一些
记录。
　　3.在Form1中生成一个Command1按钮，然后在Private Sub Command1_click()
中写入以下代码：
　　dim i as integer
 　 dim NewDyn as recordset
　　dim OpenWs as Workspace
　　dim OpenDB as DataBase
　　set OpenWs=DBengine.Workspaces(0)
　　set OpenDB=OpenWs.Opendatabase(app.path ＆ ″\example.mdb″)
　　set NetDyn=OpenDB.Openrecordset(″select ＊ from temp″,dbOpenSnapShot)
　　NewDyn.MoveLast
　　NewDyn.Movefirst
　　If NewDyn.RecordCount=0 then
　　Msgbox″请在数据库中输入数据!″，vbCritical
　　Exit sub
　　End if
　　With MSChart1
　　.TitleText=″直方图示例″
　　.RowCount=NewDyn.ReordCount
　　For i=1 to NewDyn.RecordCount
　　.Row=i
　　.Data=NewDyn.Fields(″数据″)
　　.Rowlabel=NewDyn.Fields(″日期″)
　　NewDyn.MoveNext
　　Next i
　　End With
　　NewDyn.Close
　　4.运行时按Command1键即可生成统计图表了。
　　如果想生成其他类型的图形，修改MSChart1的属性即可定制成其他各种二维或三维
图表。
(湖南　陈震晗)

本文出自：《电脑报》1999年3月01日第08期
 
 

*****************************************************



                       用Delphi制作动态有声标签

                             (广西　蔡　健)

    电脑报社出品的《硬件大师》的安装界面见过吧，当你把鼠标移到安装提示上
时会发出声音，在上面按下鼠标左键也会发出声音，而Delphi3