combo1下拉表中有一串选项a,b,c,d,e,f,g,对应1,2,3,4,5,6,7
当combo1选中a时,label1里只能显示1,选b时,label1里只能显示2,以此类推,语句怎么写?
虾米求教
当combo1选中a时,label1里只能显示1,选b时,label1里只能显示2,以此类推,语句怎么写?
虾米求教
解决方案 »
- 求教~如何修改jpg图片的尺寸???
- vb 如何判断 text(有垂直滚动条) 控件 的滚动条到了末尾?
- vb 一个窗体几个人同时录入,速度奇慢,而且会自动错误关闭,代码如下。但是一个人没有问题。
- 此问题是属于CAD二次开发还是用VBA编程?
- 如何搜索局域网中的计算机?
- 引用Microsoft Excel 9.0 Object Library的问题
- 高手请教我现在使用combobox控件如何可以控制输入的时间
- VB如何声明C的变量
- VB + Winsock + CGI 实现 QQ (OICQ) 在线检测(支持代理服务器)!
- 为什么我将VB程序打包后,安装后运行老是提示什么什么.dll找不到???
- VBA 用户窗体 无法实现 xp界面
- 如何获取控件注册的CLSID,GUID?
直接在click事件中,debug.print combo1.listindex+1
或者利用一下itemdata,方法很多.
先把前面的帖子结了再说吧......
Option ExplicitPrivate Sub Combo1_Click()
Label1.Caption = Combo1.ItemData(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
Dim i As Integer
For i = 97 To 103
Combo1.AddItem Chr(i)
Combo1.ItemData(i - 97) = i - 96
Next
End Sub
combo1选项:国寿 ,海富通 , 增强 , 晚晴 , 稳健 , 计划 等选项
label1的对应显示:国寿 显示WQC001,海富通 显示WQS001,增强 显示WQX001 ,晚晴 显示WQ0001 ,稳健 显示JHDHA1 ,计划 显示020001 等等
还有好几个就不列了
这个循环能做么?还是只能用人肉模式?
Option ExplicitDim myDataPrivate Sub Combo1_Click()
Label1.Caption = myData(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
Dim i As Long
myData = Array("a", "b", "c", "d", "f")
For i = 0 To UBound(myData)
Combo1.AddItem myData(i)
Next
Combo1.Text = Combo1.List(0)
Label1.Caption = myData(0)
End Sub
Label1.Caption = myCaption(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
Dim i As Long
myData = Array("a", "b", "c", "d", "f")
myCaption = Array("001", "002", "003", "004", "005")
For i = 0 To UBound(myData)
Combo1.AddItem myData(i)
Next
Combo1.Text = Combo1.List(0)
Label1.Caption = myCaption(0)
End Sub