以为timer很简单,可还是遇到问题 我想做个节拍器,均匀的发出一强三弱的声音(四个声音文件)如何用一个timer控件控制节拍速度???朋友们帮忙!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我想可以这样吗?dim i as interingtimer1.timer()i=i+1if i mod 4=0 then强else弱end ifend sub你试下看 dim i as integeri=0Private Sub Timer1_Timer()select case icase 0 play(强)case 1 play(弱)case 2 play(弱)case 3 play(弱)i=i-3end selectEnd Sub 急!如何打印发票?? 急急急!!!我在PictureBox中做图时,如何进行高效快速的刷新。 懂VB和C++的朋友,请帮帮忙!!! 如何获得当前活动窗体的应用程序的句柄 请教 如何 判断一个目录是否存在! 这个问题太奇怪了! 请高手指教:(VBA 错误:不能设置series 的value 属性!) teechart中日期时间格式的问题??? 能不能用ado删除一个数据库呢?(access2000的)或是用adox? 请问个位大虾怎样在vb里建立帮助文档? 菜鸟提问,向高手请教一个VB中SQL中的问题, superdullwolf(超级大笨狼) 来接分!!!!!!!!!!!!!!!
dim i as intering
timer1.timer()
i=i+1
if i mod 4=0 then
强
else
弱
end if
end sub
你试下看
i=0
Private Sub Timer1_Timer()
select case i
case 0
play(强)
case 1
play(弱)
case 2
play(弱)
case 3
play(弱)
i=i-3
end select
End Sub