VB十七种可用一行代码完成的技巧

      编程要讲效率，尽管现在的计算机，速度是不成问题，
但是，如果一行代码能完成，为什么要用更多的代码呢？

      现在介绍VB中一些可用一行代码完成的技巧。

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),Ubound(Split(StrOrg,StrFind))


6、有时需要判断字串数组中是否有这一元素，这时最好不用数组，而用分隔符字串,于是： 
If Len(OrgStr)= Len(Replace(OrgStr,FindStr)) then

　则表明，此元素不存在。 


7、对数组初始化,最好用变体，这样，也是一行语句,如：
IntArr=Array(12,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),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 =tch(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()

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!