【正文】 PowerDesigner等,不可否認,這些產(chǎn)品相當(dāng)出色,如果能夠熟練掌握將是編程者能力的體現(xiàn),但是必須承認,對Windows操作系統(tǒng)最熟悉的還是微軟,而且微軟本身Windows操作系統(tǒng)的源代碼采取不公開的策略,使得其他公司出品的產(chǎn)品在實現(xiàn)相同功能時多少都要走些彎路,用戶在使用這些產(chǎn)品設(shè)計應(yīng)用程序時,程序的效率將會受到影響。 前面已經(jīng)談到,在VB中把窗體以及菜單、按鈕等控件稱為對象,如果設(shè)計出了應(yīng)用程序,那么與應(yīng)用程序的用戶直接進行交互的就是這些對象組成的圖形界面,也稱為用戶接口或用戶界面,甚至程序和程序之間也會有通訊和交戶,基本上用戶是通過鼠標、鍵盤與應(yīng)用程序進行交互的,它不沿預(yù)定的路徑執(zhí)行,應(yīng)用程序代碼的路徑在每次響應(yīng)而執(zhí)行時可能都是不形同的。 ，win2000，winxp，windowsNT等操作系統(tǒng)下，是一個32位的應(yīng)用程序開發(fā)工具。網(wǎng)頁上有一些這方面的介紹，但是關(guān)于VB方面的編程資料卻比較少。以前開發(fā)Windows下軟件是專業(yè)人員的工作，需要掌握許多專業(yè)知識和經(jīng)過特殊的培訓(xùn)才能勝任。.關(guān)鍵字：農(nóng)歷公歷轉(zhuǎn)換及計算器、查詢控制面板、VB6。程序應(yīng)用了不規(guī)則窗體技術(shù)，使得窗體比較美觀。因此，我借這次畢業(yè)設(shè)計之機，在輔導(dǎo)老師的指導(dǎo)下，編寫了一個可以在VB6下正常運行的日歷、計算器多功能應(yīng)用程序，編程的思路是:先把公、農(nóng)歷的數(shù)據(jù)用數(shù)組查詢設(shè)置好，再通過算法轉(zhuǎn)換成具體應(yīng)用。單擊查詢控制面板開關(guān)將向下拉出查詢控制面板。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。我作為一名中央電大的學(xué)生，對從事計算機操作和編程工作有著特殊的愛好，在工作和學(xué)習(xí)之余，我時常鉆研專業(yè)課基礎(chǔ)理論，經(jīng)常用VB搞一些小程序，在工作中經(jīng)常有人問到農(nóng)歷和公歷的查詢問題。VB是極有和功能強大的軟件，主要表現(xiàn)在：所見即所得的界面設(shè)計，基于對象的設(shè)計方法，極短的軟件開發(fā)周期，較易維護的生成代碼。2事件驅(qū)動編程 Windows操作系統(tǒng)出現(xiàn)以來,圖形化的用戶界面和多任務(wù)多進程的應(yīng)用程序要求程序設(shè)計不能是單一性的,在使用VB設(shè)計應(yīng)用程序時,、鍵盤輸入等事件時,由用戶編寫的代碼控制這些事件的響應(yīng),這就是所謂的事件驅(qū)動編程。而VB不支持虛類、多態(tài)性和類的繼承,相對而言VB簡單易學(xué),變量定義不太嚴密,對于非專業(yè)程序員而言功能足夠強大,同Visual C++一樣也支持網(wǎng)絡(luò)編程和數(shù)據(jù)庫編程。通過這門課程的學(xué)習(xí)，我已能用VB編寫簡單的程序，為了搞好這次畢業(yè)設(shè)計，我決定使用VB作為編程語言。此時必須查找并改正該錯誤,然后再次進行編譯,對每一個發(fā)現(xiàn)的錯誤都要重復(fù)這樣的過程。當(dāng)準備運行和測試應(yīng)用程序時,只需極短時間即可完成編譯。通過這種方式,代碼運行的效果可以在開發(fā)時進行測試,而不必等到編譯完成以后。單擊時鐘數(shù)字將返回到今天。拖動無標題窗體Const HTCAPTION = 2Const WM_NCLBUTTONDOWN = amp。滾動字幕Private Declare Function DrawText Lib user32 Alias DrawTextA (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As LongPrivate Declare Function GetTickCount Lib kernel32 () As LongConst DT_BOTTOM As Long = amp。H40Const DT_EXTERNALLEADING As Long = amp。H800Const DT_RIGHT As Long = amp。H0Const DT_VCENTER As Long = amp。 _ 多功能電子日歷 39。************************************************** 39。單一功能鍵按下、松開Private Sub cmdops_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdOps(Index)End SubPrivate Sub cmdops_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdOps(Index)End Sub39。 Trim(Str(Index)) = f End If Exit Subeh2: = E e = f = op = End SubPrivate Sub cmdOp_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdOp(Index)End SubPrivate Sub cmdOp_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdOp(Index)End SubPrivate Sub cmdOp_Click(Index As Integer) On Error GoTo eh3 op_Sub = e op = chk = 0 Select Case Index Case 0 op = + Case 1 op = Case 2 op = * Case 3 op = / Case 4 op = ^ End Select Exit Subeh3: = E e = f = op = End SubPrivate Sub cmdPi_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdPiEnd SubPrivate Sub cmdPi_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdPiEnd SubPrivate Sub cmdPi_Click() If op = Then e = = e Else f = = f End IfEnd SubPrivate Sub cmdPM_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdPMEnd SubPrivate Sub cmdPM_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdPMEnd SubPrivate Sub cmdPM_Click() On Error GoTo eh1 op_Sub = e op = chk = 1 Exit Subeh1: = E e = f = op = End SubPrivate Sub cmdPt_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdPtEnd SubPrivate Sub cmdPt_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdPtEnd SubPrivate Sub cmdPt_Click() If op = Then e = e amp。單擊返回今天Private Sub C_clock_Click() = Year(Date) = Month(Date) = Day(Date) txt_Sub disPlay (Date)End SubPrivate Sub Form_Activate() RunMain picScrollEnd SubPrivate Sub Form_Load()39。計算器變量初始化 s_mem_B = False S_mem = 0 chk = 0 e = f = op = = 0 g = 1 ShowNumFun Pt, wPw2(3), 1 ShowNumARG Pt, wPw1(3), 2039。 wY = Weekday(kDay) Select Case wY Case 2, 3, 4, 5, 6, 7 ShowNumW wPw1(0), Week_p, wY 1, 1, 1 ShowNumWs wPw1(2), wWeekP, wY 2 Case 1 ShowNumW wPw1(0), Week_p, 0, 1, 1 ShowNumWs wPw1(2), wWeekP, 6 End SelectEnd SubPrivate Sub RunMain(picScroll As PictureBox)39。Or DT_WORDBREAKDT_SINGLELINE And = 1 = 1 If (RectHeight) Then 39。, vbTwips, vbPixels) = hei 39。 amp。, vbTwips, vbPixels) = Str() amp。 70 39。 amp。獲取窗體背景圖片尺寸 hbm = GetObjectAPI hbm, Len(bm), bm Wid = 39。逐行掃描 x = 0 Do x = x + 1 While (bmByte(x, y) = transColor) And (x Wid) x = x + 1 39。設(shè)定窗體形狀區(qū)域 DeleteObject Rgn1End SubPublic Sub Ji_suan() f = = e op = chk = 1End SubPublic Sub txt_Sub() Select Case Val() Case 1, 3, 5, 7, 8, 10, 12 = 31 Case 4, 6, 9, 11 = 30 Case 2 If ((Val() Mod 4) = 0) And ((Val() Mod 100) 0) Or ((Val() Mod 400) = 0) Then = 29 Else = 28 End If End SelectEnd SubPublic Sub s_Disp() Dim kDay1 As Date, skDay1 As String =