HdPx4qI6.rar (6.69 KB) [原创]自编第一个小程序

[此贴子已经被作者于2006-11-15 16:17:46编辑过]

顶一下！

hmxhByPj.rar (15.18 KB) [原创]餐馆查询系统VB

[此贴子已经被作者于2006-11-13 10:24:10编辑过]

程序代码：

Private Sub browse_Click()
browseDialog.DialogTitle = "选择路径"
browseDialog.ShowOpen
End Sub

Private Sub clock_off_Click()
hour = "* *"
minute = "* *"
second = "* *"
on_off.Enabled = False
clock_on.Value = False
End Sub

Private Sub clock_on_Click()
hour = "22"
minute = "58"
second = "00"
on_off.Enabled = True
clock_off.Value = False
End Sub

Private Sub Form_Load()
on_off.Interval = 1000
current_time = CStr(Time)
browseDialog.FileName = "C:\WINDOWS\system32\cmd.exe"
End Sub
Private Sub on_off_Timer()
Dim i As Single
current_time = CStr(Time)
If Mid(current_time, 1, 8) = hour & ":" & minute & ":" & second Then
i = Shell(browseDialog.FileName, 1)
End If
End Sub