Re: [VB6 ] 關於combo 和 picture box的問題

[geniusgod (華麗的貪婪 人最美麗本性)]

※ 引述《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)
推 colawei:combo2.clear