12 / 2 页下一页

查看: 2792|回复: 13

vb code 的疑问...

[复制链接]

电脑@白痴

2008-7-25 08:37 PM

谁可以给我
不可以在 txtbox 那里打除了数字的 code ...
急需用到...
谢谢...

电脑@白痴

2008-7-25 08:43 PM

是不是这个...
Private Sub txtpw_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
Beep
End If
End Sub
自己打的，不是很确定...

TSHsoft

2008-7-26 03:08 PM

这样写比较好哦！

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
ElseIf KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
Else
KeyAscii = 0
End If
End Sub

回复 #3 TSHsoft 的帖子

goodhermit95

2008-7-26 09:21 PM

这个是，在text里按下按钮吗？

回复 #3 TSHsoft 的帖子

电脑@白痴

2008-7-26 09:33 PM

对咯
我的那个code不可以 backspace 的
谢了

回复 #5 电脑@白痴的帖子

goodhermit95

2008-7-26 09:43 PM

enter 可以把？？
我做的gamelogin要enter

回复 #6 goodhermit95 的帖子

电脑@白痴

2008-7-26 09:52 PM

怎样讲...
我不明白你的意识...

TSHsoft

2008-7-27 12:30 AM

原帖由 goodhermit95 于 2008-7-26 09:43 PM 发表
enter 可以把？？
我做的gamelogin要enter

是这样吗？

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
ElseIf KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
ElseIf KeyAscii = 13 Then 'enter
cmdLogin_Click 'press enter then click the login button
KeyAscii = 0
End If
End Sub

回复 #8 TSHsoft 的帖子

goodhermit95

2008-7-27 09:11 AM

对了

谢谢
不过，textbox要怎様transpernt？他说the object does not support transpernt

TSHsoft

2008-7-27 12:45 PM

原帖由 goodhermit95 于 2008-7-27 09:11 AM 发表
对了谢谢
不过，textbox要怎様transpernt？他说the object does not support transpernt

加Microsoft Rich Textbox Control这个Component，然后。。。

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_TRANSPARENT = &H20&

Private Sub Form_Load()
RichTextBox1.SelColor = vbWhite '设定font的颜色为白色
SetWindowLong RichTextBox1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT ‘这里是把它透明化
End Sub

12 / 2 页下一页

返回列表

vb code 的疑问...

回复 #3 TSHsoft 的帖子

回复 #3 TSHsoft 的帖子

回复 #5 电脑@白痴 的帖子

回复 #6 goodhermit95 的帖子

回复 #8 TSHsoft 的帖子

浏览过的版块

回复 #5 电脑@白痴的帖子