如何用VB做屏保（*.src）

在Windows XP中制作屏保

在Windows XP中增加了许多个性化设置，就说它的屏保吧，也不再像Win9x那样死板，利用Windows XP的屏保程序我们可以自己制作个性化的屏保，不信请跟我来。

1、确保在您的计算机的一个文件夹中有两张或更多的图片。您可以从数码相机或扫描仪上传图片，或者从Internet上下载自己喜欢的图片。把欲作为屏保的图片保存在同一个文件夹中，比如将它们存放在“我燃穗的文档”中的“图片收藏夹”文件夹中。

2、在桌面上点击鼠标右键，在d出的快捷菜单中选择“属性”，打开“显示”属性对话框，然后选择“屏幕保护程序”标签，在“屏幕保护程序”下拉框中选择“图片收藏幻灯片”，点击“设置”按钮，进入“图片收藏屏幕保护程序选项”对话框。

3、在“图片收藏屏幕保护程序选项”中，点击“浏览”按钮，找到“我的文档”中的“图片收藏夹”文件夹，点击“确定”按钮。

4、接下来我们开始设置显示效果，拖动“更换图片的频率”下的滑块以设置屏幕上转换图片的御含快慢，可选择的时间范围在6～180秒之间；拖动“图片的尺寸”下的滑块，可以设置图片占用屏幕空间的百分比，最小为25%，最大为全屏；选中“拉伸尺寸小皮拆卜的图片”复选框，则可以使得较小的图片占用更多的屏幕空间，但有时会出现图片失真现象；选中“显示文件名”复选框，则在图片的左上角同时标明文件的路径和名称；选中“图片间使用过渡效果”复选框，则在更换图片时使用动画效果或稍有停顿；选中“允许使用键盘滚动图片”复选框，则屏幕保护处于启动状态时，可以使用方向键“←”、“→”或“↓”来快速查看图片，而不撤消屏幕保护状态。

5、设置好之后，点击“确定”按钮，退出设置窗口。你可以马上点击“预览”按钮察看一下效果。怎么样，还比较满意吧

您是否曾经希望了解如何检索要在您自己的应用程序中使用的特定文件的属性？如果您要在 VB NET 中开发的应用程序依赖于特定的环境 那么在执行程序中的代码之前 您需要检查文件的属性 例如 您可能需要了解特定文局喊件随之发行的产品 或者是文件的版本号 在 VB NET 中 借助 GetVersionInfo 方法和 FileVersionInfo 类 要获得这些信息简直易如反掌 　如果启动 Windows 资源管理器 右击一个文件名 然后从d桐键野出式菜单中选择 属性 则会看到该文件的 属性 窗口 属性 窗口显示了选定文件的有关信息 假设您在任务管理器的 TASKMAN EXE 文件名上右击 图 显示了该文件的 属性 对话框 　

)this style width= >

通过使用 FileVersionInfo 类 您可以在 VB NET 应用程序中提供相同的功能 根据应用程序的需要 您可以复制 属性 对话框中显示的全部信息 也可以复制其中的一部分 图 显示了我们将要创建的应用程序 它将用来复制 属性 对话框中显示的部分信息

image javascript:return big(this) src= //img educity cn/img_ / / / jpg javascript:if(this width>)this style width= >

要创建演示程序 请启动 VB NET 并开始一个名为 Retrieving File Properties（检索文件属性）的新项目 按照图 所示 向 Form 添加七个文本框控件 七个标签控件和一个按钮控件 接下来 将以下代码添加到 Get Properties（获取属性）按钮的 Click 事件

borderColorDark=#ffffff cellPadding= width= align=center borderColorLight=black border= >e e >

Private Sub Button _Click(ByVal sender _As System Object ByVal e As System EventArgs) _Handles Button Click 获取记事本的文件版本Dim FileProperties As FileVersionInfo = FileVersionInfo GetVersionInfo( C:\WINNT\taskman exe ) 检索文件说明（名称）TextBox Text = FileProperties FileDescription 检索文件版本TextBox Text = FileProperties FileVersion 检索文件的内部名称TextBox Text = FileProperties InternalName 检索文件的旧名称TextBox Text = FileProperties OriginalFilename 检索产品名称TextBox Text = FileProperties ProductName 检索产品版本TextBox Text = FileProperties ProductVersion 检索语言TextBox Text = FileProperties LanguageEnd Sub

现在 按 F 键执行该应用程序 当您单击 Get Properties（获取属性）按钮时 程序将显示 TASKMAN EXE 文件的有关信息 如图 中所示

Get Properties（获取属性）按钮的 Click 事件代码调用 GetVersionInfo 方法 该方法返回一亮历个 FileVersionInfo 类 其中包括您所指定的文件的所有版本信息 您需要向 GetVersionInfo 方法提供一个完全限定的文件 如果没有指定正确的路径名 则该方法仅返回文件名本身 而不返回文件信息 调用 GetVersionInfo 后 就像我们在演示程序中所做的一样 只需通过类就可以检索特定的属性 　FileVersionInfo 类包含很多属性 您可以通过查询这些属性来检索文件信息 表 仅显示了我们在演示程序中查询的属性 但是可以在 MSDN 中通过搜索 FileVersionInfo 类说明找到完整的列表 　表 FileVersionInfo 类可以使用的属性　

cellSpacing= cellPadding= width= border= >% >

属性

% >

说明

% >

FileDescription

% >

检索指定文件的说明

% >

FileVersion

% >

检索指定文件的版本号

% >

InternalName

% >

检索指定文件的内部名称 （并不是所有的文件都关联有内部名称 ）

% >

OriginalFilename

% >

检索指定文件在首次创建时最初被赋予的名称

% >

ProductName

% >

检索指定文件的产品名称 它是此文件随之发行的产品的名称 （并不是所有的文件都关联有产品名称 ）

% >

ProductVersion

% >

检索指定文件的产品版本 它是 ProductName 属性的版本

% >

Language

% >

检索指定文件的版本资源中的 Microsoft 语言标识符（显示为字符串）

lishixinzhi/Article/program/net/201311/12277

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long\x0d\x0aPrivate Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long\x0d\x0aPrivate Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aDim hdc As Long\x0d\x0ahdc = GetDC(0)\x0d\x0aBitBlt Picture2.hdc, 0, 0, Me.Picture1.Width, Picture1.Height, hdc, Me.Left /闹敏坦 15 + 8 + Picture1.Left, Me.Top / 15 + 30 + Me.Picture1.Top, vbSrcCopy\x0d\x0aReleaseDC 0, hdc\x0d\x0aEnd Sub一个按钮 两个picturebox\x0d\x0a\x0d\x0a不知你有没有边框。。液桐我这个是加了边框的（边框就是标题栏什么的。。）不加边框的话把拿辩8,30去掉即可。。\x0d\x0a还有假如是.net的改的就多了。。不知需要否。。

---