vb文本框随窗体大小改变而改变 vb文本框光标怎么固定？
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个函数详细解析：
【ExitProcess】应用于关闭、结束后一个进程，只有一个参数，为整数型。
【GetAsyncKeyState】用于可以确定某个键是否被首先按住，只有一个整数型参数，有一个返回值，作用于判断快捷键是否是被按过。
【SetCursorPos】可以不移动手机鼠标光标的位置，是一年，所以我是需要时钟不时全局函数这个函数，才能达到移动到鼠标光明的效果。
4.代码解析：
If GetAsyncKeyState(112)-32767Then
ExitProcess(0)
EndIf
SetCursorPos(100,100)
'112整数值代表”键F1“
'-32767则是字符串处理过来的值，F1被首先按住时，函数的返回值
'翻译：要是函数GetAsyncKeyState返回值为-32767，则调用方法ExitProcess已经结束自身进程，反之调用函数SetCursorPos移动到鼠标光标四边位置（100，100）
5.确认后就固定不动好vb文本框的光标了
vb怎么设置文本框的选择数据？
vb中系统设置文本框中会显示数据的长度。
1、可以然后在文本框属性业务办理窗口MaxLength的值
2、在代码中设置：
Private Sub Form_Load()
10系统设置大允许不显示10个字符
EndSub
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
