vb code 的疑问...

电脑@白痴

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

电脑@白痴

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

TSHsoft

这样写比较好哦！

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

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

电脑@白痴

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

goodhermit95

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

电脑@白痴

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

TSHsoft

原帖由 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

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

TSHsoft

原帖由 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