作者BearWu (B.r)
看板Visual_Basic
標題Re: [請益] 程式幫忙修改，謝謝~
時間Sun May 15 19:57:36 2005
※ 引述《dilutetarget (邁向幸福的擁抱吧~)》之銘言：
: 不好意思我只是個初學者，如果問題太笨或是太簡單還請見諒~
: [視窗圖]http://img124.echo.cx/img124/2497/11go.jpg
: [程式碼]
dim a as integer
dim b as integer
: Private Sub cmdend_Click()
: End
: End Sub
: Private Sub cmdrun_Click()
: m = Val(txta.Text)
: n = Val(txtb.Text)
: total = m + n
: txtshow.Text = total
: End Sub
: Private Sub hsb1_Change()
: a = hsb1.Value
b = hsb2.Value
text3 = a + b
: End Sub
: Private Sub hsb2_Change()
: b = hsb2.Value
a = hsb1.Value
text3 = a + b
: End Sub
: 這小段程式與物件屬性無誤可執行。
: 不過實際上的題目卻是：
: 數字A與數字B的值為0~100，而其值是水平捲軸產生並顯示其值
: 於文字方塊內，同時將二數之何顯示text3文字方塊(也就是"A+B="之後的那個方塊)內~
: 因為"執行"那個commandbutton是我自己加入的，來測試自己的程式碼是否正確~
: 如果沒有那個button而要使和直接顯示於text3的話，請問程式該怎麼改呢？
: ...麻煩各位了，文章蠻長的，謝謝！
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 192.83.195.244
1F：→ BearWu:這樣子試試看!!也就是在每次hsb變換時都計算一遍 192.83.195.244 05/15
2F：推 fumizuki:沒必要用變數吧? 210.58.156.43 05/15
3F：→ dieb:對啊，沒必要用變數 61.229.71.109 05/15
4F：推 BearWu:哦!!直接hsb1.Value + hsb2.Value吧!! 192.83.195.244 05/15