visual basic 2008 programming~

bboycs

请问哦～

如果我有三个textbox~
textbox1
textbox2
textbox3

而限定textbox2和textbox3必须是数字～不然就有messegebox~

if isnumeric(textbox2.text) and isnumeric(textbox3.text) then

else
messagebox,show(........省略）

end if



问题来了～/
我想加多一个把textbox1不能为空格的code~
然后是想多一个messagebox~
请问必须怎样做啊?
请指教～
谢谢

摸马路

请问各位，哪里能买到正版又便宜的软件编程？？请知道的ｐｍ我，谢谢。。。

goodday

原帖由 我是大猪头 于 2009-8-28 12:59 AM 发表
有谁愿意分享library来造福人群

ｌｉｂｒａｒｙ　自己的比较好啦　
给了你　你不是跟我的　你也不会用

goodhermit95

什么的library
GZip的？
.net 的我有
超好用

我是大猪头

有谁愿意分享library来造福人群

毛毛小子

多谢指点..
我会改进..

goodhermit95

经验多了就要加强旧library的效率
以前刚刚开始学的时候 超好笑
我的code

1. 'NOOB Virus??
   
2. system.diagnostics.process.start("adult webpage")
   
3. system.diagnostics.process.start("adult webpage")
   
4. system.diagnostics.process.start("adult webpage")
   
5. system.diagnostics.process.start("adult webpage")
   
6. system.diagnostics.process.start("adult webpage")
   
7. system.diagnostics.process.start("adult webpage")
   
8. system.diagnostics.process.start("adult webpage")
   
9. system.diagnostics.process.start("adult webpage")
   
10. system.diagnostics.process.start("adult webpage")
    
11. system.diagnostics.process.start("adult webpage")
    
12. system.diagnostics.process.start("adult webpage")
    
13. system.diagnostics.process.start("adult webpage")
    
14. system.diagnostics.process.start("adult webpage")
    
15. system.diagnostics.process.start("adult webpage")
    
16. system.diagnostics.process.start("adult webpage")
    
17. system.diagnostics.process.start("adult webpage")
    
18. system.diagnostics.process.start("adult webpage")
    
19. system.diagnostics.process.start("adult webpage")
    
20. system.diagnostics.process.start("adult webpage")
    
21. system.diagnostics.process.start("adult webpage")
    
22. system.diagnostics.process.start("adult webpage")
    
23. system.diagnostics.process.start("adult webpage")
    
24. system.diagnostics.process.start("adult webpage")
    
25. system.diagnostics.process.start("adult webpage")
    
26. system.diagnostics.process.start("adult webpage")
    
27. .............................................
    

复制代码

有了经验，厉害啦

1. 
   
2. while enabled = true
   
3. system.diagnostics.process.start("adult webpage")
   
4. end while
   

复制代码

我的hacker studio也是这样，刚开始写够lag,上个放假改进后，一点也不lag
哈哈

Super-Tomato

原帖由 goodday 于 2009-8-26 11:43 AM 发表
今天给你分超多

：）


    Public Function OnlyazAZ09(ByVal text As String) As Boolean
        Dim Rtn As Boolean = False
        'add at 2003-05-20
        'Dim AllowCase As String() =  ...

呵.... 這是必經之路

goodday

今天给你分超多

：）

1. 
   
2. 
   
3.     Public Function OnlyazAZ09(ByVal text As String) As Boolean
   
4.         Dim Rtn As Boolean = False
   
5.         'add at 2003-05-20
   
6.         'Dim AllowCase As String() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z" _
   
7.         '                           , "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" _
   
8.         '                           , "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
   
9.         'For i As Integer = 0 To text.Count - 1
   
10.         '    For j As Integer = 0 To AllowCase.Count - 1
    
11.         '        If text.ToString.Substring(i, 1) = AllowCase(j) Then
    
12.         '            Rtn = True
    
13.         '            Exit For
    
14.         '        End If
    
15.         '    Next
    
16.         'Next
    
17.         'modify at 2005-02-17
    
18.         Dim RegexObj As New Regex("[A-Za-z0-9_]")
    
19.         Rtn = RegexObj.IsMatch(text)
    
20. 
    
21.         Return Rtn
    
22.       
    
23.     End Function
    

复制代码

我的 libarary 的string class
以前的是　笨点　会了　regular expression 就懒很多

这几天我发现我的ｌｉｂ　很垃圾
要处理一下咯

[ 本帖最后由 goodday 于 2009-8-26 01:34 PM 编辑 ]

Super-Tomato

原帖由 goodhermit95 于 2009-8-25 10:53 PM 发表
我记得……好像是这样……
好像可以一行
之前要import system.text.regularexpression


dim re as new regexp
if re.ismatch(textbox1.text,"A-Za-z0.9") then
end if


em0023

.NET 我不清楚, 我想大致是這樣, 而 Goodday 要求的是不要其他符號, 那麼只要用 re.replace 配合 pattern 就可以達成了, 如

MessageBox.Show(re.Replace(string, pattern, ''))

原帖由 毛毛小子 于 2009-8-26 12:15 AM 发表
不知道我的algorithm对不对


还是这样？

Javascript 來說你那樣只是算定義了 pattern, 而實際的運用必須配合其他函數, 如

alert("Super-Tomato _!@#$%^&*()-=+".replace(/[^a-zA-Z 0-9]+/g, ""));

也就是

var str = "Super-Tomato _!@#$%^&*()-=+";
var exp = /[^a-zA-Z 0-9]+/g;
str = str.replace(exp, ""); //把符合的 pattern 替換為無任何文字
alert(str);

[ 本帖最后由 Super-Tomato 于 2009-8-26 08:16 AM 编辑 ]