台灣最大程式設計社群網站
線上人數
2393
 
會員總數:246479
討論主題:189988
歡迎您免費加入會員
討論區列表 >> Java Script/ Node.js >> 求救! 以DropDownList的值分別帶入
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
求救! 以DropDownList的值分別帶入
價值 : 50 QP  點閱數:1448 回應數:0
樓主

gart
初學者
43 71
1404 83
發送站內信

<SCRIPT Language="VBSCRIPT">
Dim IRender
Dim IObjectManager
Dim IInformationTree
Dim IPlane
Dim IContainer
Dim ITerraExplorerObject

sub Init()
Set ITerraExplorer = TE.interface("ITerraExplorer5")
Set IRender = TE.interface("IRender5")
Set IObjectManager = TE.interface("IObjectManager5")
Set IInformationTree = TE.interface("IInformationTree5")
Set IPlane = TE.interface("IPlane5")
Set IContainer = TE.interface("IContainer")
Set ITerrain = TE.interface("ITerrain4")
end sub

sub Go()


SiblingItemID = IInformationTree.FindItem("台北市即時影像位置\士林區\聯外橋樑\中山北路-中山橋")

If SiblingItemID = 0 Then
Exit Sub
End if

Set ITerraExplorerObject = nothing
Set ITerraExplorerObject = IInformationTree.getObject(SiblingItemID)
IPlane.FlyToObject IterraExplorerObject.id,0

end sub
</SCRIPT>


以上為程式碼
想請問各位大大
SiblingItemID = IInformationTree.FindItem("台北市即時影像位置\士林區\聯外橋樑\中山北路-中山橋")
這一行
我想將字串以DropDownList的值分別帶入
應該要如何設計



本篇文章發表於2007-04-04 09:52
目前尚無任何回覆
   

回覆
如要回應,請先登入.