作者geniusgod (华丽的贪婪 人最美丽本性)
看板Visual_Basic
标题Re: [VB6 ] 关於combo 和 picture box的问题
时间Fri Apr 20 00:19:37 2007
※ 引述《geniusgod (华丽的贪婪 人最美丽本性)》之铭言：
: Q1：我的程式里有两个Combo box(Combo1&2)
: Combo1里面有4个ListIndex Combo2也是 每个对应代表不同的工作
: (例当Combo1.ListIndex = 2时 Combo2.ListIndex可=0、1、2、3)
: 但是当Combo1.ListIndex = 0时 我只想Combo1.ListIndex = 0或1两个选项就好
: 本来想用
: Private Sub Combo1_Click()
: If Combo1.ListIndex = 0 Then
: Combo2.RemoveItem 2
: .
: .
: .
: 但是这样当我想选Combo1.ListIndex = 1或2或3时
: Combo2.ListIndex就只剩下0和1两个选项而已(2、3已移除了) 这样不合所求
: 请问有其他更好的语法嘛?
o(〒▽〒)o 没人回只好写清楚点 请大家指教
首先这段应该没问题吧
Private Sub Form_Load()
Combo1.AddItem "W"
Combo1.AddItem "X"
Combo1.AddItem "Y"
Combo1.AddItem "Z
Combo2.AddItem "A"
Combo2.AddItem "B"
Combo2.AddItem "C"
Combo2.AddItem "D"
End Sub
我是要在combo1=W和X时候 combo2只有A和B两个选项
combo1=Y和Z时候 combo2时候 A、B、C和D四个选项 都可选择
Private Sub Combo2_Click()
Select Case Combo1.ListIndex
Case Combo1.ListIndex = 0
Combo2.RemoveItem 3
Combo2.RemoveItem 2
Combo2.RemoveItem 1
Combo2.RemoveItem 0
Combo2.AddItem "A"
Combo2.AddItem "B"
Case Combo1.ListIndex = 1
Combo2.RemoveItem 3
Combo2.RemoveItem 2
Combo2.RemoveItem 1
Combo2.RemoveItem 0
Combo2.AddItem "A"
Combo2.AddItem "B"
Case Combo1.ListIndex = 2
Combo2.RemoveItem 3
Combo2.RemoveItem 2
Combo2.RemoveItem 1
Combo2.RemoveItem 0
Combo2.AddItem "A"
Combo2.AddItem "B"
Combo2.AddItem "C"
Combo2.AddItem "D"
Case Combo1.ListIndex = 3
Combo2.RemoveItem 3
Combo2.RemoveItem 2
Combo2.RemoveItem 1
Combo2.RemoveItem 0
Combo2.AddItem "A"
Combo2.AddItem "B"
Combo2.AddItem "C"
Combo2.AddItem "D"
End Select
End Sub
我也有试过combo1=0,1...
combo1=2,3...这种合并的方式 但意思应该相同吧@@
请问哪里有误啊? 麻烦指教
谢谢
: Q2：例当我有一50*50的图片要载入一30*30的Picture Box时
: (总之图片比Picture Box大啦...)
: 我不想用Autosize让Picture Box变的跟图片一样大
: 却又可以完整观看到整个图片 请问有什麽方法吗?
: 我之前是用卷轴但是不行...(因为卷轴ㄧ拉动整个图片会一起移动XD)
: 请问有更好的方法吗?
: 我实在想不到方法才来问的．．．
: 麻烦不吝赐教
: 谢谢
--
◆══════════════════════════════════天══◆
║你曾经看过流星雨吗？ ／▃▃ kyc ／ 险 ║
║那是非常美丽的景象，虚幻的光芒，如人一生。 。 ▂ ／ 。 刀 ║
║神醉梦迷，我很喜欢这个名字... 。~＼▂▂ 。 ／ 藏 ║
║下一刻，我将连自己也遗忘；但这一刻，是属於我的！／◢藏﹥01010。 ／ φby ║
◆═══════════════════════。 ／ ||＼════。═kyc01010
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.126.131.231
※ 编辑: geniusgod 来自: 122.126.132.34 (04/20 04:31)
1F：推 colawei:combo2.clear 04/20 08:55