vb农历公历转换系统设计 第10页
 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  www.751com.cn
    End If
     ' 设置复选框，强行将值写回到注册表
    'Me.chkLoadTipsAtStartup.Value = vbChecked
      ' 随机寻找
    Randomize
     ' 读取提示文件并且随机显示一条提示。
  If LoadTips(App.Path & "\" & TIP_FILE) = False Then
    blTipText.Text = "文件 " & TIP_FILE & " 没有被找到吗? " & vbCrLf & vbCrLf & _
           "创建文本文件名为 " & TIP_FILE & " 使用记事本每行写一条提示。 " & _
           "然后将它存放在应用程序所在的目录 "
    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                     
 第三章    毕业设计总结
    历时近两个月的毕业设计终于快到了尾声，通过这次毕业设计，在老师的指导下，我初步掌握了用VB开发软件的方法，使我意识到在开发一个应用软件的同时，搞好准备工作的重要性，特别是各种素材的准备，尤其是对数据结构算法要心中有数。感谢中央电大**分校的指导老师对我的悉心指导与帮助。由于时间仓促，这个软件还很不完善，比如农历的转换我还没能设计成功，计算器功能也有错误。这些有待我以后继续完善。                        第四章  主要参考文献
1、《数据结构（c++描述）》  中央电大出版  2000年12月第1版   徐孝凯主编
2、《Visual Basic 程序设计》中央电大出版 2000年12月第1版   陈明  主编
3、《Visual Basic 程序设计》清华大学出版 2002年7月第1版    李大友主编
4、《Visual Basic开发人员指南》机械工业出版社 1999年1月  EricBrierley主编
5、《Visual Basic6.0实效编程百例》人民邮电出版社 2002年7月 刘韬、骆娟主编

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]