vb.net打開屏保的簡單介紹

如何用VB.NET寫一個簡單的屏幕保護程序？

在窗體上建立2個文本框text1和text2，一個按鈕command1，text1里面輸入你要轉換的字符串，text2里面顯示結果，代碼如下：

創新互聯是專業的濟陽網站建設公司，濟陽接單;提供成都網站設計、網站建設,網頁設計,網站設計,建網站,PHP網站建設等專業做網站服務;采用PHP框架,可快速的進行濟陽網站開發網頁制作和功能擴展;專業做搜索引擎喜愛的網站,專業的做網站團隊,希望更多企業前來合作!

Dim MyString As String

Dim EveryStr(50) As String

Dim TargetStr As String

Private Sub Command1_Click()

MyString = Text1

For i = 1 To Len(MyString)

EveryStr(i) = Right(Left(MyString, i), 1)

If Asc(EveryStr(i)) 123 And Asc(EveryStr(i)) 96 Then EveryStr(i) = \"_\"

If Asc(EveryStr(i)) 91 And Asc(EveryStr(i)) 64 Then EveryStr(i) = \"_\"

TargetStr = TargetStr EveryStr(i)

Next i

Text2 = TargetStr

TargetStr = \"\"

End Sub

引號前面怎么自動給加了個“\”？用的時候請手動把那幾個“\”去掉

關于VB屏幕保護問題--求助

熟悉Windows操作系統的朋友一定對Windows的屏幕保護程序不陌生吧。如何自己編寫Windows屏幕保護程序呢？當你看完下面的講解后便可以輕易地編寫一標準的Windows屏幕保護程序了！

一個標準的屏保有以下幾個特點：

一：它是以.SCR作為文件的擴展名！

二：它有三種運行方式。

(1)運行在預覽框中（用于預覽屏保的效果。在“顯示屬性”→“屏幕保護程序”→“小屏幕”）。（見圖）

(2)運行設置程序（用于設置一些相關的樣式。在“顯示屬性”→“屏幕保護程序”→“點擊設置按鈕”）。

(3)真正的運行屏保（屏保運行時的效果。在“顯示屬性”→“屏幕保護程序”→“點擊預覽”或鼠標、鍵盤在指定的時間內無動作時）。

如何讓屏保識別當前需要運行哪一種方式呢？答案很簡單——分析Windows調用屏保的參數。下面以Windows 98為例向大家分析一下調用屏保的參數。

當Windows需要屏保顯示在“小屏幕”中時會在調用屏保的后面加上兩個參數。

如：myscr.scr /p 7981（參數一：/p 表示讓程序顯示在“小屏幕”里，參數二：7981表示“小屏幕”的句柄hWnd。這樣屏保就會得知Windows要它顯示在“小屏幕”中。）

當Windows需要屏保顯示設置對話框時會在調用屏保的后面不加或加上兩個參數。

如：myscr.scr或myscr.scr /C 7987（參數一：/C表示讓程序顯示設置對話框，參數二：7987表示該屬性頁的句柄。）

當Windows需要運行屏保時會在調用屏保的后面加上一個參數。

如：myscr.scr /S（參數：/S表示讓屏保運行。）

好了，知道了Windows如何讓屏保運行的三種方式后，接下來就要討論如何實現它們了。

實現原理：Windows通過某種方式調用屏保，屏保知道了它此時要干什么便會在當前環境中搜索是否有相同的實例存在。如果該實例的運行方式與此次要啟動的運行方式不同則關閉前個實例，如果該實例的運行方式與此次要啟動的運行方式相同則關閉此次運行的實例。

顯然要實現這種方法靠VB的App.PrevInstance是不可行的。因為我們要達到的目的是：偵測到前一個實例后要關閉它然后啟動程序。而App.PrevInstance屬性只能返回當前是否已啟動一個應用程序的實例而不能對前個實例做些什么。（實例 簡單地說就是相同的對象集合——同一程序。）在實現此方法之前首先向大家介紹三條API函數:GetClassName、FindWindow和SendMessage。其原型如下：

Declare Function GetClassName Lib “user32” Alias “GetClassNameA” (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

GetClassName用于取得窗體的類名。調用成功后返回類名長度，失敗返回零。函數需要三個參數：參數一.窗體的句柄，參數二.存放類名的緩沖，參數三.緩沖的大小。

FindWindow用于尋找窗體。調用成功后返回窗體的句柄，失敗返回零。函數需要兩個參數：參數一.窗體的類名，參數二.窗體的標題。

SendMessage用于向窗體發送一消息。函數需要四個參數：參數一.窗體的句柄，參數二：發送的消息名稱，參數三、四.分別表示消息所附帶的參數。

使用了這三個函數便可輕易地實現關閉前有一個已啟動的實例從而達到我們的目的。

其次我們要實現如何讓屏幕保護程序顯示在預覽框中（“小屏幕”）。

要讓屏幕保護程序在預覽框中顯示必須動態地改變窗口的樣式使之成為“小屏幕”的子窗體，這樣才能使預覽框關閉時得到關閉消息。動態地改變窗口的樣式可以使用GetWindowLong、SetWindowLong和SetParent。

它們的原型如下：

Public Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Declare Function SetParent Lib “user32” (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

GetWindowLong的作用用于得到窗體的樣式。調用成功后返回窗體的樣式。函數需要兩個參數：參數一.窗體的句柄，參數二.要取得窗體的樣式只需使用常數GWL_STYLE。

SetWindowLong的作用用于設置窗體的樣式。函數需要三個參數：參數一.窗體的句柄，參數二.要設置窗體的樣式只需用常數GWL_STYLE，參數三.要設置窗體的樣式。

SetParent的作用用于設置子窗體屬于哪個父窗體。函數需要兩個參數：參數一.子窗體的句柄，參數二.父窗體的句柄。

知道了以上兩點就可編寫出標準的屏保。（關于效果就看你自己的了！）紙上談兵了一陣就要落實到真正的編程上了。為了著重講解屏保的實現方法故將屏保的效果簡單化。

首先新建一工程再添加一窗口，各屬性設置如下：

窗口 名稱 Caption BorderStyle

Form1 Frm_Setup 無 1 － None

Form2 Frm_Run 任意 1 － Fixed Single

其余屬性均缺省。再在Frm_Run中添加一Timer控件，將該控件的名稱改為Timer_Mov，Interval屬性制改為500。

添加兩個模塊，將Module1的名稱改為Mod_Const，Module2的名稱改為Mod_Main，添加以下代碼：

Mod_Const:

Option Explicit

Public Const WM_LOOK=“屏保預覽(demo)”

Public Const WM_SET=“屏保設置(demo)”

Public Const WM_RUN=“屏保運行(demo)”

Public Const HWND_TOP=0＆

Public Const WS_CHILD=＆H40000000

Public Const GWL_STYLE=(－16)

Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Public Const SWP_NOZORDER=＆H4

Public Const SWP_NOACTIVATE=＆H10

Public Const SWP_SHOWWINDOW=＆H40

Public Const WM_CLOSE=＆H10

Declare Function GetClientRect Lib “user32” (ByVal hwnd As Long, lpRect As RECT) As Long

Declare Function GetClassName Lib “user32” Alias “GetClassNameA” (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Declare Function SetParent Lib “user32” (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Public Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function SetWindowPos Lib “user32” (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Declare Function ShowCursor Lib “user32” (ByVal bShow As Long) As Long

Mod_Main:

Option Explicit

Sub Main() '程序運行入口

Dim ClassName As String ＊ 64 ’存放窗口的類名

Dim ExeCmd As String '存放命令行參數

GetClassName Frm_Setup.hwnd, ClassName, 64 ’取得窗口的類名

ExeCmd=UCase(Command＄) ’將調用的屏保的參數轉換成大寫后存放在變量ExeCmd里

If Not (InStr(ExeCmd,“/P”)=0)Then ’檢查屏保的調用參數中是否有“/P”參數

If Not (FindWindow(ClassName, WM_LOOK)=0)Then End ’如果找到已有同一個運行方式的實例存在則程序結束

ClosePreWindow ClassName, WM_SET ’關閉前面已啟動的其他運行方式的實例

ClosePreWindow ClassName, WM_RUN ’同上

SCR_Look

ElseIf Not (InStr(ExeCmd,“/S”)=0)Then

If Not (FindWindow(ClassName,WM_RUN)=0) Then End

ClosePreWindow ClassName, WM_LOOK ’同上

ClosePreWindow ClassName, WM_SET ’同上

Scr_Run

Else

If Not (FindWindow(ClassName, WM_SET)=0) Then End

ClosePreWindow ClassName, WM_LOOK ’同上

ClosePreWindow ClassName, WM_RUN ’同上

Scr_Setup

End If

End Sub

Public Sub ClosePreWindow(ClassName As String, WinCaption As String)

Dim PreWnd As Long

PreWnd=FindWindow(ClassName, WinCaption) ’尋找類名為ClassName,標題為WinCaption的窗口

If Not (PreWnd = 0) Then Call SendMessage(PreWnd, WM_CLOSE, 0, 0) ’如果窗口已找到則關閉它

End Sub

Public Sub SCR_Look()

Dim LookScrWnd As Long

Dim Style As Long

Dim LookRect As RECT

Frm_Run.Caption=WM_LOOK ’賦上具有相應運行方式的標題

LookScrWnd=Val(Right(Command＄, Len(Command＄) － 2)) ’取得小屏幕的窗口句柄

Style=GetWindowLong(Frm_Run.hwnd, GWL_STYLE) ’取得窗口的樣式

Style=Style Or WS_CHILD ’在窗口的樣式中加入子窗體常數

SetWindowLong Frm_Run.hwnd, GWL_STYLE, Style ’改變窗體的樣式

SetParent Frm_Run.hwnd, LookScrWnd ’設置窗體的父窗體

GetClientRect LookScrWnd, LookRect ’取得小屏幕的大小

SetWindowPos Frm_Run.hwnd, HWND_TOP, 0, 0, LookRect.Right, LookRect.Bottom, SWP_

NOZORDER Or SWP_NOACTIVATE Or SWP_SHOWWINDOW

'顯示窗體并將窗體的大小設置為小屏幕的大小以便覆蓋小屏幕

End Sub

Public Sub Scr_Setup()

Frm_Run.Caption=WM_SET ’賦上具有相應運行方式的標題

Frm_Setup.Show

End Sub

Public Sub Scr_Run()

Frm_Run.Caption = WM_RUN ’賦上具有相應運行方式的標題

ShowCursor False ’隱藏鼠標

Frm_Run.Move 0, 0, Screen.Width, Screen.Height

Frm_Run.Show

End Sub

Public Sub CloseSCR()

ShowCursor True ’顯示鼠標

Unload Frm_Setup ’卸載窗體關閉屏保

Unload Frm_Run ’同上

End Sub

Public Function Scan_RUN() As Boolean’偵測當前屏保的運行方式

If (Frm_Run.Caption = WM_RUN) Then ’如果屏保是以運行方式在運行則返回“真”，否則返回“假”

Scan_RUN=True

Else

Scan_RUN=False

End If

End Function

Frm_Run:

Option Explicit

Dim i As Integer ’定義循環變量

Dim OldX As Integer ’定義存放舊的鼠標水平坐標

Dim OldY As Integer ’定義存放舊的鼠標垂直坐標

Dim Pic(1) As New StdPicture ’定義一個圖片類的數組

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If Mod_Main.Scan_RUN Then ’如果此時是在運行屏保則關閉屏保

Mod_Main.CloseSCR

End If

End Sub

Private Sub Form_Load()

i=1 ’為循環變量賦初值

OldX=－1 ’為舊鼠標水平坐標賦初值

OldY=－1 ’為舊鼠標垂直坐標賦初值

Set Pic(0)=LoadPicture(請寫入圖片一的路徑和名稱) ’讀取圖片一

Set Pic(1)=LoadPicture(請寫入圖片二的路徑和名稱) ’讀取圖片二

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y A

s Single)

If Mod_Main.Scan_RUN Then ’如果此時是在運行屏保則關閉屏保

Mod_Main.CloseSCR

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Mod_Main.Scan_RUN Then

If (OldX=－1) And (OldY=－1) Then

OldX=X

OldY=Y

Else

If (ScaleX(Abs(X－OldX),vbTwips,vbPixels)= 3) Then

Mod_Main.CloseSCR ’將鼠標當前的水平坐標和垂直坐標與舊鼠標的水平坐標和垂直坐標相減其絕對值如果大于3個像素則退出屏保

End If

End If

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

Mod_Main.CloseSCR ’關閉屏保

End Sub

Private Sub Timer_Mov_Timer()

If (i=2) Then

i=1 ’如果循環變量大于圖片的數量則變量賦為1

Else

i=i＋1 ’否則循環變量加一

End If

Frm_Run.PaintPicture Pic(i－1),0,0,Width,Height,0,0,ScaleX(Pic(i－1).Width,vbHimetric,vbTwips),ScaleY(Pic(i－1).Height,vbHimetric,vbTwips)’在Frm_Run上畫圖

End Sub

Frm_Setup:

Option Explicit

Private Sub Com_OK_Click()

Mod_Main.CloseSCR

End Sub

Private Sub Form_Unload(Cancel As Integer)

Mod_Main.CloseSCR

End Sub

好了，一個標準的屏幕保護程序就編寫好了。按下F5運行試試看。不要忘了生成EXE文件時一定要將屏保的擴展名改為SCR并將其拷貝到Windows的System目錄里才可在屏保設置中見到喔！（程序在VB 5.0中編寫并運行通過。）

vb.net怎么做啟動窗體之前顯示的畫面

把啟動窗體先顯示出來，然后，過一段時間再把這個窗體隱藏起來就行了。在其他窗體中加一句form1.visible=false

然后啟動窗體把標題欄什么的設置一下，做個圖片背景什么的，就行了。

vb.net窗口背景

試試調整之前

Me.SuspendLayout()

調整完之后再

Me.ResumeLayout()

vb.net 屏幕保護程序

系統就有這個屏保啊!~!

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制做可換圖片的屏幕保護程序

VC＋＋可謂神通廣大，如果學到家了，或者就掌握了那么一點MFC，你也會感到它的方便快捷，當然最重要的是功能強大。不是嗎，從最基本的應用程序.EXE到動態連接庫DLL，再由風靡網上的ActiveX控件到Internet Server API，當然，還有數據庫應用程序……瞧，我都用它來做屏幕保護程序了。一般的屏幕保護程序都是以SCR作為擴展名，并且要放在c:\windows 目錄或 c:\windows\system 目錄下，由Windows 98內部程序調用（Windows NT 是在 c:\windows\system32 目錄下）。怎么調用？不用說了，這誰不知道。

好了，我們來作一個簡單的。選擇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.net打開屏保的簡單介紹
瀏覽路徑：http://m.kartarina.com/article10/hscddo.html

成都網站建設公司_創新互聯，為您提供網站設計、軟件開發、外貿網站建設、Google、網頁設計公司、小程序開發

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯