未找到方法或数据成员的错误
一个初学VB人的麻烦,不知道哪里错了,还请大侠帮忙!
和书上的程序一样,但就是编译出错!
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
Dim d As Date
d = Date
Label1.Caption = Year(d) & "年 " & Month(d) & "月 " & Day(d) & "日 "
Label2.Caption = "星期 " & Choose(Weekday(d), "日 ", "一 ", "二 ", "三 ", "四 ", "五 ", "六 ")
Label3.Caption = Time
Label4.Caption = DateDiff( "s ", Now, #10/1/2008#) & "秒 "
End Sub
Private Sub 今天是_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
End Sub
Private Sub 距2008奥运会还有_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
End Sub
Private Sub 现在时间_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
End Sub
[解决办法]
标签是可以复制的，就是控件数组
比如Name为lblTest标签的数组
第一个lblTest为lblTest(0).caption= "1 "
第二个lblTest(1).caption= "2 "
....
[解决办法]
Format(Now, "yymmddhhmmss ")
Now函数是取得当前系统时间
Format函数是将时间格式化，上面函数的值为(如当前时间为2007年7月13日16时5分15秒) "070713160515 "，函数中 "yymmddhhmmss "意为： "yy "以两位输出时间数据中的年份；第一个 "mm "以两位输出时间数据中的月份； "dd "以两位输出时间数据中的日数； "hh "以两位输出小时数；第二个 "mm "以两位输出分钟数； "ss "以两位输出秒数。
你试下这个函数输出为何就明白了：Format(Now, "yyyy年m月d日 h时m分s秒 ")
Int((99-10+1)*Rnd+10)是生成99到10的随机整数
随机数产生算式为 Int(上限 - 下限 + 1) * Rnd + 下限
这下能明白GetRkno函数的作用了吧？
