農(nóng)歷公歷轉(zhuǎn)換(十)

二、提示信息模塊相關(guān)代碼：
Option Explicit
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
' 內(nèi)存中的提示數(shù)據(jù)庫。
Dim Tips As New Collection
' 提示文件名稱
Const TIP_FILE = "TIPOFDAY.TXT"
' 當前正在顯示的提示集合的索引。
Dim CurrentTip As Long
Private Sub DoNextTip()
  If Op1.Value = 1 Then
    ' 隨機選擇一條提示。
    CurrentTip = Int((Tips.Count * Rnd) + 1)
  Else
    ' 或者，您可以按順序遍歷提示
   CurrentTip = CurrentTip + 1
    If Tips.Count < CurrentTip Then
        CurrentTip = 1
    End If
  End If
    ' 顯示它。
    frmTip.DisplayCurrentTip
  End Sub
Function LoadTips(sFile As String) As Boolean
    Dim NextTip As String   ' 從文件中讀出的每條提示。
    Dim InFile As Integer   ' 文件的描述符。
     ' 包含下一個自由文件描述符。
    InFile = FreeFile
    ' 確定為指定文件。
    If sFile = "" Then
        LoadTips = False
        Exit Function
    End If   
    ' 在打開前確保文件存在。
    If Dir(sFile) = "" Then
        LoadTips = False
        Exit Function
    End If
     ' 從文本文件中讀取集合。
    Open sFile For Input As InFile
    While Not EOF(InFile)
        Line Input #InFile, NextTip
        Tips.Add NextTip
    Wend
    Close InFile
    ' 隨機顯示一條提示。
    DoNextTip
    LoadTips = True
    End Function
Private Sub chkLoadTipsAtStartup_Click()
    ' 保存在下次啟動時是否顯示此窗體
    SaveSetting App.EXEName, "Options", "在啟動時顯示提示", 1
End Sub
Private Sub cmdNextTip_Click()
    DoNextTip
End Sub
Private Sub cmdOK_Click()
    Unload Me
End Sub
Private Sub Form_Load()
    Dim ShowAtStartup As Long, rtn
   frmTip.Height = 4530
   frmTip.Width = 4515
     rtn = SetWindowPos(frmTip.hwnd, -1, 0, 0, 0, 0, 3)
    ' 察看在啟動時是否將被顯示
    ShowAtStartup = GetSetting(App.EXEName, "Options", "在啟動時顯示提示", 1)
    If ShowAtStartup = 0 Then
        Unload Me
        Exit Sub
    End If
     ' 設(shè)置復(fù)選框，強行將值寫回到注冊表
    'Me.chkLoadTipsAtStartup.Value = vbChecked
      ' 隨機尋找
    Randomize
     ' 讀取提示文件并且隨機顯示一條提示。
  If LoadTips(App.Path & "\" & TIP_FILE) = False Then
    blTipText.Text = "文件 " & TIP_FILE & " 沒有被找到嗎? " & vbCrLf & vbCrLf & _
           "創(chuàng)建文本文件名為 " & TIP_FILE & " 使用記事本每行寫一條提示。 " & _
           "然后將它存放在應(yīng)用程序所在的目錄 "
    End If
End Sub
Private Sub Picture3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 1 Then
           Dim ReturnVal As Long
           x = ReleaseCapture()
           ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End If
End Sub
Public Sub DisplayCurrentTip()
    If Tips.Count > 0 Then
        lblTipText.Text = Tips.Item(CurrentTip)
    End If
End Sub
                    
  第三章    畢業(yè)設(shè)計總結(jié)
    歷時近兩個月的畢業(yè)設(shè)計終于快到了尾聲，通過這次畢業(yè)設(shè)計，在老師的指導(dǎo)下，我初步掌握了用VB開發(fā)軟件的方法，使我意識到在開發(fā)一個應(yīng)用軟件的同時，搞好準備工作的重要性，特別是各種素材的準備，尤其是對數(shù)據(jù)結(jié)構(gòu)算法要心中有數(shù)。感謝中央電大**分校的指導(dǎo)老師對我的悉心指導(dǎo)與幫助。由于時間倉促，這個軟件還很不完善，比如農(nóng)歷的轉(zhuǎn)換我還沒能設(shè)計成功，計算器功能也有錯誤。這些有待我以后繼續(xù)完善。

                        第四章  主要參考文獻
1、《數(shù)據(jù)結(jié)構(gòu)（c++描述）》  中央電大出版  2000年12月第1版   徐孝凱主編
2、《Visual Basic 程序設(shè)計》中央電大出版 2000年12月第1版   陳明  主編
3、《Visual Basic 程序設(shè)計》清華大學(xué)出版 2002年7月第1版    李大友主編
4、《Visual Basic開發(fā)人員指南》機械工業(yè)出版社 1999年1月  EricBrierley主編
5、《Visual Basic6.0實效編程百例》人民郵電出版社 2002年7月 劉韜、駱娟主編

首頁 上一頁 7 8 9 10 下一頁 尾頁 10/10/10