[VBA ] GIS內的VBA...

[MAGICXX (逢甲阿法)]

因為我之前幾篇所提出的疑問都是在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)
→ todo70192:因為引擎的聲音太大聲了 尤其是在橋下 回音更大聲
→ todo70192:害我沒辦法專心講電話 聽不清楚
→ sinyuan99:所以要怪機車騎士嗎?_?
→ todo70192:沒錯 機車騎太兇 引擎聲音太大 沒考慮到路邊講電話聽不
→ todo70192:清楚
--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.121.146.41
推 sueadolph:GIS是哪個的縮寫? vba在學的過程中，要先看他支援有哪些
推 sueadolph:專業的軟體，還是上網查比在這問還要快...
推 sueadolph:不過，建議你學VBA之前，還是先最基本的VB學好吧
推 sueadolph:實在是看不懂 AddItem的下一行跑出來一個 Value是要作啥
→ sueadolph:這寫法連VB都不對了....是要怎麼跳VBA學= =
→ sueadolph:如果你開頭學的GIS 指的是"地理資訊系統" 你說的VBA指的
→ sueadolph:是ArcGIS裡頭的VBA應用。剛剛GOOGLE看過他的程式碼，並
→ sueadolph:不難啊。 還是先把基礎VB打好吧.除非你是今年要畢業的XD
→ MAGICXX:我的確是趕著要今年畢業啦 囧
→ MAGICXX:不過 因為我拿過VB內已經可以跑的程式碼
→ MAGICXX:卻無法在VBA裡面跑 所以我才一路修成這樣的....
→ MAGICXX:不過還是會出現上面我說的問題 囧
→ MAGICXX:所以我希望有人可以跟我講解一下 這VB6跟VBA之間的差別...
推 sueadolph:不清楚你vb怎學的，combobox可以寫成這樣子
→ sueadolph:對一些基本元件跟語法來說，vb6跟vba 沒太大的差別
→ sueadolph:VBA主要是補足專業軟體需求的部份，但你連VB都還沒站穩
→ sueadolph:就急著想跳去VBA...
→ sueadolph:逐步執行這東西先學好吧,然後就知道上頭的程式令人無言
→ sueadolph:vba要學好 執步執行(F8)跟新增監看式要學會...
→ sueadolph:應該說 vb的時候就要學會了...
→ MAGICXX:這位大大言重了....請參考#1DhJsZpx (Visual_Basic)
→ MAGICXX:這才是原本的程式碼 你可以試試看GIS內的VBA能不能這樣跑
→ MAGICXX:要是可以的話 還請大大教學....
→ MAGICXX:我已經有對照著GIS內的VBA修改過了....還是有問題
→ MAGICXX:上面這些是不可能在VB6內跑的....請大大看清楚
推 horngsh:花時間爭論,不如花這些時間在自己找答案上面
推 sueadolph:你這篇用了value 之前那篇用的是ItemData二者的意義不同
→ sueadolph:vba 不支援 ItemData (請使用Listindex 搭配陣列來解決