查看: 2425|回复: 13

vb code 的疑问...

0 主题	0 好友	60 积分

中级会员

Rank: 2 Rank: 2

发消息

电梯直达

1^#

发表于 2008-7-25 08:37 PM |只看该作者 |倒序浏览

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

收藏0

使用道具举报

电脑@白痴

0 主题	0 好友	60 积分

中级会员

Rank: 2 Rank: 2

发消息

2^#

发表于 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

57 主题	18 好友	1万积分

无敌名嘴

Rank: 15

发消息

3^#

发表于 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

使用道具举报

goodhermit95

62 主题	5 好友	3715 积分

本站名嘴

Rank: 11

发消息

4^#

发表于 2008-7-26 09:21 PM |只看该作者

回复 #3 TSHsoft 的帖子

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

使用道具举报

电脑@白痴

0 主题	0 好友	60 积分

中级会员

Rank: 2 Rank: 2

发消息

5^#

发表于 2008-7-26 09:33 PM |只看该作者

回复 #3 TSHsoft 的帖子

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

使用道具举报

goodhermit95

62 主题	5 好友	3715 积分

本站名嘴

Rank: 11

发消息

6^#

发表于 2008-7-26 09:43 PM |只看该作者

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

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

使用道具举报

电脑@白痴

0 主题	0 好友	60 积分

中级会员

Rank: 2 Rank: 2

发消息

7^#

发表于 2008-7-26 09:52 PM |只看该作者

回复 #6 goodhermit95 的帖子

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

使用道具举报

TSHsoft

57 主题	18 好友	1万积分

无敌名嘴

Rank: 15

发消息

8^#

发表于 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

使用道具举报

goodhermit95

62 主题	5 好友	3715 积分

本站名嘴

Rank: 11

发消息

9^#

发表于 2008-7-27 09:11 AM |只看该作者

回复 #8 TSHsoft 的帖子

对了

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

使用道具举报

TSHsoft

57 主题	18 好友	1万积分

无敌名嘴

Rank: 15

发消息

10^#

发表于 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 电脑@白痴的帖子