[VBA ] GIS內的VBA...

看板Visual_Basic作者MAGICXX (逢甲阿法)時間14年前 (2011/04/28 19:28)推噓7(7推 0噓 21→)

留言28則, 3人參與討論串1/2 (看更多)

因為我之前幾篇所提出的疑問都是在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

09/11 20:11,

09/11 20:11

→

todo70192

09/11 20:12,

09/11 20:12

→

sinyuan99

09/11 20:24,

09/11 20:24