精华内容
下载资源
问答
  • Windows操作平台有一个屏幕的保护措施,即屏幕保护功能。经常在Windows操作平台上使用电脑的人们对系统提供给我们的几个屏幕保护程序是不是感到非常平常了,没有新鲜感了,是不是想自己设计屏幕保护程序。下面介绍...

     

      Windows操作平台设有一个屏幕的保护措施,即屏幕保护功能。经常在Windows操作平台上使用电脑的人们对系统提供给我们的几个屏幕保护程序是不是感到非常平常了,没有新鲜感了,是不是想自己设计屏幕保护程序。下面介绍如何利用VB设计用户自己的屏幕保护程序。屏幕保护程序可以保护显示屏不被损坏,同时节约能源。作为屏幕保护程序,应该具有如下特性:

      1)屏幕保护程序运行时,鼠标光标被自动隐藏,在程序结束时,光标显示。2)当单击、移动鼠标或按下键盘时,屏幕保护结束,回到正常操作状态。为了实现这些特性,在编写VB应用程序时,可以采用如下方法:

      1、改变窗体属性通常VB应用程序的窗体都采用有边框的窗体外观,但作为屏幕保护程序,应设置窗体为无边框,且为最大化。

      2、隐藏及显示鼠标光标在Visual Basic应用程序中隐藏及显示鼠标光标需要运用Windows的API函数,该函数名为ShowCursor。当用参数值True调用时显示鼠标光标,当用参数值False调用时,鼠标光标自动隐藏。

      3、检测鼠标移动VB中有一个检测鼠标移动的对象事件MouseMove事件。MouseMove事件通常在应用程序启动时就会触发,有时在鼠标并未移动的情况下,MouseMove事件仍有可能被触发。因此如果在程序中直接用MouseMove事件检测鼠标是否发生了移动,并不能正确反映鼠标的移动状况。应该在MouseMove事件中编写代码加以控制。

      为了正确反映鼠标的移动,先用变量记录下程序运行时的鼠标当前位置,然后用另外一组变量记录鼠标移动后的位置,当鼠标移动前后的位置差大于一定范围时,触发MouseMove事件。编写代码如下:

      Private Sub Form-MouseMove(Button As Integer,shift As Inteqer,X As Single,Y As Single)

       Static currentX,currentY As Single

       Dim orignX,orignY As Single

       ’把当前的鼠标值赋给orignX和orignY

       orignX=X

       orignY=Y

       ’初始化currentX和currentY

       if currentX=0 and currentY=0 Then  

            currentX=orignX  

            currentY=orignY 

            Exit Sub

       Endif

       ’当鼠标移动大于一个象素时,显示鼠标光标并退出程序

       If Abs(oriqnX-currentX)>1 or Abs(orignY-currentY)>1Then 

            X=ShowCursor(True) 

            End

       Endif

      EndSub


      4、检测鼠标单击在Visual Basic中,单击事件是由“Click”触发的。当屏幕保护程序运行时遇到单击事件,则程序运行终止。代码编辑如下:

      Private Sub Form-Click()

       X=ShowCursor(True)

       End

      EndSub

      注意在结束之前先设光标的显示为真,以免在程序结束后丢失光标。

       5、检测键盘上各按键的状态Visual Basic中的键盘活动由KeyDown触发。代码与单击事件的代码一样。


      Private Sub Form-KeyDown(KeyCode As Integer,Shift As Integer)

       X=ShowCursor(True)

       End

      EndSub


      下面我们将设计一个简单的屏幕保护程序,该程序运行时,从左至右显示一张图片,图片从屏幕左边出现,至屏幕右面消失,象拉幕一样,且重不停复该过程。假设图片文件名为PIC.BMP,并存放在Windows文件夹中。实际操作如下:


      创建一新工程,在窗体中添加一图片框和一个Timer控件。设置它们的属性如下:


      Form   


      BackColor=&H80000007&

      BorderStyle=0  ’None

      MaxButton=False

      MinButton=False

      Windowstate=2 ’Maximized

      Timer

      Intelval=5

      PictureBox

      BackColor=&H80000007&

      BorderStyle=0 ’None

      AutoSize=Ture


      输入代码如下:


      ’在窗体的声明部分声明ShowCursor函数。


      Private Declare Function ShowCursor Lib“user32”(By Val bShow As Long) As Long


       ’在窗体上单击鼠标时退出程序


       Private Sub Form-Click() 

          X=ShowCursor(True) 

          End 

       EndSub


       ’在窗体上按下按键时退出程序


       Private Sub Form-KeyDown(KeyCode As Integer,Shift As Integer)

            X=ShowCursor(True) 

           End

       EndSub


       ’加载窗体时隐藏鼠标


       Private Sub Form-Load() 

           Dim X As Long 

           X=ShowCursor(False) 

           Picture1.Visible=False 

           Picture1.PICTure=LoadPICTure(“C:\windows\PIC.BMP”) 

           Picture1.Left=-Picture1.Width

       EndSub


       ’在窗体上移动鼠标时退出程序


      Private Sub Form-MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)

       Static currentX,currentY As Single

       Dim orignX,orignY As Single

       ’把当前的鼠标值赋给orignX和orignY


       orignX=X

       orignY=Y

       ’初始化currentX和currentY

       If currentX=0 And currentY=0 Then  

           currentX=orignX  

           currentY=orignY  

           ExitSub  

       EndIf


       If Abs(orignX-currentX)>1 Or Abs(orignY-currentY)>1

           Then X=ShowCursor(True)

           End   

       EndIf


      EndSub


      Private Sub Picture1-Click() 

       X=ShowCursor(True)

       End

      EndSub


      Private Sub Picture1-KeyDown(KeyCode As Integer,Shift As Integer)

       X=ShowCursor(True)

       End

      EndSub


      Private Sub Picture1-MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)

       Static Xlast,Ylast As Single

       Dim Xnow,Ynow As Single

       Xnow=X

       Ynow=Y

       If Xlast=0 And Ylast=0 Then

           Xlast=Xnow

           Ylast=Ynow

           ExitSub

       EndIf


       If Abs(Xnow-Xlast)>1 Or Abs(Ynow-Ylast)>1 Then

           X=ShowCursor(True)

           End

       EndIf


      EndSub


      Private Sub Timer1-Timer()

       Picture1.Visible=True

       Picture1.Top=(Form1.Height-Picture1.Height)/2

       Picture1.Left=Picture1.Left+50

       If Picture1.Left>Form1.Width Then

           Picture1.Left=-Picture1.Width

        EndIf

      EndSub

      将以上代码编译生成可执行文件,在保存文件对话窗中输入文件名称时把扩展名改为”SCR”,最后将生成的屏幕保护程序添加到Windows的系统下即可。

     

    转载于:https://www.cnblogs.com/JoinZhang/archive/2010/09/16/1814772.html

    展开全文
  • 设置方法:打开控制面板中的"显示"选择外观(appearance)-高级(advanced),然后在项目(items)那栏选“窗口”(windows),再点颜色(color)-其它颜色(others),然后把Hue(色调)为85,Sat(饱和度)为90,Lum(亮度)...
    第一种设置
      设置方法:打开控制面板中的"显示"选择外观(appearance)-高级(advanced),然后在项目(items)那栏选“窗口”(windows),再点颜色(color)-其它颜色(others),然后把Hue(色调)设为85,Sat(饱和度)设为90,Lum(亮度)设为205。然后单击添加到自定义颜色(Addtocustomcolors),按“确定”...一直确定。   把窗口设成绿色之后,再来把IE的网页背景也变成养眼的绿色 :打开IE,点击工具(TOOLS),点INTERNET选项(INTERNETOPTIONS),点右下角的辅助功能(Assessibility),然后勾选不使用网页中指定的颜色。
    
    第二种设置
      桌面->右键->属性->外观->高级->项目选择(窗口)、颜色1(L)选择(其它)将色调改为:85。饱和度:123。亮度:205->添加到自定义颜色->在自定义颜色选定点确定->确定这样所有的文档都不再是刺眼的白底黑字,而是非常柔和的豆沙绿色,这个色调是眼科专家配置的,长时间使用会很有效的缓解眼睛疲劳保护眼睛。
    
    电脑视力保护色的设置: 
        经常面对电脑会导致眼睛过度疲劳,白色对眼睛的刺激是最大的,所以,最好不要用白色做电脑背景色 设置方法如下【淡淡的苹果绿】: 在桌面点右键选"属性"(properties),接着点"外观"(appearance),点右下角的"高级"(advanced),然后在"项目"(items)的下拉菜单里选"窗口"(windows),再点它右侧的下拉菜单"颜色"(color),点下方的"其它"(others),然后把"色调"(Hue)设为85,"饱和度"(Sat)设为90,"亮度"(Lum)设为205。 (产品出厂时,一般分别设为160、0、240。) 然后单击"添加到自定义颜色"(Add to custom colors),按"确定"(OK)…… 一直"确定"(OK)下去。然后屏幕上会出现一个小Windows的画面,上写"请稍候"。 把窗口设成绿色之后,再来把IE的网页背景也变成养眼的绿色吧: 打开IE,点击"工具"(TOOLS),点最下方的"Internet选项"(INTERNET OPTIONS),点右下角的"辅助功能"(Assessibility),然后勾选第一个"不使用网页中指定的颜色"(ignore colors specified on web pages),然后点"确定"(OK)--确定……退出。OK啦,现在你就会发现你的屏幕已经变成淡淡的绿色了。其他视力保护色【根据自己喜好选择】   
    银河白 #FFFFFF rgb(255, 255, 255)   
    杏仁黄 #FAF9DE rgb(250, 249, 222)    
    秋叶褐 #FFF2E2 rgb(255, 242, 226)    
    胭脂红 #FDE6E0 rgb(253, 230, 224)    
    青草绿 #E3EDCD rgb(227, 237, 205)    
    海天蓝 #DCE2F1 rgb(220, 226, 241)    
    葛巾紫 #E9EBFE rgb(233, 235, 254)    
    极光灰 #EAEAEF rgb(234, 234, 239)

    展开全文
  • Windows操作平台有一个屏幕的保护措施,即屏幕保护功能。经常在Windows操作平台上使用电脑的人们对系统提供给我们的几个屏幕保护程序是不是感到非常平常了,没有新鲜感了,是不是想自己设计屏幕保护程序。下面介绍...
    Windows操作平台设有一个屏幕的保护措施,即屏幕保护功能。经常在Windows操作平台上使用电脑的人们对系统提供给我们的几个屏幕保护程序是不是感到非常平常了,没有新鲜感了,是不是想自己设计屏幕保护程序。下面介绍如何利用VB设计用户自己的屏幕保护程序。屏幕保护程序可以保护显示屏不被损坏,同时节约能源。作为屏幕保护程序,应该具有如下特性:

    align="right" marginwidth="0" marginheight="0" src="http://images.chinabyte.com/adjs/iframe-pip/y-software-pip.html" frameborder="0" width="360" scrolling="no" height="300">
    src="http://www.my5757.com/tj/adbottom.htm" frameborder="0" width="365" scrolling="no" height="50">
      1)屏幕保护程序运行时,鼠标光标被自动隐藏,在程序结束时,光标显示。2)当单击、移动鼠标或按下键盘时,屏幕保护结束,回到正常操作状态。为了实现这些特性,在编写VB应用程序时,可以采用如下方法:

      1、改变窗体属性通常VB应用程序的窗体都采用有边框的窗体外观,但作为屏幕保护程序,应设置窗体为无边框,且为最大化。

      2、隐藏及显示鼠标光标在Visual Basic应用程序中隐藏及显示鼠标光标需要运用Windows的API函数,该函数名为ShowCursor。当用参数值True调用时显示鼠标光标,当用参数值False调用时,鼠标光标自动隐藏。

      3、检测鼠标移动VB中有一个检测鼠标移动的对象事件MouseMove事件。MouseMove事件通常在应用程序启动时就会触发,有时在鼠标并未移动的情况下,MouseMove事件仍有可能被触发。因此如果在程序中直接用MouseMove事件检测鼠标是否发生了移动,并不能正确反映鼠标的移动状况。应该在MouseMove事件中编写代码加以控制。

      为了正确反映鼠标的移动,先用变量记录下程序运行时的鼠标当前位置,然后用另外一组变量记录鼠标移动后的位置,当鼠标移动前后的位置差大于一定范围时,触发MouseMove事件。编写代码如下:

    Private Sub Form-MouseMove(Button As Integer,shift As Inteqer,X As Single,Y As Single)
     Static currentX,currentY As Single
     Dim orignX,orignY As Single
     ’把当前的鼠标值赋给orignX和orignY
     orignX=X
     orignY=Y
     ’初始化currentX和currentY
     if currentX=0 and currentY=0 Then  
      currentX=orignX  
      currentY=orignY 
      Exit Sub
     Endif
     ’当鼠标移动大于一个象素时,显示鼠标光标并退出程序
     If Abs(oriqnX-currentX)>1 or Abs(orignY-currentY)>1Then 
      X=ShowCursor(True) 
      End
     Endif
    EndSub

      4、检测鼠标单击在Visual Basic中,单击事件是由“Click”触发的。当屏幕保护程序运行时遇到单击事件,则程序运行终止。代码编辑如下:

    Private Sub Form-Click()
     X=ShowCursor(True)
     End
    EndSub


      注意在结束之前先设光标的显示为真,以免在程序结束后丢失光标。

     5、检测键盘上各按键的状态Visual Basic中的键盘活动由KeyDown触发。代码与单击事件的代码一样。

    Private Sub Form-KeyDown(KeyCode As Integer,Shift As Integer)
     X=ShowCursor(True)
     End
    EndSub

      下面我们将设计一个简单的屏幕保护程序,该程序运行时,从左至右显示一张图片,图片从屏幕左边出现,至屏幕右面消失,象拉幕一样,且重不停复该过程。假设图片文件名为PIC.BMP,并存放在Windows文件夹中。实际操作如下:

      创建一新工程,在窗体中添加一图片框和一个Timer控件。设置它们的属性如下:

    Form   
    BackColor=&H80000007& 
    BorderStyle=0  ’None
    MaxButton=False 
    MinButton=False  
    Windowstate=2 ’Maximized
    Timer   
    Intelval=5
    PictureBox 
    BackColor=&H80000007&  
    BorderStyle=0 ’None  
    AutoSize=Ture

      输入代码如下:

    ’在窗体的声明部分声明ShowCursor函数。
    Private Declare Function ShowCursor Lib“user32”(By Val bShow As Long) As Long
     ’在窗体上单击鼠标时退出程序
     Private Sub Form-Click() 
      X=ShowCursor(True) 
      End 
     EndSub
     ’在窗体上按下按键时退出程序
     Private Sub Form-KeyDown(KeyCode As Integer,Shift As Integer) X=ShowCursor(True) 
      End
     EndSub
     ’加载窗体时隐藏鼠标
     Private Sub Form-Load() 
      Dim X As Long 
      X=ShowCursor(False) 
      Picture1.Visible=False 
      Picture1.PICTure=LoadPICTure(“C:/windows/PIC.BMP”) 
      Picture1.Left=-Picture1.Width
     EndSub
     ’在窗体上移动鼠标时退出程序
    Private Sub Form-MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
     Static currentX,currentY As Single
     Dim orignX,orignY As Single
     ’把当前的鼠标值赋给orignX和orignY
     orignX=X
     orignY=Y
     ’初始化currentX和currentY
     If currentX=0 And currentY=0 Then  
      currentX=orignX  
      currentY=orignY  
      ExitSub  
     EndIf
     If Abs(orignX-currentX)>1 Or Abs(orignY-currentY)>1
      Then X=ShowCursor(True)
      End   
     EndIf
    EndSub
    Private Sub Picture1-Click() 
     X=ShowCursor(True)
     End
    EndSub
    Private Sub Picture1-KeyDown(KeyCode As Integer,Shift As Integer)
     X=ShowCursor(True)
     End
    EndSub
    Private Sub Picture1-MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
     Static Xlast,Ylast As Single
     Dim Xnow,Ynow As Single
     Xnow=X
     Ynow=Y
     If Xlast=0 And Ylast=0 Then
      Xlast=Xnow
      Ylast=Ynow
      ExitSub
     EndIf
     If Abs(Xnow-Xlast)>1 Or Abs(Ynow-Ylast)>1 Then
      X=ShowCursor(True)
      End
     EndIf
    EndSub
    Private Sub Timer1-Timer()
     Picture1.Visible=True
     Picture1.Top=(Form1.Height-Picture1.Height)/2
     Picture1.Left=Picture1.Left+50
     If Picture1.Left>Form1.Width Then
      Picture1.Left=-Picture1.Width
      EndIf
     EndSub

      将以上代码编译生成可执行文件,在保存文件对话窗中输入文件名称时把扩展名改为”SCR”,最后将生成的屏幕保护程序添加到Windows的系统下即可。
    展开全文
  • 一、把白皑皑的窗口变成淡淡的苹果绿...二、如何调整网页指定的颜色屏幕设置成保护眼睛的颜色 你要先进行设置,打开浏览器,点击“工具”,点“INTERNET”选项,点右下角的“辅助功能”,然后勾选“不使用网页中...
    一、把白皑皑的窗口变成淡淡的苹果绿。
    方法是:桌面-右键-属性-外观-高级-项目-窗口-颜色-其它,色调设为85,饱和度设为90,亮度设为205。然后单击[添加到自定义颜色]-确定...一路确定。

    二、如何调整网页指定的颜色屏幕设置成保护眼睛的颜色

    你要先进行设置,打开浏览器,点击“工具”,点“INTERNET”选项,点右下角的“辅助功能”,然后勾选“不使用网页中指定的颜色”。点确定退出。OK!
    现在打开[我的电脑]或[资源管理器][浏览器〕看看,原来的冰天雪地是不是已有了春意!天长日久,对眼睛的养护作用是不可低估的。
    展开全文
  • 长时间盯着电脑屏幕,会对眼睛造成极大的伤害。眼睛过度疲劳容易得干眼症,医生建议电脑屏幕不要用白色,因为白色对眼睛的刺激是...一、把窗口成绿色:    打开控制面板中的"显示"选择外观(appe...
  • 设备配置(device configuration)用以描述设备当前状态,包括:屏幕方向、屏幕密度、屏幕尺寸、键盘类型、语言等。配置若在运行时发生变化(runtime configuration change),Android 会寻找更合适的资源以匹配设备...
  • 经过以上设置后,当系统进入锁定状态时,其他用户就再也不能解除其他用户就再也不能解除屏幕保护程序状态了,无论怎么晃动鼠标或敲击键盘也不会出现任何要求输入密码的窗口。而唯一的解除方法就是你自己做回电脑前...
  • 应该如何制作屏幕保护程序 如何在Visual C++ 6.0中用回车键切换输入焦点 如何实现类似QQ程序的界面 如何一步一步地弹出和关闭窗口 如何弹出鼠标提示窗口 如何制作类似Windows任务栏的窗口 第5章 SDI和MDI窗口 文档...
  • 哪些第三方跟踪者可以访问访问者数据,并且如何保护这些数据? 政府网站是否遵循基本的最佳实践来利用安全连接? 尽管我们有一个用于监视危险桥梁的和用于监视其他核心基础设施问题的其他联邦机构,但对于我们的...
  • 大家都知道,电脑屏幕闪烁对人眼的损伤是比较严重的,尤其是长期在电脑面前工作的人群,他们的眼睛更需要额外保护。为此,我们收集了一些这方面的知识,大家现在就一起来看看我们网站为广大IT人整理的这篇眼保须知吧...
  • 多媒体教室

    2013-06-14 08:10:31
    如果网络中有 Windows NT 4.0 或 Windows 2000 服务器,并且服务器上安装有 DHCP 服务,此时学生机网卡所绑定的 TCP/IP 协议的设置上可以为自动获取 IP 地址。如果网络中没有服务器或服务器上没有安装 DHCP 服务,...
  • 如果我将指针值为0,编译器可能会自动将它转换为非零的空指针内部表示。 62  5.20 运行时的“null pointer assignment”错误是什么意思?应该怎样捕捉它? 62 第6章 数组和指针 63 数组和指针的基本关系 ...
  • VB编程资源大全

    2007-10-17 20:47:23
    30,rgassistant.ZIP 个人助手界面的实现 cool(46KB) 31,winrgn.ZIP 使用 createpolygonrgn 和 setwindowregion 来创建一个“稀奇古怪”的可以动窗口(3KB) 32,vform.ZIP 建立大于屏幕的虚拟...
  • 《你必须知道的495个C语言问题》

    热门讨论 2010-03-20 16:41:18
    3.21 “无符号保护”和“值保护”规则的区别在哪里? 42 第4章 指针 45 基本的指针应用 45 4.1 指针到底有什么好处? 45 4.2 我想声明一个指针并为它分配一些空间,但却不行。这些代码有什么问题呢?char ...
  • 保护你的开始菜单不被修改,打开注册表的HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,新建一个DWORD,名字叫做NoChangeStartMenu,修改它的值为1,重新启动计算机即可。...
  • 实例171 歌曲播放屏幕保护程序 251 第6章 文件系统 253 6.1 创建和删除文件 254 实例172 创建和删除文件夹 254 实例173 建立临时文件 255 实例174 根据日期动态建立文件 256 实例175 清空回收站 257 ...
  • 你必须知道的495个C语言问题

    千次下载 热门讨论 2015-05-08 11:09:25
    如果我将指针值为0,编译器可能会自动将它转换为非零的空指针内部表示。 5.20运行时的“nullpointerassignment”错误是什么意思?应该怎样捕捉它? 第6章 数组和指针 数组和指针的基本关系 6.1 我在一个...
  • C#.net_经典编程例子400个

    热门讨论 2013-05-17 09:25:30
    250 实例170 电子相册屏幕保护程序 250 实例171 歌曲播放屏幕保护程序 251 第6章 文件系统 253 6.1 创建和删除文件 254 实例172 创建和删除文件夹 254 实例173 建立临时文件 255 ...
  •  实例171 歌曲播放屏幕保护程序 251  第6章 文件系统 253  6.1 创建和删除文件 254  实例172 创建和删除文件夹 254  实例173 建立临时文件 255  实例174 根据日期动态建立文件 256  实例175 ...
  • 如果我将指针值为0,编译器可能会自动将它转换为非零的空指针内部表示。  5.20运行时的“nullpointerassignment”错误是什么意思?应该怎样捕捉它?  第6章 数组和指针  数组和指针的基本关系 6.1 我在一个...
  • 如果我将指针值为0,编译器可能会自动将它转换为非零的空指针内部表示。 5.20运行时的“nullpointerassignment”错误是什么意思?应该怎样捕捉它? 第6章 数组和指针 数组和指针的基本关系 6.1 我在一个...
  • “Ctrl+Alt+Del”组合键或屏幕保护程序。操作方法:在桌面上单击鼠标右 键,在随后出现的快捷菜单上指向“新建”,并选择“快捷方式”。接着, 系统便会启动创建快捷方式向导。请在文本框中输入下列信息: rundll...
  • 3.21 “无符号保护”和“值保护”规则的区别在哪里? 71 第4章 指针 74 基本的指针应用 74 4.1 指针到底有什么好处? 74 4.2 我想声明一个指针并为它分配一些空间,但却不行。这些代码有什么问题呢?char *p; *p...
  • 3.21 “无符号保护”和“值保护”规则的区别在哪里? 71 第4章 指针 74 基本的指针应用 74 4.1 指针到底有什么好处? 74 4.2 我想声明一个指针并为它分配一些空间,但却不行。这些代码有什么问题呢?char *p; *p...
  • C#程序开发范例宝典

    2010-12-15 20:05:16
    第1章 窗体与界面设计....... 1 1.1 菜单应用实例.........实例171 歌曲播放屏幕保护程序...... 251 第6章 文件系统....... 253 6.1 创建和删除文件...... 254 实例172 创建和删除文件夹.........
  • IW:Idlewild屏幕保护程序 IWC:Install Watch文档 J J62:Ricoh照相机格式 JAR:Java档案文件(一种用于applet和相关文件的压缩文件) JAVA:Java源文件 JAR:Java档案文件(一种用于applet和相关文件的压缩...

空空如也

空空如也

1 2 3
收藏数 52
精华内容 20
关键字:

如何设屏幕保护