作者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