運行“Microsoft Visual Studio 2010”，在“vs”的窗口彈出后，在“菜單欄”中鼠標左鍵單擊“文件（F）”，然后在彈出來的“菜單”中鼠標左鍵單擊第一個—“新建項目（p）”。

根據第一步，會有一個標題是“新建項目”的窗口，鼠標左鍵單擊左邊編輯欄中的 “Visual Basic”,然后在窗口中間新出來的編輯框中鼠標左鍵單擊 “Windowa 窗體應用程序”，再鼠標左鍵單擊一個標題為“確定”的按鈕。

根據第二步，會有一個編程窗口彈出，然后鼠標左鍵單擊一下菜單欄中的“視圖（v）”，在彈出的菜單中鼠標左鍵單擊“工具箱（x）”，然后在工具箱中鼠標左鍵單擊工具箱中的標題為“Timer”的控件，再在名為“Form1”的窗口中鼠標左鍵單擊，時鐘控件就上了。

根據第三步，鼠標左鍵雙擊標題為“Form1”的窗口，會出現代碼編輯的頁面，寫代碼我在圖片中更詳細，文本太麻煩。。。。。。。望諒解！

代碼：

? ? ? ? ? ?

Public Class Form1

? ? Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

? ? Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

? ? ? ? Timer1.Start()

? ? End Sub

? ? Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

? ? ? ? If GetAsyncKeyState(112) = -32767 Then 'F1熱鍵值為 -32767，為什么是負數呢？因為它原本

? ? ? ? ? ? Me.Text = "You‘re very good ！"

? ? ? ? End If

? ? End Sub

End Class

-----------------------------------------------------------------

注釋：

? ? ? ?ME為標題為“Form1”的窗口，

? ? ? ?Text為“標題”的意思，

? ? ? ?Me.Text="1"意思為“指定窗口的標題為1”。

-----------------------------------------------------------------

? ? ?“Timer1”是時鐘的“代號”，

? ? ?“Start（）”是“代碼”，意思為啟動，

? ? ?“Timer1.Start()”是“時鐘啟動”的意思。

? ? ? ?因為vs里的vb中的時鐘，他的周期都已經設置好了，所以直接啟動時鐘，沒有這個啟動時鐘的代碼，時鐘是不會有用的。

-----------------------------------------------------------------

? ? ? ? IF意思為“如果”，

? ? ? ? Then意思為“那么”，

? ? ? ? End if意思為“反之”

? ? ? ? GetAsyncKeyState()是用來檢測剛剛按下的鍵值的

? ? ?【 ? If GetAsyncKeyState(112) = -32767 Then 'F1熱鍵值為 -32767，為什么是負數呢？因為它原本便是其他進制，所以轉進制之后就成負數了

? ? ? ? ? ? Me.Text = "You‘re very good ！"

? ? ? ? End If 】

譯：如果按下的鍵值等于“-32767”，那么父窗口的標題為“You’re very good！”，反之不做反應。

啟動運行“Microsoft Visual Studio 2010”。

完成第一步后，在彈出的窗口的菜單欄中找第一個，標題為“文件（F）”的菜單，并且鼠標左鍵單擊；

在新彈出的菜單框中鼠標左鍵單擊第一個，標題為“新建項目（p）”的菜單；

之后會彈出一個標題為“新建項目”的窗口，在這個窗口左邊的選擇框中鼠標左鍵單擊標題為“Visual Basic”的項，再在窗口中間新出的列表中鼠標左鍵單擊標題為“Windows 窗體應用程序”的項，最后鼠標左鍵單擊標題為“確定”的按鈕。

完成第一步與第二步后，會出現一個默認標題為“Form1.vb[設計]*”的窗口設計框，它是在窗口中，你現在要在窗口菜單欄中鼠標左鍵單擊第三個，標題為“視圖（V）”的菜單；

接著在彈出的菜單框中鼠標左鍵單擊第十個，標題為“工具箱（X）”項；

之后再標題為“工具箱”的窗口或在左側的列表中鼠標左鍵先單擊一個標題為“Button”的按鈕控件，然后將鼠標移動到一個標題默認為“Form1”的窗口處，鼠標左鍵再單擊一下，控件就上了，編輯框控件—“Textbox”也是如此。

完成后在前三步之后，鼠標左鍵雙擊標題為“Form1”的窗口（注意點擊在無控件處）；

然后會彈出一個標題默認為“Form1.vb*”的代碼編輯框，然后在我上傳圖片中的指定位置輸入代碼，在默認為“Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load”下輸入代碼；

完成后鼠標左鍵單擊標題默認為“Form1.vb[設計]*”的窗口設計框，再鼠標左鍵雙擊標題為“Button1”的按鈕，再次回到代碼編輯框后，在我上傳圖片中的指定位置輸入代碼，在默認為“?Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click”下輸入代碼。

輸入的代碼完成后：

? ??

Public Class Form1

? ? Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

? ? ? ? Me.Text = "請輸入正確密碼："

? ? ? ? Button1.Text = "確定"

? ? End Sub

? ? Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

? ? ? ? If TextBox1.Text = "OOO000" Then

? ? ? ? ? ? MsgBox("Good！", 0, "信息")

? ? ? ? End If

? ? ? ? TextBox1.Text = ""

? ? End Sub

End Class

代碼解釋：?

? ? ? ME指“父窗口”

? ? ? Text指“標題”

? ? ? ME.text=“1”指“父窗口的標題為文本1”

? ? ? Button1指“按鈕1”

? ? ? Button1.text=“1”指“按鈕1的標題為文本1”

? ? ? If指“如果”

? ? ? Then指“那么”

? ? ? End Sub指“之后”

? ? ? 【If TextBox1.Text = "OOO000" Then

? ? ? ? ? ? ?MsgBox("Good！", 0, "信息")

? ? ? ? ?End If

? ? ? ? ?TextBox1.Text = ""】指：如果文本編輯框1的編輯內容為“OOO000”的話，那么就彈出標題為“信息”，內容為“Good！”的“0”式信息框，之后(無論文本編輯框1的編輯內容是否為“OOO000”）文本編輯框1的編輯內容為空。

? ? ? ? “”=零個字符

效果展示。。。。。。

================================

根據這個經驗，你可以創新出更多優秀的程序！

? ? ??

視頻觀看，若視頻不清晰，可以選擇百度云盤下載。

在網頁上輸入下載地址，然后按回車鍵訪問。

下載地址：http://pan.baidu.com/s/1jG5SfCq

然后鼠標左鍵單擊一個標題中有“下載”的按鈕即可下載。

下載地址：http://pan.baidu.com/s/1jG5SfCq