请高手帮忙VB代码问题

Question

本帖最后由 bcrun 于 2010-11-21 11:39:11 编辑

Answer 1

文件路径是否正确。sndPlaySound "ringin.wav", SND_ASYNC Or SND_LOOP
换成绝对路径看看。

Answer 2

不是路径问题。
将
If Shij = CDate(tt) And riq = CDate(rr) Then
  sndPlaySound "ringin.wav", SND_ASYNC Or SND_LOOP
  End If
改成If Shij = "2010-11-19" And riq = "20:00:00" Then
  sndPlaySound "ringin.wav", SND_ASYNC Or SND_LOOP
  End If可以运行

Answer 3

你的command2里设置的两个变量 tt rr 在Timer1_Timer事件中无效.
改成:
Private Sub Timer1_Timer()
  Shij = CStr(Time)
  Label1.Caption = Shij
  riq = CStr(Date)
  Label2.Caption = riq
  If Shij = CDate(Text1.Text) And riq = CDate(Text2.Text) Then
  sndPlaySound "ringin.wav", SND_ASYNC Or SND_LOOP
  End If
End Sub就行了.另外,注意设置好Timer的interval属性,最好设置成500.

Answer 4

感谢qianjin036a
测试通过了
再弱弱的问一下
command2里设置的两个变量 tt rr 怎样才能在Timer1_Timer事件中有效呢？

Answer 5

写在窗体代码最前面：
private tt as string
private rr as stringprivate sub form_load()
...

Answer 6

private tt as string
private rr as string
private sub form_load()
......
End
与private sub form_load()
dim tt as string
dim rr as string
End sub有什么区别呢？
请指教