vb点虐 如何打开屏保 vbnet tabpage
用VB制做可换图片的屏幕保护程序
VC＋＋可谓神通广大，如果学到家了，或者就掌握了那么一点MFC，你也会感到它的方便快捷，当然最重要的是功能强大。不是吗，从最基本的应用程序.EXE到动态连接库DLL，再由风靡网上的ActiveX控件到Internet Server API，当然，还有数据库应用程序……瞧，我都用它来做屏幕保护程序了。一般的屏幕保护程序都是以SCR作为扩展名，并且要放在c:\windows 目录或 c:\windows\system 目录下，由Windows 98内部程序调用（Windows NT 是在 c:\windows\system32 目录下）。怎么调用？不用说了，这谁不知道。
成都创新互联公司服务紧随时代发展步伐，进行技术革新和技术进步，经过10多年的发展和积累，已经汇集了一批资深网站策划师、设计师、专业的网站实施团队以及高素质售后服务人员，并且完全形成了一套成熟的业务流程，能够完全依照客户要求对网站进行成都网站设计、成都网站建设、外贸网站建设、建设、维护、更新和改版，实现客户网站对外宣传展示的首要目的，并为客户企业品牌互联网化提供全面的解决方案。
好了，我们来作一个简单的。选择MFC AppWizard(exe)，Project Name 为MyScreensaver，[NEXT]，对话框，再后面随你了。打开菜单Project、Settings，在Debug页、Executable for debug session项，以及Link页中Output file name项改为c:\windows\MyScreensaver.scr，这样，你可以调试完后，直接在VC中运行（Ctrl＋F5），便可看到结果。当然，这样做的唯一缺点是你必须手动清除Windows 目录下的垃圾文件（当然是在看到满意结果后；还有，你可借助SafeClean 这个小东东来帮你清除，除非你的硬盘大的让你感到无所谓……快快快回来，看我跑到那里去了）。接下来用Class Wizard生成CMyWnd类，其基类为CWnd(在Base Class 中为generic CWnd)。这个类是我们所要重点研究的。创建满屏窗口、计时器，隐藏鼠标，展示图片，响应键盘、鼠标等等，这家伙全包了。至于MyScreensaverDlg.h与MyScreensaverDlg.cpp文件我们暂时不管。打开MyScreensaver.cpp，修改InitInstance()函数：
BOOL CMyScreensaverApp::InitInstance()
{
AfxEnableControlContainer();
＃ifdef _AFXDLL
Enable3dControls(); // Call this when using MFC in a shared DLL
＃else
Enable3dControlsStatic(); // Call this when linking to MFC statically
＃endif
CMyWnd＊ pWnd = new CMyWnd;
pWnd－Create();
m_pMainWnd = pWnd;
return TRUE;
}
当然，再这之前得先 ＃include “MyWnd.h" 。后面要做的都在MyWnd.h 与 MyWnd.cpp 两文件中了。
下面给出CMyWnd 的说明：
class CMyWnd : public CWnd
{
public:
CMyWnd();
static LPCSTR lpszClassName; //注册类名
public:
BOOL Create();
public:
// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CMyWnd)
protected:
virtual void PostNcDestroy();
//}}AFX_VIRTUAL
public:
virtual ～CMyWnd();
protected:
CPoint m_prePoint; //检测鼠标移动
void DrawBitmap(CDC＆ dc, int nIndexBit);
//{{AFX_MSG(CMyWnd)
afx_msg void OnPaint();
afx_msg void OnKeyDown(UINT nChar, UINT nRepCnt, UINT nFlags);
afx_msg void OnLButtonDown(UINT nFlags, CPoint point);
afx_msg void OnMButtonDown(UINT nFlags, CPoint point);
afx_msg void OnMouseMove(UINT nFlags, CPoint point);
afx_msg void OnRButtonDown(UINT nFlags, CPoint point);
afx_msg void OnSysKeyDown(UINT nChar, UINT nRepCnt, UINT nFlags);
afx_msg void OnDestroy();
afx_msg void OnTimer(UINT nIDEvent);
afx_msg void OnActivate(UINT nState, CWnd＊ pWndOther, BOOL bMinimized);
afx_msg void OnActivateApp(BOOL bActive, HTASK hTask);
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
};
MyWnd.cpp 文件：
……
CMyWnd::CMyWnd()
{
m_prePoint=CPoint(－1, －1);
}
LPCSTR CMyWnd::lpszClassName=NULL;
BOOL CMyWnd::Create()
{
if(lpszClassName==NULL)
{
lpszClassName=AfxRegisterWndClass(CS_HREDRAW CS_VREDRAW,
::LoadCursor(AfxGetResourceHandle(),MAKEINTRESOURCE(IDC_NOCURSOR)));
//注册类；IDC_NOCURSOR为新建光标的ID，这个光标没有任何图案
}
CRect rect(0, 0, ::GetSystemMetrics(SM_CXSCREEN),
::GetSystemMetrics(SM_CYSCREEN));
CreateEx(WS_EX_TOPMOST, lpszClassName, _T(“”), WS_VISIBLE WS_POPUP,
rect.left, rect.top, rect.right － rect.left, rect.bottom － rect.top,
GetSafeHwnd(), NULL, NULL); //创建一个全屏窗口
SetTimer(ID_TIMER, 500, NULL);//计时器，ID_TIMER别忘了定义
return TRUE;
}
为了防止同时运行两个相同的程序，下面两个函数是必需的：
void CMyWnd::OnActivate(UINT nState, CWnd＊ pWndOther, BOOL bMinimized)
{
CWnd::OnActivate(nState,pWndOther,bMinimized);
if (nState==WA_INACTIVE)
PostMessage(WM_CLOSE);
}
void CMyWnd::OnActivateApp(BOOL bActive, HTASK hTask)
{
CWnd::OnActivateApp(bActive, hTask);
if (!bActive) //is being deactivated
PostMessage(WM_CLOSE);
}
OnPaint()函数将全屏窗口置为黑色：
void CMyWnd::OnPaint()
{
CPaintDC dc(this);
CBrush brush(RGB(0,0,0));
CRect rect;
GetClientRect(rect);
dc.FillRect(＆rect, ＆brush);
}
由计数器调用DrawBitmap()函数，切换图片；注意，下面两个函数中的IDB_BITMAP1, dc.BitBlt(0,0,800,600……以及if(nIndexBit=5)中的有关数据依据你的bmp图片个数、尺寸、位置不同而不同，我是选择了5张800x600的bmp图片。注意，ID值是连续的，IDB_BITMAP1最小。
void CMyWnd::DrawBitmap(CDC ＆dc, int nIndexBit)
{
CDC dcmem;
dcmem.CreateCompatibleDC(＆dc);
CBitmap m_Bitmap;
m_Bitmap.LoadBitmap(IDB_BITMAP1＋nIndexBit);
dcmem.SelectObject(m_Bitmap);
dc.BitBlt(0,0,800,600,＆dcmem,0,0,SRCCOPY);
}
void CMyWnd::OnTimer(UINT nIDEvent)
{
CClientDC dc(this);
static nIndexBit=0;
if(nIndexBit=5)
nIndexBit=0;
DrawBitmap(dc, nIndexBit＋＋);
CWnd::OnTimer(nIDEvent);
}
响应键盘、鼠标是屏幕保护程序不可缺少的，在OnKeyDown()、 OnLButtonDown()、 OnMButtonDown()、OnRButtonDown()、OnSysKeyDown()函数中都加入：
PostMessage(WM_CLOSE);
OnMouseMove()函数比较特殊，它应加的代码为：
if(m_prePoint == CPoint(－1,－1))
m_prePoint = point;
else if(m_prePoint!=point)
PostMessage(WM_CLOSE);
快要完工了。在OnDestroy()函数中删掉计时器：KillTimer(ID_TIMER);
还有啦，在CMyWnd::PostNcDestroy() 中加入： delete this;
哎呀，腰酸背疼，眼球发涩，手背奇麻（不会吧）！不过，相信你一定会迫不及待地按下Ctrl＋F5, 看着一幅幅图片在你面前轮番展示，啊，自己的屏幕保护程序！赶快赶快，换上自制的屏保，感觉就是不一样：图片任你挑，时间间隔任你改，鼠标？键盘？我想响应谁就响应谁……哎呀，谁扔的纸团:(。
其实，上面的程序还有很多可以改进的地方，比如图片总是单一地显示；bmp 文件太大，导致生成的屏幕保护程序也很大，远没有jpg合算；没有密码，没有可直接控制的界面。由于InitInstance()函数的简单处理（直接调用CMyWnd类），你会发现当你在桌面上右击，选择“属性”、“屏幕保护程序”页、“屏幕保护程序”下拉菜单、选中MyScreensaver时，MyScreensaver就直接预览了（或是直接运行了）；假设你确定MyScreensaver作为你的屏幕保护程序，等你第二次进入“屏幕保护程序”页时，就直接预览。Why? 回头看看InitInstance()函数就明白了。为了让它更听话地工作，可修改InitInstance()函数：
LPTSTR lpszArgv = __argv[1];
if (lpszArgv[0] ==‘/’)
lpszArgv＋＋;
if (lstrcmpi(lpszArgv, _T(“s”))==0)
{
CMyWnd＊ pWnd=new CMyWnd;
pWnd－Create();
m_pMainWnd=pWnd;
return TRUE;
}
return FALSE;
不过现在你要是再在VC中运行这个程序，“该程序执行了非法操作，即将关闭。将会伴随着一超重低音供你欣赏。（啊？）原因是我们加了一句return FALSE; 还有，别忘了还有一个CMyScreensaverDlg类没有用上，用它来与你的屏保直接对话再好不过了。例如，为了方便地确定时间间隔，选取图片，加上一个编辑框和几个按钮就可以了。重申一点，由于生成文件较大，占用的内存也多，如果不能运行，很可能是开的窗口太多了。这时你可以换较小的图片。
vb点虐 屏幕保护程序
系统就有这个屏保啊!~!
Option EXPlicit
Dim quitflag As Boolean '声明终止程序标志变量
Dim lleft
'声明隐藏或显示鼠标的API函数
Private Declare Function ShowCursor Lib "user32"
(ByVal bShow As Long) As Long
'检测鼠标单击或移动
Private Sub Form_Click()
quitflag = True
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)
Static xlast, ylast
Dim xnow As Single
Dim ynow As Single
xnow = X
ynow = Y
If xlast = 0 And ylast = 0 Then
xlast = xnow
ylast = ynow
Exit Sub
End If
If xnow xlast Or ynow ylast Then
quitflag = True
End If
End Sub
'检测按键
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
quitflag = True
End Sub
Private Sub Form_Load()
Dim X As Long
lleft = 0
'横向滚动文字的起始X坐标
If App.PrevInstance = True Then
'用APP对象的PrevInstance属性
Unload Me
'防止同时运行屏幕保护程序的两个实例
Exit Sub
End If
Select Case Ucase$(Left$(Command$, 2))
'装载命令行参数
Case "/S" '在显示器属性对话框中单击了
预览按钮或屏幕保护程序被系统正常调用。
Show
'全屏显示Form1窗体
Randomize
'初始化随机数生成器
X = ShowCursor(False)
'隐藏鼠标
BackColor = VBBlack
Do
Timer2.Enabled = True
'启动Timer2 ,显示屏幕保护滚动文字
DoEvents
'转让控制权,以便检测鼠标和按键行为
Loop Until quitflag = True
'运行屏幕保护滚动文字直至有鼠标和按键行为
Timer2.Enabled = False
'终止滚动文字
Timer1.Enabled = True
'启动Timer1,退出屏幕保护程序
Case Else
Unload Me
Exit Sub
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim X
X = ShowCursor(True)
'显示鼠标
End Sub
Private Sub Timer1_Timer()
Unload Me
'退出屏幕保护程序
End Sub
Private Sub Timer2_Timer()
显示横向滚动文字
lleft = lleft + 100
If lleft = 11810 Then
lleft = 0
Lab1.Top = Int(Rnd * 7000)
End If
Lab1.Left = lleft
Timer2.Enabled = False
End Sub
vb点虐 怎么做启动窗体之前显示的画面
把启动窗体先显示出来，然后，过一段时间再把这个窗体隐藏起来就行了。在其他窗体中加一句form1.visible=false
然后启动窗体把标题栏什么的设置一下，做个图片背景什么的，就行了。
文章名称：vb点虐 如何打开屏保 vbnet tabpage
URL标题：http://hbruida.cn/article/ddsiggp.html
