Facebook Sharer
选择您要替换的背景颜色:
【农历新年】背景图片:
个性化设定
 注册  找回密码
查看: 3153|回复: 20
打印 上一主题 下一主题

visual basic 2008 programming~

[复制链接]

14

主题

0

好友

156

积分

高级会员

Rank: 3Rank: 3Rank: 3

跳转到指定楼层
1#
发表于 2009-8-24 08:37 PM |只看该作者 |倒序浏览
请问哦~

如果我有三个textbox~
textbox1
textbox2
textbox3

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

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

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

end if



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




收藏收藏0

46

主题

6

好友

6456

积分

百变名嘴

Rank: 13Rank: 13Rank: 13Rank: 13

2#
发表于 2009-8-24 10:37 PM |只看该作者

回复 #1 bboycs 的帖子

if isnumeric(textbox2.text) and isnumeric(textbox3.text) and textbox2.text  !=  ""  then

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

end if

不懂visual 的是放 is 还是 !=   你去试试看, 只要抓到是 ""  就等于无东西就对了。

[ 本帖最后由 宅男-兜着走 于 2009-8-24 10:39 PM 编辑 ]


回复

使用道具 举报

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11

3#
发表于 2009-8-25 09:00 PM |只看该作者

回复 #1 bboycs 的帖子

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

elseif textbox1.text = "" then
messagebox.show(........省略)
else
messagebox,show(........省略)

end if


回复

使用道具 举报

13

主题

0

好友

2113

积分

白金长老

Rank: 10

4#
发表于 2009-8-25 09:40 PM |只看该作者
考你们
我要 A到Z 1-0 而已

a-z A-Z 1-0

其他的符号不要


答中 我加分
越短我就越高


回复

使用道具 举报

7

主题

1

好友

5108

积分

一流名嘴

Rank: 12Rank: 12Rank: 12

5#
发表于 2009-8-25 09:51 PM |只看该作者
原帖由 goodday 于 2009-8-25 09:40 PM 发表
考你们
我要 A到Z 1-0 而已

a-z A-Z 1-0

其他的符号不要


答中 我加分
越短我就越高


不清楚 .NET 的 input mask 是否有特別的功能, 一般可以用 regular expression 來判斷是否 match, 不然就只好用 for 來判斷每個字是否在指定的 ASCII 值內


已有 1 人评分积分 收起 理由
goodday + 1 hehe 番茄你讲中咯 regular expression

总评分: 积分 + 1   查看全部评分

回复

使用道具 举报

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11

6#
发表于 2009-8-25 10:02 PM |只看该作者
1 - 10吧
这个不简单


  1. dim strtext as string = textbox1.text
  2. for i as integer = 48 to 90
  3. strtext = strtext.replace(chr(i),"")
  4. next
  5. if strtext.length = 0 then
  6. msgbox("wheeee",information)
  7. else
  8. msgbox("awwww",critical)
  9. end if
复制代码

nah C#更短
我short 够力够力

  1. string text = textbox1.text;
  2. for(int i = 0,48 > i > 90,i++){text.replace(chr(i),"");}
  3. if(text.length =0){
  4. messagebox.show("wheee");}else{
  5. messagebox.show("awww");}
复制代码

不要拿你的code比
给多少
我这里没有vs
测试


已有 1 人评分积分 收起 理由
goodday + 1 还可以咯

总评分: 积分 + 1   查看全部评分

回复

使用道具 举报

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11

7#
发表于 2009-8-25 10:08 PM |只看该作者

回复 #5 Super-Tomato 的帖子

regular expression比较快
可是我不会
但是这类型的regular expression 的 format 最容易了
用regular expression的话……

  1. 1->设regular expression format 1-10 a-z A-Z
  2. 2->If Then Else探测是否符合
  3. 3->输出
复制代码

三行搞定
2的部分可以用一行搞定
if ismatch(string,format) then ->todo


回复

使用道具 举报

7

主题

1

好友

5108

积分

一流名嘴

Rank: 12Rank: 12Rank: 12

8#
发表于 2009-8-25 10:10 PM |只看该作者
原帖由 goodhermit95 于 2009-8-25 10:02 PM 发表
1 - 10吧
这个不简单


dim strtext as string = textbox1.text
for i as integer = 48 to 90
strtext = strtext.replace(chr(i),"")
next
if strtext.length = 0 then
msgbox("wheeee",information)
...


這樣比對速度上慢了而且字數有限, 應該是循環文字長度判斷才對


回复

使用道具 举报

7

主题

1

好友

5108

积分

一流名嘴

Rank: 12Rank: 12Rank: 12

9#
发表于 2009-8-25 10:42 PM |只看该作者
原帖由 goodhermit95 于 2009-8-25 10:08 PM 发表
regular expression比较快
可是我不会
但是这类型的regular expression 的 format 最容易了
用regular expression的话……

1->设regular expression format 1-10 a-z A-Z
2->If Then Else探测是否符合
...



哦.... regular expression 的重點只是在 pattern, 只要記得有哪些其他都可以自己變化, 懶惰打開編譯器, 直接用 javascript 寫個例子給你看好了

alert(/^[a-zA-Z0-9]+$/.test("SuperTomato")?"Valid":"Invalid");


已有 1 人评分积分 收起 理由
goodday + 3 中了

总评分: 积分 + 3   查看全部评分

回复

使用道具 举报

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11

10#
发表于 2009-8-25 10:44 PM |只看该作者

回复 #8 Super-Tomato 的帖子

那么code好像就比较长
goodday要短短的 em0023
还要多一个 for int j 然后indexof(j)
效能不重要,短就好 em0036
远短越多分em0036

哈哈
不好笑 em0041


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

JBTALKS.CC |联系我们 |隐私政策 |Share

GMT+8, 2024-10-28 09:23 AM , Processed in 0.127839 second(s), 33 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

Ultra High-performance Dedicated Server powered by iCore Technology Sdn. Bhd.
Domain Registration | Web Hosting | Email Hosting | Forum Hosting | ECShop Hosting | Dedicated Server | Colocation Services
本论坛言论纯属发表者个人意见,与本论坛立场无关
Copyright © 2003-2012 JBTALKS.CC All Rights Reserved
合作联盟网站:
JBTALKS 马来西亚中文论坛 | JBTALKS我的空间 | ICORE TECHNOLOGY SDN. BHD.
回顶部