【文章內(nèi)容簡介】 對標簽上所顯示的文本進行字型、字體、大小、風格和顏色的設置。首先和時鐘界面相同，做出聲明，將窗體的背景顏色設置為透明色，然后運用常用的日期函數(shù)條用系統(tǒng)的日期。Year(Now)調(diào)用系統(tǒng)年份，Month(Now) 調(diào)用系統(tǒng)月份，Day(Now)調(diào)用系統(tǒng)日期。主要程序如下。Dim rtnamp。Dim X0, Y0 As IntegerPrivate Sub Form_ Load()Me. Back Color = RGB(66,66,66)rtn = Get Window Long(hwnd, GWL_EXSTYLE)rtn = rtn Or WS_EX_LAYEREDSet Window Long hwnd, GWL_EXSTYLE, rtnSet Layered Window Attributes hwnd, RGB(66,66,66), 0, LWA_COLORKEY 39。將RGB(66,66,66)顏色設置為透明的End SubPrivate Sub Timer1_Timer()Label1=Year(Now)amp?！澳辍盿mp。Month(Now)amp。“月”Label2=Day(Now)Label3=Weekday Name(Weekday(Date))End SubPrivate Sub Command1_ Click()Unload Form2End SubPrivate Sub Form _Mouse Down(Button As Integer, Shift As Integer, X As Single, Y As Single)Release CaptureSend Message ,amp。HA1,2,0amp。End SubPrivate Sub Label1_Mouse Down(Button As Integer, Shift As Integer, X As Single, Y As Single)Release CaptureSend Message ,amp。HA1,2,0amp。End SubPrivate Sub Label2_Mouse Down(Button As Integer,Shift As Integer, X As Single, Y As Single)Release CaptureSend Message Me. hwnd,amp。HA1, 2, 0amp。End Sub首先在文本框中顯示表盤上當前的時間，通過鍵盤輸入賦值，返回到時鐘程序中，以在時鐘上顯示調(diào)整后的時間，或者可以通過鼠標點擊加減時間數(shù)，每點擊一次改變值為1。如通過鍵盤輸入，時的數(shù)值超過24或分、秒的數(shù)值超過60，則提示錯誤，返回當前時間，如果通過鼠標點擊改變數(shù)值，則時的數(shù)值大于24，則返回到0，分、秒的數(shù)值大于60，返回到0，以此循環(huán)[9]。 調(diào)時算法流程圖同樣地，在當前工程中添加窗體，運用命令按鈕（Command Button）、文本框（Text Box）、垂直滾動條（VScroll Box）控件。 調(diào)時對象窗口（1）命令按鈕（Command Button）選擇兩個命令按鈕（Command Button）Command1和Command2按鈕，分別設定名字為“確定”、“取消”。點擊“確定”，即修改為所設定的時間，同時關閉此窗口，點擊“取消”，時間仍為修改前的時間。屬性設置與時鐘界面的按鈕類似[10]。（2）文本框（Text Box）文本框（Text Box）控件用來顯示表盤上所顯示的時間，并可以通過鍵盤輸入修改時間。在文本框的屬性中設置其字體大小、顏色等，及文本框的大小。Alignment設置為2，文本中間對齊。Tab Stop設置是否可以用“Tab”鍵選取此對象。取值為：True可以、False不可以。設計中選擇Ture，這樣用戶可用通過鍵盤上的“Tab”鍵實現(xiàn)文本框的選擇[11]。（3）垂直滾動條（V Scroll Box）控件滾動條通常用于附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可以用來做數(shù)據(jù)的輸入工具，本次設計使用滾動條完成數(shù)據(jù)的輸入。主要屬性設置如下。Enabled用于設定是或?qū)κ录a(chǎn)生響應,取值為：True 可用、False 不可用,在執(zhí)行程序時,該對象用灰色顯示,并且不響應任何事件。將其設置為Ture，以響應事件。Max定義Value屬性值的最大值，Min定義Value屬性值的最小值，設計中使用了三個滾動條，VScrollBox1的Max設為100，Min設為0；VScrollBox2和VScrollBox3的Max設為100，Min設為0。Small Change用于設置單擊滾動條兩端箭頭時，每單擊一次滾動條移動的數(shù)量。將其設置為1，每點擊一次，數(shù)值的變化值為1。Value屬性值對應于滾動框在滾動條中的相應位置，是一個整數(shù)。在程序中將當前的時間值賦值給Value，以實現(xiàn)準確調(diào)時[12]。加載窗體時將當前的時、分、秒取整顯示在文本框中，根據(jù)算法，設計調(diào)時界面的主要程序如下：Private Sub Form_ Load()=Int(H)=Int(M)=Int(S)=25=0=1=60=0=1=60=0=1End SubPrivate Sub Command1_ Click()If Val() = 24 And Val() = 60 And Val()60ThenH=Val()M=Val()S=Val()Unload Form3Else=Hour(Now)=Minute(Now)=Second(Now)End IfEnd SubPrivate Sub Command2_ Click()Unload Form3End SubPrivate Sub Text1_ hange()=Val()End SubPrivate Sub Text2_ Change()=Val()End SubPrivate Sub Text3_ Change()=Val()End SubPrivate Sub VScroll1_ Change()=If =24Then=0End IfEnd SubPrivate Sub VScroll2_ Change()=If =60 Then=0End IfEnd SubPrivate Sub VScroll3_ Change()=If =60Then=0End IfEnd Sub首先在文本框中顯示當前的日期，通過鍵盤輸入賦值，設定日期，使用Visual basic的內(nèi)部函數(shù)Date Diff函數(shù)，可用于倒計時，根據(jù)系統(tǒng)的日期將設置日期和當前日期相減，得到具體的數(shù)值，顯示在界面上。在窗體Form3中添加倒計時界面部分，使用框架（Frame）控件將各個獨立的功能模塊隔開，在此框架中運用了標簽（Label）、命令按鈕（Command Button）、文本框（Text Box）控件。 倒計時對象窗口其控件屬性的設置與調(diào)時界面的設置類似，只將其命令按鈕（Command Button）命名為“開啟”和“關閉”，單擊開啟按鈕，則在日歷界面上顯示倒計時，與日歷相隔顯示，單擊關閉按鈕，則不顯示倒計時，在日歷界面上只顯示日歷部分。Private Sub Command3_ Click()a=Val()b=Val()c=Val()g=1End SubPrivate Sub Command4_ Click()g=0End SubPrivate Sub Timer1_ Timer()k=k+1If g=0ThenLabel1=Year(Now)amp?！澳辍盿mp。Month(Now)amp?！霸隆盠abel2=Day(Now)Label3=Weekday Name(Weekday(Date))End IfIf g=1 ThenIf k=10ThenLabel1=Year(Now)amp?！澳辍盿mp。Month(Now)amp?！霸隆盠abel2= Day(Now)Label3=Weekday Name(Weekday(Date))Else If k10And k15ThenLabel1=“距”amp。 a amp?！澳辍盿mp。 b amp。“月”amp。 c amp?！叭铡盿mp?！斑€有”Label2=Date Diff(“d”,Date,aamp。“”amp。 b amp?！啊盿mp。 c)Label3=“天”ElseIf k=15Thenk=0EndIfEndIfEndIfEndSub首先將文本框內(nèi)容設置為0，通過鍵盤輸入賦值，返回到程序中，或者可以通過鼠標點擊加減時間數(shù)，每點擊一次改變值為1，以此來設定鬧點的時間。如通過鍵盤輸入，時的數(shù)值超過24或分、秒的數(shù)值超過60，則提示錯誤，返回為0，如果通過鼠標點擊改變數(shù)值，則時的數(shù)值大于24，則返回到0，分、秒的數(shù)值大于60，返回到0以，以此循環(huán)。然后判斷文本框中的數(shù)值是否分別于時、分、秒的數(shù)值相同，如果相同，則彈出音樂界面，播放音樂，單擊關閉按鈕，退出音樂，如果沒有點擊，則循環(huán)播放音樂。 鬧鐘算法流程圖鬧鐘的界面設計包括兩部分內(nèi)容，一部分為設置界面，一部分為播放音樂提醒界面。在窗體Form3中添加鬧鐘設置界面部分，同樣使用框架（Frame）控件將功能模塊隔開，在此框架中運用標簽（Label）、命令按鈕（Command Button）、文本框（Text Box）、垂直滾動條（V Scroll Box）控件。 鬧鐘對象窗口其標簽（Label）、命令按鈕（Command Button）、文本框（Text Box）控件屬性的設置與倒計時界面的設置相同，垂直滾動條（V Scroll Box）控件的屬性設置相同。在工程中添加窗體Form4，設計播放音樂提醒界面，設計中使用到了Windows Media Player控件，因為它不是常用控件，所以需將其添加到工具欄中，單擊“工程”下的“部件”命令將Windows Media Player控件前打鉤，單擊“應用”將其添加。并將其visible屬性設置為false。添加Image空間在窗體上并插入所需圖片。 播放音樂對象窗口鬧鐘設置的主要程序代碼如下：Private Sub Text7_ Change()If Val()=24Then = 0i=MsgBox(“輸入超出范圍，請重新輸入…”, 16, “輸入錯誤”)Else=Val()EndIfEnd SubPrivate Sub Text8_ Change()If Val()=60Then = 0i=Msg Box(“輸入超出范圍，請重新輸入…”, 16, “輸入錯誤”)Else=Val()EndIfEnd SubPrivate Sub Text9_ Change()If Val()=60Then = 0i = Msg Box(“輸入超出范圍，請重新輸入…”, 16, “輸入錯誤”)Else = Val()End IfPrivate Sub VScroll4_ Change() = If =24Then = 0End IfEnd SubPrivate Sub VScroll5_ Change() = If =60Then=0End IfEnd SubPrivate Sub VScroll6_ Change() = If =60Then=0End IfEnd SubIf f = 1 ThenIf Int(H)=hn And Int(M)=mn And Int(S)=sn ThenEnd If播放音樂主要程序代碼如下：Private Sub Form_ Load()=“=“歌曲\”End SubPrivate Sub WindowsMediaPlayer1_Play State Change(By