关闭

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

781人阅读 评论(0) 收藏 举报
编程要讲效率,尽管现在的计算机,速度是不成问题,但是,如果一行代码能完成,为什么要用更多的代码呢?现在介绍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), 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 =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()

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:129158次
    • 积分:1648
    • 等级:
    • 排名:千里之外
    • 原创:14篇
    • 转载:86篇
    • 译文:0篇
    • 评论:18条
    文章分类
    最新评论