标题: iret=shell这地方哪里有问题？ [打印本页] 作者: pyk 时间: 2003-1-25 07:44 标题: iret=shell这地方哪里有问题？ Private Sub cmdend_click()
End
End Sub
Private Sub cmdstart_Click()
Dim iret
iret = Shell("c:\pwin95\calc.exe", vbNormalFocus)
End Sub
Private Sub form_load()
Dim curdate
Dim curtime
curdate = Date
y = Year(curdate)
m = Month(curdate)
w = Weekday(curdate)
curdate = y & "年" & m & " 月 " & d & " 日 " & "," & " 星期 " & w
Text1 = curdate
curtime = Time
h = Hour(curtime)
mi = Minute(curtime)
s = Second(curtime)
curtime = h & "点" & mi & "分" & s & "秒"
Text2 = curtime
End Sub