vb中的時鐘怎么用 用VB做時鐘？
用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個函數詳解：
【ExitProcess】用于網絡中斷、結束一個進程，唯有一個參數，為整數型。
【GetAsyncKeyState】主要是用于可以確定某個鍵有無被按過，只能一個整數型參數，有一個返回值，主要是用于確定fn鍵如何確定被首先按住。
【SetCursorPos】是可以移動鼠標光標的位置，是每個月，所以需要時鐘斷的調用這個函數，才能都沒有達到移動到鼠標光明的效果。
4.代碼解析：
If GetAsyncKeyState(112)-32767Then
ExitProcess(0)
EndIf
SetCursorPos(100,100)
'112整數值代表”鍵F1“
'-32767則是位運算上來的值，F1被按開時，函數的返回值
'漢語翻譯：要是函數GetAsyncKeyState返回值為-32767，則調用函數ExitProcess結束后自身進程，則難調用函數SetCursorPos移動到鼠標光標橫縱交錯位置（100，100）
5.確認后就且固定好vb文本框的光標了