查看: 2188|回复: 13

vb code 的疑问...

0 主题	0 好友	60 积分

中级会员

Rank: 2 Rank: 2

发消息

电梯直达

1^#

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

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

收藏0

使用道具举报

goodday

13 主题	0 好友	2113 积分

白金长老

Rank: 10

发消息

14^#

发表于 2008-8-1 12:14 AM |只看该作者

http://www.jbtalks.cc/thread-382697-1-1.html
里我解答了

使用道具举报

goodhermit95

62 主题	5 好友	3715 积分

本站名嘴

Rank: 11

发消息

13^#

发表于 2008-7-31 08:41 AM |只看该作者

回复 #12 XiaoCarol 的帖子

vb6
Unload Me
如果vb2008没变的话
Unload (Me)
vb2008
Me.close

使用道具举报

XiaoCarol

1 主题	1 好友	204 积分

支柱会员

Rank: 4 Rank: 4 Rank: 4 Rank: 4

发消息

12^#

发表于 2008-7-30 09:19 PM |只看该作者

em0010 vb2008 textbox 应该不能变transparent 的。。我的问题自己解决了咯。。。不过还是谢谢各位 em0011 是我自己没有close完那些form。。只是写Me.hide() then Form2.Show() 造成之前的form没有关到 em0016

使用道具举报

goodhermit95

62 主题	5 好友	3715 积分

本站名嘴

Rank: 11

发消息

11^#

发表于 2008-7-27 05:17 PM |只看该作者

回复 #10 TSHsoft 的帖子

er
我用的是visual basic 2008 ler
不行

使用道具举报

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

使用道具举报

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

发消息

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