visualbasic程式設(shè)計-資料下載頁
2025-07-17 18:42本頁面
【正文】 TimeSerial(hour,min,sec) lngBefore=Timer OXXOXXXXOX lngAfter=Timer lngTimeDiff=lngAfterlngBefore 26 日期與時間函數(shù) (cont’d) 暫停一下 Sub wait (sec as single) dim start as Single start=Timer do until (timerstart+86400) mod 86400sec loop End Sub 27 計時器 將計時器 (Timer)的元件拉到表單上 屬性： Interval ? 觸發(fā)間隔，以千分之一秒為單位 ? 當(dāng) Interval為 0時，不會 Timer事件 事件處理函式 :Timer ? 每次觸發(fā)時會執(zhí)行一次 28 小時鐘 Private Sub Timer1_Timer() Cls Print Date。 Time If (Second(Time) = 0) Then Beep End If End Sub 整點報時 : Second(Time)=0 And Minute(Time)=0 29 資料檢查函數(shù) IsDate() date1=“五月 15, 2022” date2=5/15/2022 nodate=“HiHi” Result=IsDate(date1) Result=IsDate(date2) Result=IsDate(nodate) 30 資料檢查函數(shù) (cont’d) IsEmpty() IsNumeric() ? Dim MyVar, MyCheck ? MyCheck = IsEmpty(MyVar) 39。 Returns True. 31 儲存專案 File?Save Project 32 製作執(zhí)行檔 File?Make 專案名 .exe 33 製作安裝程式 編成的執(zhí)行檔必須要在有安裝 VB或部份元件的機器執(zhí)行
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1