孙老师请进,请教您的屏保程序:
vb吧
全部回复
仅看楼主
level 3
ggyy667 楼主
孙老师请进,请教您的屏保程序:
生成scr文件后,将其拷到c:\windows\system32\下,然后右键桌面-》属性-》屏幕保护程序-》,然后选择生成的 scr文件,发现不能在小窗口进行显示,直接执行屏保了。
可是我发现别的屏保,都是可以选择后,出现在小窗口进行预览的,不知为什么,您的程序不能显示在小窗口,请教如何修改程序可以满足我的需求?
2009年08月24日 07点08分 1
level 3
ggyy667 楼主
再述:
别的屏保程序,选择后,可以出现在小窗口中,然后点下旁边的预览按钮,才执行。
可是您的程序,只要选择,马上就执行。然后点下确定,再次执行屏保,这是为什么呢?
能否做成与别的屏保一样的功能呢?
2009年08月24日 07点08分 2
吧务
level 7
贴了个简易屏保的代码,可以达到你的要求,只是百度还得审核,等着吧,呵呵!
2009年08月24日 07点08分 3
level 8
需要处理/P命令行参数。参考下楼上代码
2009年08月24日 07点08分 6
吧务
level 7
把这个代码贴到VB窗口中就可以了,不用添加控件什么的,呵呵!
2009年08月24日 07点08分 7
吧务
level 7
对了,如果要在VB中直接运行的话要先去 工程 属性中的生成选项卡里边设置一下命令行参数,随便输入点内容,别是/C、/P就可以了。
2009年08月24日 07点08分 8
level 3
ggyy667 楼主
'获取命令行参数
    S = UCase(Left(Command, 2))
     
    If S = "/P" Then                            '小窗口中显示
        H = CLng(Mid$(Command, 4))              '小窗口的句柄
        SetParent Me.hwnd, H
    ElseIf S = "/C" Or Len(Command) = 0 Then    '设置
        MessageBox Val(Mid$(Command, 4)), "此屏幕保护程序没有可供设置的选项!", "屏保程序", 48
        Unload Me
        Exit Sub
    End If
--------------------------------------
这几行我看不明白,哪位老师讲讲呢
2009年08月24日 07点08分 9
level 3
ggyy667 楼主
/p,/c
分别代表什么意思呢?
请指教。
我在命令行参数中随便加一个,可以运行了。
但是不知 /p,/c这两个参数的作用是什么?
2009年08月24日 07点08分 10
level 8
/c是指在“显示属性”窗口的“屏幕保护程序”处选择了“设置”按钮
/p是指选择某个屏幕保护程序后在校窗口中预览
2009年08月24日 07点08分 11
level 0
新手疑问:
上面简易屏保程序中,怎么知道父窗体句柄H为0?
还是说所有程序父窗体句柄都为0。。
2009年08月24日 14点08分 12
level 8
句柄不能为0。上面代码中也没有句柄为0呀。
H = CLng(Mid$(Command, 4))从命令行参数中获取父窗口句柄
2009年08月24日 15点08分 13
吧务
level 7
是的,是从命令行获取的,如果没从命令行获取的话H没有设置值,VB定义的Long型的变量在定义的时候自动被设置为0了,所以直接判断0了,呵呵!
2009年08月24日 15点08分 14
1