实例一桌面设置程序及方案.docVIP

实例一 桌面设置程序 【程序说明】 本例实现了修改桌面背景和屏幕保护程序两个功能，完全与Windows系统提供的桌面属性设置完全一样。通过本例，读者可以掌握System.ini文件的修改方法、如何实现利用VB编程预览屏幕保护程序和墙纸。程序运行效果如图所示。 图201 【编程思路】 实例界面完全模仿Windows系统的桌面属性设置界面，利用Image控件实现背景图片预览，当用户选定墙纸图片后，直接调用WindowsAPI函数：SystemParametersInfo修改系统，实现墙纸的更改；利用Frame控件作为屏幕保护程序的运行容器实现屏幕保护程序的预览，当用户选定屏幕保护后，直接调用WindowsAPI函数：WritePrivateProfileString和SystemParametersInfo完成屏保设置。 【编程步骤】 1.启动VB，建立一个标准的EXE工程。 2.添加控件： （1）添加标签控件：本例使用了标签控件SStab，该控件是一个OCX控件，在VB的标准工具栏上没有，必须手工添加：用鼠标右击标准工具栏空白区域，选择“部件”，在弹出的对话框中选定“Microsoft Tabbed Dialog Control 6.0”，按“确定”后，在标准控件工具栏上会自动加上一个控件，它就是SStab控件，用鼠标选中它，将其加入到Form1中并调整好它的位置和大小。Sstab控件默认有三个标签，本程序只需要两个，将SSTab的Tabs和TabsPerow的属性都修改为“2”，这样，SSTab就剩下两个标签了。 图202 （2）添加其他控件： 单击SSTab的第一个标签，在上面添加一个Image控件，用于预览被选定的背景图片、一个FilelistBox,于显示背景图片文件名和一个CommandButton控件用于，确认修改。控件添加完成后，调整好他们的大小和位置，如图所示。 图203 单击SSTab的第二个标签，在上面添加一个Frame控件，用于预览屏幕保护程序、一个FileListBox用于显示屏幕保护程序文件名、三个CommandButton控件，分别用于修改屏保密码、设置屏保属性和确认修改。以上控件添加完成后，调整好它们的大小和位置，如图所示。 图204 1.按下表修改控件属性： 控件名称 对象名称 控件属性 设置值 Image Image1 BorderStyle 1-Fixed Single Stretch True FileListBox File1 Pattern *.bmp;.html File2 Pattern *.scr Frame Frame1 Caption 空 CommandButton Command1 Caption 应用 Command2 Caption 应用 Command3 Caption 设置 Command4 Caption 修改密码 2.编写代码： （1）WindowsAPI函数的声明： 下面一条函数用来修改屏保密码： Private Declare Function PwdChangePassword Lib mpr Alias PwdChangePasswordA （ByVal lpcRegkeyname As String, ByVal hwnd As Long, ByVal uiReserved1 As Long, ByVal uiReserved2 As Long） As Long 下面两条函数分别用来取得当前电脑上安装Windows的目录和System目录： Private Declare Function GetWindowsDirectory Lib kernel32 Alias GetWindowsDirec- toryA （ByVal lpBuffer As String, ByVal nSize As Long） As Long Private Declare Function GetSystemDirectory Lib kernel32 Alias GetSystemDirectoryA （ByVal lpBuffer As String, ByVal nSize As Long） As Long 下面一条函数用来修改System.ini文件： Private Declare Function WritePrivateProfileString Lib kernel32 Alias WritePrivateProfileString A （ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFile