返回顶部
首页 > 资讯 > 后端开发 > 其他教程 >VB十七种可用一行代码完成判断的技巧代码
  • 354
分享到

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

VB一行代码vb判断 2022-12-27 15:12:31 354人浏览 独家记忆
摘要

1、下列代码,则是对逻辑运算不清楚造成 If A=true Then C= Not B Else C= B End If 可以:C=A XOR B 2、如果加上下列代码: If C=

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

--结束END--

本文标题: VB十七种可用一行代码完成判断的技巧代码

本文链接: https://www.lsjlt.com/news/175956.html(转载时请注明来源链接)

有问题或投稿请发送至: 邮箱/279061341@qq.com    QQ/279061341

猜你喜欢
软考高级职称资格查询
编程网,编程工程师的家园,是目前国内优秀的开源技术社区之一,形成了由开源软件库、代码分享、资讯、协作翻译、讨论区和博客等几大频道内容,为IT开发者提供了一个发现、使用、并交流开源技术的平台。
  • 官方手机版

  • 微信公众号

  • 商务合作