友情提示:如果本网页打开太慢或显示不完整,请尝试鼠标右键“刷新”本网页!
八二电子书 返回本书目录 加入书签 我的书架 我的书签 TXT全本下载 『收藏到我的浏览器』

电脑十万个为什么-第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  
           
返回目录 上一页 下一页 回到顶部 0 0
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部!
温馨提示: 温看小说的同时发表评论,说出自己的看法和其它小伙伴们分享也不错哦!发表书评还可以获得积分和经验奖励,认真写原创书评 被采纳为精评可以获得大量金币、积分和经验奖励哦!