电脑十万个为什么-第18部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！


Q：Delphi　　中判断系统是否已经安装了声卡
89
Q：用　　ASP　　打开　　Web　　服务器上的应用程序　　　　　　90
Q：一个用进度条表示的时钟
91
Q：Delphi　　中实现对日期数据的有效性检验　　　　　　92
Q：PHP4　　的　　CGI　　版本和　　ISAPI　　版本有什么区别？
93
Q：VFP6。0　　一条语句有多长？　　　　　　94
Q：Delphi　　中调用　　Windows　　API　　函数　　ShellExecute　　实现打开　　IE　　和　　Outlook　　应用程序？
95
Q：用一条　　SQL　　语句找出“相同的客户代码中序号最大”的那些数据　　　　　　96
Q：在　　Delphi5。0　　中怎么找不到　　Html　　组件？
97
Q：在　　Delphi　　中实现控件焦点转移？　　　　　　98
Q：在　　Delphi　　中判断本程序是否已经运行？
99
Q：Delphi　　与　　VB、ASP　　带变量参数　　SQL　　语句的比较　　　　100
Q：Delphi　　实现渐变窗口背景





　　　　第五卷　第二章
　　　　

？101；Q：用　　Visual　　Basic　　保存　　BMP　　文件：　　
　　　　　　　　　　　　A：　　在用VB编制绘图程序时，有时需要将窗体或图片框上的绘图结果形成一个定制的图形文件保存起来，以便以后浏览或修改。这一功能可以用　　VB　　本身带有的　　SavePicture　　语句来完成。
　　　　　　　　SavePicture语句将窗体、图象控件或图片框中的图形图象保存到磁盘上的一个文件中，这些图象可以是使用画图方法（Line，Circle，Pset）产生出来的，也可以存储那些通过设置窗体或图片框的图片属性或者通过PaintPicture　　方法或　　Load　　Picture　　函数载入的图象。这些载入的图象可以是　　BMP、ICO　　或　　WMF　　图形文件。
　　　　　　　　SavePicture　　语句的语法格式如下：
　　　　　　　　　　　　SavePicture　　picture，stringexpression
　　　　　　　　参数　　picture　　为窗体或图片框的　　picture　　或　　image　　属性；参数　　strngexpression　　为保存的文件名。
　　　　　　　　下面举一个具体的程序来说明定制图象文件的过程：
　　　　1、创建一个新的项目文件，在　　Forml　　中加入一个图象控件　　Picture1，将Picture1　　的　　AutoRedraw　　属性设置为　　True；
　　　　2、在Form_Load（）　　事件中，加入如下代码：
　　　　　　Private　　Sub　　Form－Load（）
　　　　　　　　Dim　　CX　　As　　Integer
　　　　　　　　Dim　　CY　　As　　Integer
　　　　　　　　Dim　　Limit　　As　　Integer
　　　　　　　　Dim　　Radius　　As　　Integer
　　　　　　　　CX＝1000
　　　　　　　　CY＝1000
　　　　　　　　For　　Radius＝0　　To　　Limit
　　　　　　　　Picturel。Circle（CX；CY）；Radius；RGB（Rnd*255；Rnd*255；Rnd*255）
　　　　　　　　Next　　Radius
　　　　　　　　SavePicture　　Picturel。Image；〃c：custom。bmp〃
　　　　　　End　　Sub
　　　　　　　　执行此程序就会把图片框　　Picture1　　上的图象保存在　　C：　　盘根目录下　　custom。bmp　　图象文件中。
　　　　　　　　最后有两点需要指出：
　　　　　　　　1、在使用　　SavePicture　　语句之前，必须先将窗体或图片框的　　AutoRedraw　　属性设为　　True，否则保留的将是一张空图；
　　　　　　　　2、使用　　Image　　属性保存的用画图命令（如　　Line，Cirele，Pset　　或　　Print）画出来的图形总是以　　BMP　　文件格式保存。但在程序设计时如果使用窗体或图片框的　　Picture　　属性载入或在程序运行时通过　　LoadPicture　　函数载入的图象，使用　　SavePicture　　语句存储时，存储的文件格式同其载入前的文件格式一样（如　　ICO　　格式等）。　　　　　　
　　　　　　102；Q：在　　Visual　　Basic　　中如何拖动窗体或控件？　　
　　　　　　　　　　　　A：现在的许多　　windows　　下的应用程序，都采用了图形化的界面，但是在这样的界面下就不能使用　　Windows　　原来的标题条了，否则会影响界面的美观。那么在没有标题条的情况下如何用鼠标拖动窗体或者其它的控件呢？
　　　　　　　　其实，采用　　API　　函数调用很容易实现，下面我们以拖动窗体　　Form1　　为例来具体讲一下实现方法：
　　　　1、新建立一个项目，名称为　　test。vbp；
　　　　2、填加一个模块，名称为　　test。bas，并且在声明部分加入以下代码：
　　　　　　　　Declare　　Function　　ReleaseCapture　　Lib　　〃user32〃　　（）　　As　　Long
　　　　　　　　Declare　　Function　　SendMessage　　Lib　　〃user32〃　　Alias　　〃SendMessageA〃　　（ByVal　　hwnd　　As　　Long；　　ByVal　　wMsg　　As　　Long；　　ByVal　　　　wParam　　As　　Long；　　lParam　　As　　Any）　　As　　Long
　　　　　　　　Public　　Const　　WM_SYSMAND　　=　　&H112
　　　　　　　　Public　　Const　　SC_MOVE　　=　　&HF012
　　其中　　ReleaseCapture　　函数是用来释放鼠标捕获的，SendMessage　　函数是一个在　　Windows　　API　　中非常重要的函数，在这里的作用是用来向　　Windows　　发送移动窗体的消息。WM_SYSMAND　　是向　　Windows　　发送消息的常量。SC_MOVE　　是控制移动窗体的常量。请注意：这里　　SC_MOVE　　的赋值是　　&HF012，表示鼠标对象。
　　　　3、在窗体的　　MouseDown　　过程中加入以下代码：
　　　　　　Private　　Sub　　Form_MouseDown（Button　　As　　Integer；　　Shift　　As　　Integer；　　X　　As　　Single；　　Y　　As　　Single）
　　　　　　　　ReleaseCapture
　　　　　　　　SendMessage　　Me。hwnd；　　WM_SYSMAND；　　SC_MOVE；　　0
　　　　　　End　　Sub
　　　　　　　　其中　　ReleaseCapture　　函数用来释放鼠标捕获，SendMessage　　函数向　　Windows　　发送移动窗体的消息。
　　　　4、保存并运行程序，按下鼠标，你会发现窗体会随着鼠标的移动而移动。
　　　　　　　　以上讲述了如何在　　VB　　中用鼠标拖动窗体，其实，控件的拖动的原理是一样的。例如以下代码可以实现图片框的拖动：
　　　　　　　　ReleaseCapture
　　　　　　　　SendMessage　　Picture1。hwnd；　　WM_SYSMAND；　　SC_MOVE；　　0
　　　　　　（注：以上程序在　　Windows98、VB5。0/6。0　　下调试通过。在　　NT4。0、VB6。0　　下不能运行。）　　　　　　
　　　　103；Q：用　　Delphi5。0　　编程实现　　Windows　　桌面的隐藏和显示
　　　　　　　　　　　　A：实现原理是调用　　Windows　　的　　API　　函数。程序代码如下：
　　　　　　　　　　procedure　　TForm1。Button1Click（Sender：　　TObject）；
　　　　　　　　　　var　　hDesktop：Thandle；
　　　　　　　　　　begin
　　　　　　　　　　hDesktop：=FindWindow（'Progman'；nil）；
　　　　　　　　　　ShowWindow（hDesktop；SW_HIDE）；　　//隐藏桌面
　　　　　　　　　　end；
　　　　　　　　　　procedure　　TForm1。Button2Click（Sender：　　TObject）；
　　　　　　　　　　var　　hDesktop：Thandle；
　　　　　　　　　　begin
　　　　　　　　　　hDesktop：=FindWindow（'Progman'；nil）；
　　　　　　　　　　ShowWindow（hDesktop；SW_SHOW）；　　//显示桌面
　　　　　　　　　　end；
　　　　　　　　　　procedure　　TForm1。Button3Click（Sender：　　TObject）；
　　　　　　　　　　begin
　　　　　　　　　　close；
　　　　　　　　　　end　　
　　　　104；Q：应用　　Microsoft　　TTS　　语音引擎的　　Delphi　　语言实例
　　　　　　　　　　　　A：建立一个单窗体工程，添加一个　　Edit　　和　　2　　个　　Button　　控件，分别命名为　　Edit1、btnSpeak、btnStop。然后安装引用　　TTS　　的　　vtxtauto。tlb　　类库文件，方法是点击菜单“工程…Import　　Type　　Library”，点“add”按钮，然后选中　　Windowsspeech　　下的　　Vtxtauto。tlb　　文件，放入安装包后，再将其添加成　　Delphi　　的一个　　Unit，自动产生的名字为“VTxtAuto_TLB”。然后，在主　　Unit　　的　　Uses　　里引用　　VTxtAuto_TLB，即在　　Uses　　后添加字串“VTxtAuto_TLB”。最后参考以下代码：
　　　　　　　　……
　　　　　　　　procedure　　TfrmSpeech。FormCreate（Sender：　　TObject）；
　　　　　　　　begin
　　　　　　　　　　　　vtxt：=CoVTxtAuto_。Create；
　　　　　　　　　　　　vtxt。Register（''；'Speech'）；
　　　　　　　　　　　　Edit1。Text：='I　　am　　a　　chinese；　　I　　love　　my　　homeland　　very　　much；　　and　　you？'
　　　　　　　　end；
　　　　　　　　procedure　　TfrmSpeech。btnSpeakClick（Sender：　　TObject）；
　　　　　　　　begin
　　　　　　　　　　　　vtxt。Speed：=100；
　　　　　　　　　　　　vtxt。Speak（trim（Edit1。Text）；10）；
　　　　　　　　end；
　　　　　　　　procedure　　TfrmSpeech。btnStopClick（Sender：　　TObject）；
　　　　　　　　begin
　　　　　　　　　　　　vtxt。StopSpeaking；
　　　　　　　　end；
　　　　　　　　end。





　　　　第六卷　第一章
　　　　

？1；Q：怎样把别人网页上的背景音乐保存下来？　　
　　　　　　　　　　　　A：浏览该网页后；在你的　　WindowsTemporary　　Internet　　Files　　文件夹下可以找到该背景音乐的缓存文件，拷贝出来即可使用。如果还是找不见该文件，可以打开网页的源文件，找到音乐文件的　　URL　　路径，用“蚂蚁”等　　FTP　　软件进行下载。　　　　　　
　　　　　　　　　　2；Q：避免有人从你分帧的主页的帧中径直进入网站；而不是从　　index。htm　　中进入？　　
　　　　　　　　　　　　A：在帧中的网页的〈head〉〈/head〉之间加入以下脚本代码：　　
　　　　　　　　　　　　〈Script　　language=〃JavaScript〃〉　　
　　　　　　　　　　　　　　　　if　　（top==self）　　
　　　　　　　　　　　　　　　　　　self。location。href=〃index。htm〃；　　
　　　　　　　　　　　　〈/Script〉　　
　　　　　　　　　　　　这样；当有人从帧中进入网站时；就会自动重定向到主页文件　　index。htm。　　　　　　
　　　　　　　　　　3。Q：怎样防止别人把你的网页放到框架里？　　
　　　　　　　　　　　　A：因为框架（frame）的缘故；有许多人把别人的网页放置到自己的框架里；使之成为自己的一页。如果你要防止别人这样做；可以加入下列　　JavaScript　　代码即可；它会自动监测；然后跳出别人的框架。　　
　　　　　　　　　　　　〈Script　　language=〃javascript〃〉　　　　　　
　　　　　　　　　　　　　　　　if　　（self　　！=　　top）　　
　　　　　　　　　　　　　　　　　　top。location　　=　　self。location；　　
　　　　　　　　　　　　〈/Script〉　　　　　　
　　　　　　　　　　4；Q：怎样在　　FrontPage2000　　中加入　　Flash　　动画？　　
　　　　　　　　　　　　A：在　　FrontPage2000　　中；点击＇插入＇…》＇高级＇…》＇插件＇，在弹出的窗口中，设置一下　　Flash　　文件的大小及其它信息，确定即可。　　　　　　
　　　　　　　　　　5；Q：怎样在网页中加入注释？　　　　　
　　　　　　　　　　　　A：在共同网页开发中，加入注释是防止分工被搞混淆或者注释某段代码特殊的含义，加入注释的格式是：　　　　　
　　　　　　　　　　　　〈！…［注释内容…］……〉　　　　　　
　　　　　　　　　　6；Q：怎样测试浏览器并自动装入所需要的网页？　　
　　　　　　　　　　　　A：目前微软和网景的浏览器并不能完全兼容所有网页，有的网页在某种浏览器中非常漂亮，　　而用其它浏览器查看时却一团糟。如果你需要测试浏览器，可以加入以下　　JavaScript　　代码使浏览器自动装入所需要的网页：　　　　　
　　　　　　　　　　〈script　　LANGUAGE=〃JavaScript〃〉　　　
　　　　　　　　　　　　function　　TestBrowser（）　　　　　
　　　　　　　　　　　　｛　　　　　
　　　　　　　　　　　　　　ie　　=　　（（navigator。appName==〃Microsoft　　Internet　　Explorer〃）　　&&　　（parseInt（navigator。appVersion）　　》=　　3　　））　　　
　　　　　　　　　　　　　　ns　　=　　（（navigator。appName　　==　　〃Netscape〃）　　&&　　（parseInt（navigator。appVersion）　　》=　　3　　））　　　
　　　　　　　　　　　　　　if　　（ns）　　｛　　setTimeout（〃location。href=〃ns。htm〃〃；10）；　　｝　　　　　　
　　　　　　　　　　　　　　else　　｛setTimeout（〃location。href=〃ie。htm〃〃；10）；　　｝　　　　　
　　　　　　　　　　　　　　｝　　　　　
　　　　　　　　　　〈/script〉　　　　　　
　　　　　　　　　　7；Q：怎样让链接没有下划线？　　
　　　　　　　　　　　　A：只要在〈Head〉〈/Head〉中加入以下代码，所有链接就都没有下划线了：　　　　　
　　　　　　　　　　　　〈style　　type=〃text/css〃〉　　
　　　　　　　　　　　　〈！……　　
　　　　　　　　　　　　　　　　a　　｛text…transform：none；text…decoration：none；｝　　
　　　　　　　　　　　　　　　　a：hover　　｛text…decoration：underline｝　　
　　　　　　　　　　　　　　……〉　　
　　　　　　　　　　　　〈/style〉。　　　　　　
　　　　　　　　　　8；Q：怎样在网页中加入　　E…mail　　链接并显示预定的主题？　　
　　　　　　　　　　　　A：　　〈A　　href=〃mailto：Emailhost@263？subject=主题〃〉……〈/a〉　　　　　　
　　　　　　　　　　9；Q：怎样让网页的背景图像不滚动？　　　　　
　　　　　　　　　　　　A：　　Internet　　Explorer　　浏览器支持一个　　Body　　属性　　bgproperties，它可以让背景不滚动：　　
　　　　　　　　　　　　〈Body　　Background=〃图片文件〃　　bgproperties=〃fixed〃〉　　　　　　
　　　　　　　　　　10；Q；怎样定义网页的关键字？　　
　　　　　　　　　　　　　　A：在网页中加入关键字；可以供某些搜索站台机器人使用；它们会利用该关键字为你的网站做索引，　　这样，当别人用关键字搜索网站时，如果你的网页包含该关键字，那么就可以被列出了。定义本网页关键字，可以在〈Head〉〈/Head〉中加入如下代码：　　　　　
　　　　　　　　　　　　　　〈meta　　name=〃Keywords〃　　content=〃china；enterprise；business；net〃〉　　　　　　
　　　　　　　　　　　　　　Content　　中所包含的就是关键字；你可以自行设置。　　　　　　
　　　　　　　　　　　　　　这里有个技巧；你可以重复某一个单词；这样可以提高自己网站的排行位置；如：　　
　　　　　　　　　　　　　　〈meta　　name=〃Keywords〃　　content=〃china；china；china；china〃〉　　　　　　
　　　　　　　　　　11；Q：怎样隐藏在状态栏里出现的链接信息？　　
　　　　　　　　　　　　　　A：大家知道；当你指向一个链接时；该链接的信息就会出现在浏览器的状态栏里；　　如果需要隐藏它；可以本链接中做如下设置：　　
　　　　　　　　　　　　　　〈a　　href=〃//zhanghing。yeah〃　　onMouseOver=〃window。status=〃none〃；　　return　　true〃〉链接〈/a〉　　　　　　
　　　　　　　　　　12；Q：怎样在网页中加入多媒体播放？　　
　　　　　　　　　　　　　　A：有些多媒体文件无需其他程序就可以播放，　　而有许多多媒体文件需要外部程序才能播放。如果浏览器没有安装这种外部程序，那么浏览器会自动去下载。　　要加入多媒体格式；可加入如下代码：　　　
　　　　　　　　　　　　　　〈EMBED　　SRC=〃test。ram〃　　AUTOSTART=〃TRUE〃　　LOOP=〃3〃　　WIDTH=〃80〃　　HEIGHT=〃30〃〉　　　　　　
　　　　　　　　　　13；Q：怎样在网页中加入电子邮件表单提交？　　
　　　　　　　　　　　　　　A：表单提交需要　　CGI　　程序的支持；但也可以利用　　E…mail　　提交；当你设计好表单后，　　把　　Action　　内容加入邮件地址即可，例如：　　
　　　　　　　　　　　　　　〈form　　method=〃POST〃　　action=〃mailto：zhangking@263〃　　ENCTYPE=〃text/plain〃〉　　
　　　　　　　　　　　　　　　　　　……　　
　　　　　　　　　　　　　　〈/form〉　　　　　　
　　　　　　　　　　14；Q：用　　Word　　作为　　Html　　编辑器产生的代码比较冗长，怎么优化？　　
　　　　　　　　　　　　　　A：可以用网页制做软件　　Dreameweaver3。0　　进行优化。　　　　　　
　　　　　　　　　　15；Q：IE5。0　　的部分快捷键：　　
　　　　　　　　　　　　　　A：打开查找功能：Ctrl＋F　　
　　　　　　　　　　　　　　　　　　关闭浏览器窗口：Ctrl＋W　　
　　　　　　　　　　　　　　　　　　打开地址栏下拉列表框：F4　　
　　　　　　　　　　　　　　　　　　刷　　新：F5　　
　　　　　　　　　　　　　　　　　　将当前Web页保存到收藏夹列表：Ctrl＋D