用VB做時(shí)鐘？在窗體上畫一個(gè)Label和一個(gè)計(jì)時(shí)器，寫下萬(wàn)分感謝代碼，即可解決。PrivateSubForm_Load()_Timer()vb文本框光標(biāo)怎么固定？1.啟動(dòng)后【vs2010】，空白文檔一

用VB做時(shí)鐘？

在窗體上畫一個(gè)Label和一個(gè)計(jì)時(shí)器，寫下萬(wàn)分感謝代碼，即可解決。PrivateSubForm_Load()_Timer()

vb文本框光標(biāo)怎么固定？

1.啟動(dòng)后【vs2010】，空白文檔一個(gè)【vb】窗口項(xiàng)目。

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時(shí)鐘.Start()

EndSub

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

IfGetAsyncKeyState(112)-32767Then

ExitProcess(0)

EndIf

SetCursorPos(100,100)

EndSub

EndClass

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

3.3個(gè)函數(shù)詳解：

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

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

【SetCursorPos】是可以移動(dòng)鼠標(biāo)光標(biāo)的位置，是每個(gè)月，所以需要時(shí)鐘斷的調(diào)用這個(gè)函數(shù)，才能都沒(méi)有達(dá)到移動(dòng)到鼠標(biāo)光明的效果。

4.代碼解析：

If GetAsyncKeyState(112)-32767Then

ExitProcess(0)

EndIf

SetCursorPos(100,100)

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

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

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

5.確認(rèn)后就且固定好vb文本框的光標(biāo)了