您的位置: 旅游网 > 网红

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

发布时间:2019-09-13 20:05:12

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

小孩不爱吃饭怎么回事
宝宝发烧了怎么办
调理小儿脾胃虚弱的药
丁桂薏芽健脾凝胶能治腹泻吗
猜你会喜欢的
猜你会喜欢的