正在阅读：VB十七种可用一行代码完成的技巧VB十七种可用一行代码完成的技巧

2005-07-07 10:44 出处：作者：devil_xp 责任编辑：moningfeng

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 因为只读，则会导致错误

键盘也能翻页，试试“← →”键

vb2005与sqlserver2005平台下报表预览及其打印的实现

关注我们

聚超值

热门排行

正在阅读：VB十七种可用一行代码完成的技巧VB十七种可用一行代码完成的技巧

相关文章

关注我们

聚超值

热门软件

汽车资讯