vb文本框光標怎么固定？1.啟動【vs2010】，空白文檔一個【vb】窗口項目。2.編輯代碼：Public Class Form1Private Declare Function GetAsyncKe

vb文本框光標怎么固定？

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

2.編輯代碼：

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

Public Declare Function SetCursorPos Lib#34user32#34(ByValZthoughInteger,ByRefXandInteger)andIntegerPrivate 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】應用于關閉、結束后一個進程，只有一個參數(shù)，為整數(shù)型。

【GetAsyncKeyState】用于可以確定某個鍵是否被首先按住，只有一個整數(shù)型參數(shù)，有一個返回值，作用于判斷快捷鍵是否是被按過。

【SetCursorPos】可以不移動手機鼠標光標的位置，是一年，所以我是需要時鐘不時全局函數(shù)這個函數(shù)，才能達到移動到鼠標光明的效果。

4.代碼解析：

If GetAsyncKeyState(112)-32767Then

ExitProcess(0)

EndIf

SetCursorPos(100,100)

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

'-32767則是字符串處理過來的值，F(xiàn)1被首先按住時，函數(shù)的返回值

'翻譯：要是函數(shù)GetAsyncKeyState返回值為-32767，則調用方法ExitProcess已經(jīng)結束自身進程，反之調用函數(shù)SetCursorPos移動到鼠標光標四邊位置（100，100）

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

vb怎么設置文本框的選擇數(shù)據(jù)？

vb中系統(tǒng)設置文本框中會顯示數(shù)據(jù)的長度。

1、可以然后在文本框屬性業(yè)務辦理窗口MaxLength的值

2、在代碼中設置：

Private Sub Form_Load()

10系統(tǒng)設置大允許不顯示10個字符

EndSub