杭州交通信息网体育学科的含义:懂vb的朋友帮帮忙
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 03:17:38
我做了一个闹钟程序请看看错在哪？？
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Timer1_Timer()
Dim s, f As Integer
If Option2.Value = True Then
s = Int(Text3.Text)
f = Int(Text4.Text)
h = Hour(Time)
m = Minute(Time)
If (h = s) And (m = f) Then
MsgBox "时间到了，你该做你该做你要做的是了！！"
mciSendString "open ""bell.wav"" alias music", vbNull, 0, 0
mciSendString "play music", vbNull, 0, 0
End If
End If
End Sub
提示s = Int(Text3.Text)
f = Int(Text4.Text)
这两句类型不匹配
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Timer1_Timer()
Dim s, f As Integer
If Option2.Value = True Then
s = Int(Text3.Text)
f = Int(Text4.Text)
h = Hour(Time)
m = Minute(Time)
If (h = s) And (m = f) Then
MsgBox "时间到了，你该做你该做你要做的是了！！"
mciSendString "open ""bell.wav"" alias music", vbNull, 0, 0
mciSendString "play music", vbNull, 0, 0
End If
End If
End Sub
提示s = Int(Text3.Text)
f = Int(Text4.Text)
这两句类型不匹配
在FORM_LOAD事件内加入:
TEXT1.TEXT=1
TEXT2.TEXT=1
给TEXT控件赋一个初始值,而且需要为数字，不然窗体初始化便会在s = Int(Text3.Text) 等语句出错，因为text控件的默认值为“textN”，进行数值转换时便类型不匹配。
Int是取整函数，参数得是一个数才行，比如Int(7.1)得到的是7。
你的意思是把文本框里的文字转成数据，用 Val(Text3.Text) 试试吧，应该好使的。
int()只能是字长行，显然你这俩句不对，你想要s.f分别为text3.text4输入得数值就要用其他得函数！应该是