果茶小说网 > 名著电子书 > 电脑十万个为什么 >

第22章

电脑十万个为什么-第22章

小说: 电脑十万个为什么 字数: 每页3500字

按键盘上方向键 ← 或 → 可快速上下翻页,按键盘上的 Enter 键可回到本书目录页,按键盘上方向键 ↑ 可回到本页顶部!
————未阅读完?加入书签已便下次继续阅读!



格式同其载入前的文件格式一样(如  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  Inter  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  Inter  Explorer〃)  &&  (parseInt(navigator。appVersion)  》=  3  ))   
              ns  =  ((navigator。appName  ==  〃scape〃)  &&  (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:  Inter  Explorer  浏览器支持一个  Body  属性  bgproperties,它可以让背景不滚动:  
            〈Body  Background=〃图片文件〃  bgproperties=〃fixed〃〉      
          10;Q;怎样定义网页的关键字?  
              A:在网页中加入关键字;可以供某些搜索站台机器人使用;它们会利用该关键字为你的网站做索引,  这样,当别人用关键字搜索网站时,如果你的网页包含该关键字,那么就可以被列出了。定义本网页关键字,可以在〈Head〉〈/Head〉中加入如下代码:     
              〈meta  name=〃Keywords〃  content=〃china;enterprise;business;〃〉      
              Content  中所包含的就是关键字;你可以自行设置。      
              这里有个技巧;你可以重复某一个单词;这样可以提高自己网站的排行位置;如:  
              〈meta  name=〃Keywords〃  content=〃china;china;china;china〃〉      
          11;Q:怎样隐藏在状态栏里出现的链接信息?  
              A:大家知道;当你指向一个链接时;该链接的信息就会出现在浏览器的状态栏里;  如果需要隐藏它;可以本链接中做如下设置:  
              〈a  href=〃http://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  
                  打开当前  IE  窗口的一个拷贝:Ctrl+N  
                  停止下载当前网页:Esc  
                  光标迅速移动到网页的开头:Home  
                  光标迅速移动到网页的尾部:End  
                  打开新的地址键入窗口:Ctrl+O  
                  打开收藏夹:Ctrl+I  
                  打开历史记录文件夹:Ctrl+H  
                  打开浏览器设定的默认主页:Alt+HOME      
          16;Q:网页上的图形格式:  
              A:图形的格式千奇百怪,但是一般    浏览器支持的图形格式只

返回目录 上一页 下一页 回到顶部 0 1

你可能喜欢的