VB文本框textbox的那点事

在textbox的keypress事件里面写上

（1）判断输入的数字是否为小数

IfkeyAscii=46 and not(InStr(txtnumber,"."))Then Exit Sub

（2）限制输入为数字

IfkeyAscii<48 or keyAscii>57 then keyAscii=0

（3）解决屏蔽BackSpace退格键

if keyAscii=8 then exit sub

代码如下：

<strong><span style="font-size:18px;">IfkeyAscii=46 and not(InStr(txtnumber,"."))Then Exit Sub
IfkeyAscii=8 then exit sub
IfkeyAscii<48 or keyAscii>57 then
 msgbox"只能输入数字"
 keyAscii=0
End if</span></strong>

2、限制文本框字节的长度问题

如果用MaxLength只是限制了字符数，不限制字节数，所以一般最好的办法是用API函数

	Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Long,lParam As Any) As Long
	
	Private Sub Form_Load()
	SendMessage Text1.hwnd,&HC5&,20&,0&
	End Sub

	Txtusername.SelStart=0
	Txtusername.SelLength=Len(txtusername.text)

效果图：

代码实现：

	Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long,ByVal nIndex As Long) As Long 
	Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long,ByVal nIndex As Long,ByVal dwNewLong As Long) As Long 
	Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long,ByVal crKey As Long,ByVal bAlpha As Byte,ByVal dwFlags As Long) As Long 
	Private Const WS_EX_LAYERED = &H80000 
	Private Const GWL_EXSTYLE = (-20) 
	Private Const LWA_ALPHA = &H2 
	Private Const LWA_COLORKEY = &H1 
	
	Private Sub Form_Load() 
	Text1.BackColor = vbBlue 
	Dim rtn As Long 
	rtn = GetWindowLong(hwnd,GWL_EXSTYLE) 
	rtn = rtn Or WS_EX_LAYERED 
	SetWindowLong hwnd,GWL_EXSTYLE,rtn 
	SetLayeredWindowAttributes hwnd,vbBlue,LWA_COLORKEY 
	End Sub 

代码实现：

<strong><span style="font-size:18px;">	Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long,ByVal nIndex As Long) As Long
	Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long,ByVal dwNewLong As Long) As Long
	Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long,ByVal dwFlags As Long) As Long
	
	Private Sub Form_Load()
	Me.BorderStyle = 0
	Me.Caption = ""
	Me.BackColor = vbRed
	SetWindowLong Me.hwnd,-20,GetWindowLong(Me.hwnd,-20) Or &H80000
	SetLayeredWindowAttributes Me.hwnd,vbRed,1
	End Sub
</span></strong>

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!