關於VB的checkedlistbox 如何相加的問題...

頁: [1]

showtheu 發表於 2014-8-31 01:57 AM

本帖最後由 showtheu 於 2014-8-31 05:21 PM 編輯

各位大大好...
最近在當兵前臨時興起想做個簡單的程式，因為科系相關有接觸過C語言...(但基本上都還給老師了= =...int print scanf那些...
所以後來想起來在校的同學有用過VB寫程式，當時看他寫的程式碼是比較淺顯易懂的方式去寫...
題外話

老實說忘光的情況下都是在網路上GOOGLE看到有人分享的範例是符合我需要的寫法然後自己在東改西改看看能不能跑出自己想要的結果...
假設有兩個checkedlistbox(其實需要是超過兩個已上的checkedlistbox可以累加數值到一個textbox)
checklistbox1
dim a(,) as object {{"柳丁",10},{"芒果",20},{"西瓜",30}}
然後用迴圈run出來可單選或多選
勾選好的總數會傳到textbox.text上

但是問題來了...@@
我不知道怎麼改成可以支援兩個checkedlistbox去做相加的動作
假如
checklistbox2
dim b(,) as object {{"早餐",300},{"中餐",200},{"晚餐",100}}

是否可以改成 box1勾選柳丁芒果 box2 勾選中餐
textbox.text結果會顯示230(或者是30+200)

checkedlistbox_selectedindexchanged這邊是寫了簡單的迴圈
  Dim sum As Integer
      TextBox1.Text = sum

      sum = Val(TextBox1.Text)
      For i = 0 To CheckedListBox2.Items.Count - 1
         If CheckedListBox2.GetItemChecked(i) = True Then sum += demo(i, 1)
      Next
      TextBox1.Text = sum

至於TextBox1.Text = sum 在FOR上下各寫一行是...有點不會寫防呆的判別式...
所以如果只寫下面會變成勾選後點擊別的選項會一直做累加的動作...不知道怎麼改成勾選就是加數值取消就歸0

先感謝各位高手了...
會在半夜發這奇怪的問題也是想不出辦法會難以入眠...(連續好幾天整天都在盯著螢幕想怎麼寫完)
完成這支程式後有準備要回頭去重頭學一遍程式學了...
8/31 17:18
各位大大...謝謝...
已經研究出來怎麼做總合了>...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

頁: [1]

伊莉討論區's Archiver

關於VB的checkedlistbox 如何相加的問題...