发信人: plindge()
整理人: winsy(2003-03-05 15:53:24), 站内信件
|
【 在 bandy_hong (小斌斌) 的大作中提到: 】
: VB如何调用win98的屏保？我用如下代码：
: Dim AppScr As Variant
: AppScr = Shell("d:\pwin98\system\gigi.scr", vbNormalNoFoc
: us)
: .......
建立一个模块plindge.bas
Public Const WM_SYSCOMMAND = &H112&
Public Const SC_SCREENSAVE = &HF140&
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal _
lParam As Long) As Long
form1中放一个CommandButton
Call SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
--
---欢迎光临品琳居---
一个情感交流与编程交流的清幽小居！
大量VB源程序、VFP商用源程序供下载！
Http://plindge.163.net
Http://plindge.yeah.net
---欢迎光临品琳居---
※ 修改:．plindge 于 Jul 27 13:35:58 修改本文．[FROM: 202.103.139.239]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.139.239]
|
|