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]
vb农历公历转换系统设计 第10页下载如图片无法显示或论文不完整，请联系qq752018766
