VB编程中的技巧一行可以解决的代码
2007-08-15 06:52
281 查看
1、下列代码,则是对逻辑运算不清楚造成。
If A=true Then
C= Not B
Else
C= B
End If
可以:
C=A XOR B
2、如果加上下列代码:
If C=true then
D=28
Else
D=29
End IF
D=Iif((A XOR B),28,29)
3、布尔赋值,常被人忽略:
如:
If A= 13 then
B=True
Else
B=False
End If
可以:
B = A = 13
或者:
B = (A = 13)
我更喜欢用后者,这样代码易于看懂。
4、字串有效性检测:
If IsNull(StrOrg) Or StrOrg="" then
可以:
If Len(StrOrg & "")<>0 then
5、字串重复次数
RepeatCount=Ubound(Split(StrOrg,StrFind))
同样,如果要对字串有效性判断:
RepeatCount=Iif((Len(StrOrg & "")=0), 0, Ubound(Split(StrOrg,StrFind))
6、有时需要判断字串数组中是否有这一元素,这时最好不用数组,而用分隔符字串
于是: If Len(OrgStr)= Len(Replace(OrgStr,FindStr)) then
则表明,此元素不存在。
7、对数组初始化:
最好用变体,这样,也是一行语句:
如:
IntArr=Array(12,28,29,30,31,52,24,60)
注意,此时需要用变量后缀。上面代码,如要定义为长整型,则
IntArr=Array(12&,28&,29&,30&,31&,52&,24&,60&)
要将IntArr 定义为变体
8、判断大小:
IntMax = Iif((IntA > IntB), IntA, IntB)
IntMin = Iif((IntA < IntB), IntA, IntB)
9、按索引的Select Case
Function GetChoice(Ind As Integer)
GetChoice = Choose(Ind, "Speedy", "United", "Federal")
End Function
10、按表达式的Select Case(这种转换要求不能有Case Else的才可以这样,否则会出错)
Function MatchUp (CityName As String)
Matchup = Switch(CityName = "London", "English", CityName _
= "Rome", "Italian", CityName = "Paris", "French")
End Function
11、使用Iif,前面已有。
Function CheckIt (TestMe As Integer)
CheckIt = IIf(TestMe > 1000, "Large", "Small")
End Function
12、字串动态数组是否已初始化
If Len(Join(StrArr))=0 then
字串动态数组未初始化
13、指定只读CombBox的当前值,如果能确认这个值就在其中,一定不会错,则:
Combbox=CurValue
注意,不可以写成:Combbox.text=CurValue
前者实际是写 _default 这个属性,而后者则是写Text 因为只读,则会导致错误
14、如果有下列代码:
Select Case CombBox.text
Case "London"
Call FuncStrLang(3)
Case "Rome"
Call FuncStrLang(5)
......
End Select
则可以用ItemData属性
即:"London" 的 Itemdata=3
"Rome" 的 Itemdata=5
于是:
Call FuncStrLang(CombBox.ItenData)
15、如果有下列代码:
Select Case CombBox.text
Case "London"
Call ClsCity.CityIntr_London
Case "Rome"
Call ClsCity.CityIntr_Rome
......
End Select
只要:
CallByName ClsCity, "CityIntr_" & CombBox.text, vbMethod
16、复制数组到另一变量中:
Dim iOrgArr(30) as Integer
Dim iDesArr as Variant
......
iDesArr = iOrgArr
即主变体直接取数组指针,则所有元素都复制了过去
17、如果有下列代码:
Do While Not RsAdo.Eof
If len(DesStr)<>0 then
DesStr=DesStr & VbTab
End if
DesStr=RsAdo!Rec_id
RsAdo.MoveNext
loop
则只要:
DesStr=RsAdo.GetString()
If A=true Then
C= Not B
Else
C= B
End If
可以:
C=A XOR B
2、如果加上下列代码:
If C=true then
D=28
Else
D=29
End IF
D=Iif((A XOR B),28,29)
3、布尔赋值,常被人忽略:
如:
If A= 13 then
B=True
Else
B=False
End If
可以:
B = A = 13
或者:
B = (A = 13)
我更喜欢用后者,这样代码易于看懂。
4、字串有效性检测:
If IsNull(StrOrg) Or StrOrg="" then
可以:
If Len(StrOrg & "")<>0 then
5、字串重复次数
RepeatCount=Ubound(Split(StrOrg,StrFind))
同样,如果要对字串有效性判断:
RepeatCount=Iif((Len(StrOrg & "")=0), 0, Ubound(Split(StrOrg,StrFind))
6、有时需要判断字串数组中是否有这一元素,这时最好不用数组,而用分隔符字串
于是: If Len(OrgStr)= Len(Replace(OrgStr,FindStr)) then
则表明,此元素不存在。
7、对数组初始化:
最好用变体,这样,也是一行语句:
如:
IntArr=Array(12,28,29,30,31,52,24,60)
注意,此时需要用变量后缀。上面代码,如要定义为长整型,则
IntArr=Array(12&,28&,29&,30&,31&,52&,24&,60&)
要将IntArr 定义为变体
8、判断大小:
IntMax = Iif((IntA > IntB), IntA, IntB)
IntMin = Iif((IntA < IntB), IntA, IntB)
9、按索引的Select Case
Function GetChoice(Ind As Integer)
GetChoice = Choose(Ind, "Speedy", "United", "Federal")
End Function
10、按表达式的Select Case(这种转换要求不能有Case Else的才可以这样,否则会出错)
Function MatchUp (CityName As String)
Matchup = Switch(CityName = "London", "English", CityName _
= "Rome", "Italian", CityName = "Paris", "French")
End Function
11、使用Iif,前面已有。
Function CheckIt (TestMe As Integer)
CheckIt = IIf(TestMe > 1000, "Large", "Small")
End Function
12、字串动态数组是否已初始化
If Len(Join(StrArr))=0 then
字串动态数组未初始化
13、指定只读CombBox的当前值,如果能确认这个值就在其中,一定不会错,则:
Combbox=CurValue
注意,不可以写成:Combbox.text=CurValue
前者实际是写 _default 这个属性,而后者则是写Text 因为只读,则会导致错误
14、如果有下列代码:
Select Case CombBox.text
Case "London"
Call FuncStrLang(3)
Case "Rome"
Call FuncStrLang(5)
......
End Select
则可以用ItemData属性
即:"London" 的 Itemdata=3
"Rome" 的 Itemdata=5
于是:
Call FuncStrLang(CombBox.ItenData)
15、如果有下列代码:
Select Case CombBox.text
Case "London"
Call ClsCity.CityIntr_London
Case "Rome"
Call ClsCity.CityIntr_Rome
......
End Select
只要:
CallByName ClsCity, "CityIntr_" & CombBox.text, vbMethod
16、复制数组到另一变量中:
Dim iOrgArr(30) as Integer
Dim iDesArr as Variant
......
iDesArr = iOrgArr
即主变体直接取数组指针,则所有元素都复制了过去
17、如果有下列代码:
Do While Not RsAdo.Eof
If len(DesStr)<>0 then
DesStr=DesStr & VbTab
End if
DesStr=RsAdo!Rec_id
RsAdo.MoveNext
loop
则只要:
DesStr=RsAdo.GetString()
相关文章推荐
- 在CSS里加下面任何一行代码都可以解决图片之间的间隙
- 【Opencv_contribute】Bouding Box (ROI,一行代码解决框选交互,可以用来标定)
- 一行代码解决IE兼容 本地版
- 一行代码解决各种IE兼容问题,IE6,IE7,IE8,IE9,IE10
- 一行代码解决问题
- PHP中几个可以提高运行效率的代码写法、技巧分享
- 一行代码解决各种IE兼容问题,IE6,IE7,IE8,IE9,IE10
- IQKeyBoardManager - 不用写一行代码就完美解决IOS开发键盘遮挡的类库
- Android防止过快点击造成多次事件 一行代码搞定,特别简单,可以复用
- 一行代码解决各种IE兼容问题,IE6,IE7,IE8,IE9,IE10
- 一行JS代码,解决DedeCMS TAG标签错误输入符号问题
- 一行代码解决各种IE兼容问题,IE6,IE7,IE8,IE9,IE10
- 一行代码解决各种IE兼容问题,IE6,IE7,IE8,IE9,IE10
- 一行代码解决各种IE兼容问题
- 一行代码解决IE8浏览器兼容问题
- 一行代码很长,复制这一行代码的技巧
- 基本上,把switch,用设计模式代替,肯定是bug和过度设计。想想,本来修改一个文件几行代码可以解决的问题,变成修改3-6个类才能实现一样的功能。不是傻是什么?
- 一行代码写一个轮播,想了好久,感觉这样可以。
- 一行代码解决各种IE兼容问题,IE6,IE7,IE8,IE9,IE10
- (转)一行代码解决各种IE兼容问题,IE6,IE7,IE8,IE9,IE10