vba编程基础知识 vb编程入门代码大全( 二 )


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

猜你喜欢