討論區快速選單
知識庫快速選單
討論區最近新進100則主題 政府補助!學嵌入式+物聯網 全方位AWS解決方案完整培訓
[ 回上頁 ] [ 討論區發言規則 ]
combobox超過256項自動觸發click
更改我的閱讀文章字型大小
作者 : trueway(trueway)
[ 貼文 96 | 人氣 7657 | 評價 120 | 評價/貼文 1.25 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2015/11/22 下午 05:42:01
我在VBA表單中放3個combobox如果加入255項,程式就正常,但是超過255項就會自動觸發click事件

而且還把combobox.text清成空白, 請問是否有這樣的限制呢? 程式如下

Private Sub ComboBox1_Click()
    Debug.Print ComboBox1.Text, ComboBox2.Text, ComboBox3.Text
End Sub

Private Sub ComboBox2_Click()
    Debug.Print ComboBox1.Text, ComboBox2.Text, ComboBox3.Text
End Sub

Private Sub ComboBox3_Click()
    Debug.Print ComboBox1.Text, ComboBox2.Text, ComboBox3.Text
End Sub

Private Sub CommandButton1_Click()
 Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 0 To 254
     ComboBox1.AddItem i
     ComboBox2.AddItem i
     ComboBox3.AddItem i
    Next i
    ComboBox1.Text = 255
    ComboBox2.Text = 255
    ComboBox3.Text = 255
    Debug.Print ComboBox1.Text, ComboBox2.Text, ComboBox3.Text
End Sub

列印結果正常
255 255 255

程式如果改成這樣

Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 0 To 255
     ComboBox1.AddItem i
     ComboBox2.AddItem i
     ComboBox3.AddItem i
    Next i
    ComboBox1.Text = 255
    ComboBox2.Text = 255
    ComboBox3.Text = 255
    Debug.Print ComboBox1.Text, ComboBox2.Text, ComboBox3.Text
End Sub

列印結果
255
255 255
255 255 255
255 255 255

找了好久,煩請高手解答.
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.109375