作者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