JBTALKS.CC

标题: vb code 的疑问... [打印本页]

作者: 电脑@白痴 时间: 2008-7-25 08:37 PM
标题: vb code 的疑问...
谁可以给我
不可以在 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

作者: goodhermit95 时间: 2008-7-26 09:21 PM
标题: 回复 #3 TSHsoft 的帖子
这个是，在text里按下按钮吗？

作者: 电脑@白痴 时间: 2008-7-26 09:33 PM
标题: 回复 #3 TSHsoft 的帖子
对咯
我的那个code不可以 backspace 的
谢了

作者: goodhermit95 时间: 2008-7-26 09:43 PM
标题: 回复 #5 电脑@白痴的帖子
enter 可以把？？
我做的gamelogin要enter

作者: 电脑@白痴 时间: 2008-7-26 09:52 PM
标题: 回复 #6 goodhermit95 的帖子
怎样讲...
我不明白你的意识...

作者: 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

作者: goodhermit95 时间: 2008-7-27 09:11 AM
标题: 回复 #8 TSHsoft 的帖子
对了

谢谢
不过，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

作者: goodhermit95 时间: 2008-7-27 05:17 PM
标题: 回复 #10 TSHsoft 的帖子
er
我用的是visual basic 2008 ler
不行

作者: XiaoCarol 时间: 2008-7-30 09:19 PM
em0010 vb2008 textbox 应该不能变transparent 的。。我的问题自己解决了咯。。。不过还是谢谢各位 em0011 是我自己没有close完那些form。。只是写Me.hide() then Form2.Show() 造成之前的form没有关到 em0016

作者: goodhermit95 时间: 2008-7-31 08:41 AM
标题: 回复 #12 XiaoCarol 的帖子
vb6
Unload Me
如果vb2008没变的话
Unload (Me)
vb2008
Me.close

作者: goodday 时间: 2008-8-1 12:14 AM
http://www.jbtalks.cc/thread-382697-1-1.html
里我解答了

欢迎光临 JBTALKS.CC (https://www.jbtalks.cc/)