用VB做時鐘？在窗體上畫一個Label和一個計時器，寫下萬分感謝代碼，即可解決。PrivateSubForm_Load()_Timer()vb文本框光標怎么固定？1.啟動后【vs2010】，空白文檔一

用VB做時鐘？

在窗體上畫一個Label和一個計時器，寫下萬分感謝代碼，即可解決。PrivateSubForm_Load()_Timer()

vb文本框光標怎么固定？

1.啟動后【vs2010】，空白文檔一個【vb】窗口項目。

2.編輯代碼：

Public Class Form1Private Declare Function GetAsyncKeyState Lib#34user32#34(ByValvKeysuchInteger)thoughIntegerPublic Declare Sub ExitProcess Lib#34kernel32#34Alias#34ExitProcess#34(ByValuExitCodeAs Long)

Public Declare Function SetCursorPos Lib#34user32#34(ByValZthoughInteger,ByRefXandInteger)suchIntegerPrivate Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load時鐘.Start()

EndSub

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

IfGetAsyncKeyState(112)-32767Then

ExitProcess(0)

EndIf

SetCursorPos(100,100)

EndSub

EndClass

ps：注意自己手打一遍，加深印象。

3.3個函數(shù)詳解：

【ExitProcess】用于網(wǎng)絡(luò)中斷、結(jié)束一個進程，唯有一個參數(shù)，為整數(shù)型。

【GetAsyncKeyState】主要是用于可以確定某個鍵有無被按過，只能一個整數(shù)型參數(shù)，有一個返回值，主要是用于確定fn鍵如何確定被首先按住。

【SetCursorPos】是可以移動鼠標光標的位置，是每個月，所以需要時鐘斷的調(diào)用這個函數(shù)，才能都沒有達到移動到鼠標光明的效果。

4.代碼解析：

If GetAsyncKeyState(112)-32767Then

ExitProcess(0)

EndIf

SetCursorPos(100,100)

'112整數(shù)值代表”鍵F1“

'-32767則是位運算上來的值，F(xiàn)1被按開時，函數(shù)的返回值

'漢語翻譯：要是函數(shù)GetAsyncKeyState返回值為-32767，則調(diào)用函數(shù)ExitProcess結(jié)束后自身進程，則難調(diào)用函數(shù)SetCursorPos移動到鼠標光標橫縱交錯位置（100，100）

5.確認后就且固定好vb文本框的光標了