一个新奇和笨拙的VB屏保

感谢 link_hou@sina.com 为本站供稿

说它新奇是因为它要用一个叫FRMshell的窗体打开一个通用对话框来选择屏保用的声音和图片，生成一个文本文件来存放文件名，说它笨拙是因为还要“人工脱壳”——移除这个叫FRMshell的窗体，这样这个屏保第二次打开时直接调用那个存放文件名的文本文件，来执行屏保，新奇吧？笨拙吧？好了，OK，Let''s go !
1、新建一个名称叫FRMshell的窗体，高为6300，宽为7000，其caption属性为“我的vb屏保”，StartupPosition属性设置为2，在窗体上添加一个图象框控件，名称为默认的image1,高为5000，宽为6667，点击“工程”“部件”，添加Microsft common dialog control 6.0这个通用对话框，名称叫Dlg1，在窗体上新建4个命令按钮，名称默认，style属性为1，四个命令按钮的caption属性分别为“选择声音和图片文件”“将这个文件存入屏保”“试试屏保效果”“完毕（先看看说明文件）”，它们的大小和位置自行安排。
2、新建两个模块，名称叫MODmain和MODconst
3、新建一个名称叫FRMmain的窗体，在窗体上添加一个时钟控件，名称用默认的名字timer1
4、在这个程序所在的文件夹里，放一个jpg图片，改名为“背景”，做为这个程序的背景。
5、写下如下代码（见文章的后面）
6、在“工程”菜单上选择“工程1属性”，出现一对话框，在“启动对象”下拉菜单中选择FRMshell，确定。
7、运行一下程序，出现一个画面，点击“选择声音和图片文件”按钮，选择图片和声音文件，打开的同时就能看到和听到效果了，你可以点击“将这个文件存入屏保”按钮，选择完毕，你可以点击“试试屏保效果”按钮，不满意可以继续增加图片和改变声音，满意的话，点击“完毕（先看看说明文件）”按钮，这时将回到VB编辑状态。
8、在编辑状态右边“工程资源管理器”中，在FRMshell项目上点击右键，选择移除showopen.frm。在“工程”菜单上选择“工程1属性”，出现一对话框，在“启动对象”下拉菜单中选择FRMmain，确定。
9、又回到编辑状态，在文件菜单下选择生成“工程1.exe”，出现一个新的对话框，将文件名改为你喜欢的名字，扩展名为“.scr”，存到c:\windows 或者\winnt\system32目录下。
10、下面的还问我吗？对了，别忘了关闭这个工程时电脑问你是否保存的时候要选否。 ^_^      link_hou@sina.com

附：源代码
    Option Explicit ''FRMmain
    Dim OldX As Integer ''定义存放旧的鼠标水平坐标
    Dim OldY As Integer ''定义存放旧的鼠标垂直坐标
    Dim pic_musicfile As String
    ''在C盘亘目录下建立一个文件来存放选择的图片和声音文件名，这个变量是选择的声音或图片文件名
    Dim i As Integer ''定义循环变量
    Dim music As String  ''定义传递声音文件的变量
    Dim pic() As New StdPicture ''定义一个图片类的动态数组
    Dim picnum As Integer  ''定义动态数组的数目
    Private Sub Form_Load()
    OldX = -1 ''为旧鼠标水平坐标赋初值
    OldY = -1 ''为旧鼠标垂直坐标赋初值
    picnum = 0 ''自己设置图片数目，先设置初值
    i = 1 ''为循环变量赋初值
    Timer1.Interval = 2000
    music = ""
    FRMmain.BorderStyle = 0
    ReDim pic(100)