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

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

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()

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

聚超值

热门排行