作者MAGICXX (逢甲阿法)
看板Visual_Basic
標題[VBA ] GIS內的VBA...
時間Thu Apr 28 19:28:24 2011
因為我之前幾篇所提出的疑問都是在VB6下面寫的
現在想要把它弄進去GIS內的VBA下去編寫
發現 夭壽~幾乎沒有一樣的....
光是COMBOBOX就完全不一樣...
我連設定 都很難設定(DIM)
我現在進展到COMBOBOX裡面有東西跑出來
可是第二個就出不來...(或者是我把他設定的值亮出來...)
還有 計算式也不同....不能將COMBOBOX2的值拿來運算...
版上有沒有人懂GIS的COMBOBOX的.....可以教學一下嗎QQ?
Private Sub ComboBox1_click()
Select Case ComboBox1.ListIndex
Case 0
ComboBox2.Clear
ComboBox2.AddItem "0公分"
ComboBox2.Value = 99
ComboBox2.AddItem "10公分"
ComboBox2.Value = 97
ComboBox2.AddItem "20公分"
ComboBox2.Value = 99
Case 1
ComboBox2.Clear
ComboBox2.AddItem "0公分"
ComboBox2.Value = 71
ComboBox2.AddItem "10公分"
ComboBox2.Value = 84
ComboBox2.AddItem "20公分"
ComboBox2.Value = 88
Case 2
ComboBox2.Clear
ComboBox2.AddItem "0公分"
ComboBox2.Value = 65
ComboBox2.AddItem "10公分"
ComboBox2.Value = 48
ComboBox2.AddItem "20公分"
ComboBox2.Value = 51
End Select
Select Case ComboBox1.ListIndex
Case 1
ComboBox3.Clear
ComboBox3.AddItem "BB"
ComboBox3.Value = 70
ComboBox3.AddItem "AA"
ComboBox3.Value = 66
Case 2
ComboBox3.Clear
ComboBox3.AddItem "DD"
ComboBox3.Value = 74
End Select
End Sub
Private Sub ComboBox2_CLICK()
Label1.Caption = "S值為" & Str(ComboBox2.Value) / 100
End Sub
Private Sub ComboBox3_click()
Label2.Caption = "A值為" & _
(ComboBox3.Value / 100)
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "AA"
ComboBox1.Value = 99
ComboBox1.AddItem "BB"
ComboBox1.Value = 71
ComboBox1.AddItem "CC"
ComboBox1.Value = 65
ComboBox1.Style = fmStyleDropDownList
End Sub
像我上面的COMBOBOX1雖然都有了
可是我只要一選 底下就會直接跑出VALUE來而不是跑出XX公分這樣
接著當我點COMBOBOX2的時候 又出現錯誤...囧
有解嗎QQ
有沒有那種 可以把VB6的程式碼轉變成VBA的程式碼的工具阿 囧
--
#1CYsr0re (Keelung)
1F：→ todo70192:因為引擎的聲音太大聲了 尤其是在橋下 回音更大聲09/11 20:11
2F：→ todo70192:害我沒辦法專心講電話 聽不清楚09/11 20:12
3F：→ sinyuan99:所以要怪機車騎士嗎?_?09/11 20:24
4F：→ todo70192:沒錯 機車騎太兇 引擎聲音太大 沒考慮到路邊講電話聽不09/11 20:25
5F：→ todo70192:清楚09/11 20:25
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.121.146.41
6F：推 sueadolph:GIS是哪個的縮寫? vba在學的過程中，要先看他支援有哪些 04/29 19:34
7F：推 sueadolph:專業的軟體，還是上網查比在這問還要快... 04/29 19:44
8F：推 sueadolph:不過，建議你學VBA之前，還是先最基本的VB學好吧 04/29 19:57
9F：推 sueadolph:實在是看不懂 AddItem的下一行跑出來一個 Value是要作啥 04/29 20:00
10F：→ sueadolph:這寫法連VB都不對了....是要怎麼跳VBA學= = 04/29 20:00
11F：→ sueadolph:如果你開頭學的GIS 指的是"地理資訊系統" 你說的VBA指的 04/29 20:09
12F：→ sueadolph:是ArcGIS裡頭的VBA應用。剛剛GOOGLE看過他的程式碼，並 04/29 20:10
13F：→ sueadolph:不難啊。 還是先把基礎VB打好吧.除非你是今年要畢業的XD 04/29 20:10
14F：→ MAGICXX:我的確是趕著要今年畢業啦 囧 04/30 11:11
15F：→ MAGICXX:不過 因為我拿過VB內已經可以跑的程式碼 04/30 11:11
16F：→ MAGICXX:卻無法在VBA裡面跑 所以我才一路修成這樣的.... 04/30 11:12
17F：→ MAGICXX:不過還是會出現上面我說的問題 囧 04/30 11:12
18F：→ MAGICXX:所以我希望有人可以跟我講解一下 這VB6跟VBA之間的差別... 04/30 11:20
19F：推 sueadolph:不清楚你vb怎學的，combobox可以寫成這樣子 04/30 14:58
20F：→ sueadolph:對一些基本元件跟語法來說，vb6跟vba 沒太大的差別 04/30 14:59
21F：→ sueadolph:VBA主要是補足專業軟體需求的部份，但你連VB都還沒站穩 04/30 15:00
22F：→ sueadolph:就急著想跳去VBA... 04/30 15:01
23F：→ sueadolph:逐步執行這東西先學好吧,然後就知道上頭的程式令人無言 04/30 15:03
24F：→ sueadolph:vba要學好 執步執行(F8)跟新增監看式要學會... 04/30 15:18
25F：→ sueadolph:應該說 vb的時候就要學會了... 04/30 15:19
27F：→ MAGICXX:這才是原本的程式碼 你可以試試看GIS內的VBA能不能這樣跑 04/30 15:42
28F：→ MAGICXX:要是可以的話 還請大大教學.... 04/30 15:42
29F：→ MAGICXX:我已經有對照著GIS內的VBA修改過了....還是有問題 04/30 15:43
30F：→ MAGICXX:上面這些是不可能在VB6內跑的....請大大看清楚 04/30 15:43
31F：推 horngsh:花時間爭論,不如花這些時間在自己找答案上面 05/01 18:56
32F：推 sueadolph:你這篇用了value 之前那篇用的是ItemData二者的意義不同 05/02 18:06
33F：→ sueadolph:vba 不支援 ItemData (請使用Listindex 搭配陣列來解決 05/02 18:16