vb文本框光標(biāo)怎么固定？1.啟動(dòng)【vs2010】，空白文檔一個(gè)【vb】窗口項(xiàng)目。2.編輯代碼：Public Class Form1Private Declare Function GetAsyncKe

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

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

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時(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ù)詳細(xì)解析：

【ExitProcess】應(yīng)用于關(guān)閉、結(jié)束后一個(gè)進(jìn)程，只有一個(gè)參數(shù)，為整數(shù)型。

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

【SetCursorPos】可以不移動(dòng)手機(jī)鼠標(biāo)光標(biāo)的位置，是一年，所以我是需要時(shí)鐘不時(shí)全局函數(shù)這個(gè)函數(shù)，才能達(dá)到移動(dòng)到鼠標(biāo)光明的效果。

4.代碼解析：

If GetAsyncKeyState(112)-32767Then

ExitProcess(0)

EndIf

SetCursorPos(100,100)

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

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

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

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

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

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

1、可以然后在文本框?qū)傩詷I(yè)務(wù)辦理窗口MaxLength的值

2、在代碼中設(shè)置：

Private Sub Form_Load()

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

EndSub