VB程序设计说明（整理）_vb程序设计说明
VB程序设计说明（整理）由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb程序设计说明”。
选题介绍及意义，程序模块及功能，程序流程图，程序源码及注释，程序的后续完善及存在问题，设计程序的心得体会 一．选题说明及意义
用VB实现备忘录的基本功能，包括记事本，屏幕抓图，数字时钟和日历等功能，利用VB中的诸多控件，例如PictureBox,Label,CommendButton,Timer,CommendDialog,RichTextBox等，完成VB程序的诸多功能的实现，创建功能较为完善的记事本，并具有一定辅助功能，对于利用此软件的人能够具有一定的便利。二．程序模块及功能实现流程图
三．部分程序代码 1.屏幕截图部分
Private Declare Function GetDC Lib “user32”(ByVal hwnd As Long)As Long Private Declare Function StretchBlt Lib “gdi32”(ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long)As Long
Private Sub Command1_Click()Dim wScreen As Long Dim hScreen As Long Dim w As Long Dim h As Long Picture1.Cls wScreen = Screen.Width Screen.TwipsPerPixelX hScreen = Screen.Height Screen.TwipsPerPixelY ‘定义截屏的长度和宽度等于屏幕实际长宽 Picture1.ScaleMode = vbPixels w = Picture1.ScaleWidth h = Picture1.ScaleHeight hdcScreen = GetDC(0)r = StretchBlt(Picture1.hdc, 0, 0, w, h, hdcScreen, 0, 0, wScreen, hScreen, vbSrcCopy)‘StretchBlt，函数名。该函数从源矩形中复制一个位图到目标矩形，必要时按目标设备设置的模式进行图像的拉伸或压缩。
End Sub
Private Sub Command2_Click()‘另存为按键代码 Me.Picture = Me.Image CommonDialog1.Filter = “BMP文件(*.bmp)|*.bmp|JPG文件(*.jpg)|*.jpg” CommonDialog1.ShowSave CommonDialog1.Flags = &H2 + &H4 + &H8 ‘&H2使用长文件名 &H4 隐藏只读复选框。
&H8强制对话框将对话框打开时的目录置成当前目录
If CommonDialog1.FileName “” Then SavePicture Me.Picture, CommonDialog1.FileName End If End Sub
Private Sub Command3_Click()‘退出按键代码 Form3.Hide form6.Show End Sub 2.登陆部分
Option Explicit Dim Npa As Integer
Private Sub Command1_Click()If username.Text = “111” And paword.Text = “111” And Npa
paword.SetFocus End If End If End Sub
Private Sub Command2_Click()username.Text = “” paword.Text = “” End Sub 3.日记本部分代码
Dim sfind As String Dim FileType, FiType As String Private Sub copy_Click()‘复制按键 Clipboard.Clear On Error Resume Next Clipboard.SetText TxtDemo.SelText End Sub
Private Sub date_Click()‘日期按键 Text1.SelText = Now End Sub
Private Sub delete_Click()‘删除按键 RichTextBox1.SelText = “” End Sub
Private Sub edits_Click()‘编辑按键 RichTextBox1.SetFocus End Sub
Private Sub exit_Click()‘退出按键 Form2.Hide Form1.Show End Sub
Private Sub find_Click()‘查找按键 Dim sfind As Integer sfind = InputBox(“请输入要查找的词：”, “查找内容”, sfind)RichTextBox1.find sfind If RichTextBox1.SelText sfind Then MsgBox “找不到要查询的内容”, , “查询结果报告” End If End Sub Private Sub Form_Load()Me.Height = 6000 Me.Width = 9000
On Error Resume Next '出错处理 RichTextBox1.Top = 20 RichTextBox1.Left = 20 RichTextBox1.Height = ScaleHeight40 End Sub
Private Sub new_Click(Index As Integer)‘新建按键 RichTextBox1.Text = “” '清空文本框 FileName = “未命名” Me.Caption = FileName End Sub
Private Sub open_Click()‘打开部分
CommonDialog1.Filter = “文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*” CommonDialog1.ShowOpen RichTextBox1.Text = “” '清空文本框 FileName = CommonDialog1.FileName RichTextBox1.LoadFile FileName Me.Caption = “记事本：” & FileName End Sub
Private Sub paste_Click()Clipboard.Clear On Error Resume Next Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = “” End Sub
Private Sub riji_Click()‘帮助日记部分 MsgBox “日记Ver1.0版权所有(C)网络”, vbOKOnly, “关于”
End Sub
Private Sub save_Click()‘保存文件部分 CommonDialog1.Filter = “文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*” CommonDialog1.ShowSave FileType = CommonDialog1.FileTitle FiType = LCase(Right(FileType, 3))FileName = CommonDialog1.FileName Select Case FiType Case “txt” RichTextBox1.SaveFile FileName, rtfText Case “rtf” RichTextBox1.SaveFile FileName, rtfRTF Case “*.*” RichTextBox1.SaveFile FileName End Select Me.Caption = “记事本：” & FileName End Sub
Private Sub selectall_Click()‘全选部分 RichTextBox1.SelStart = 0 RichTextBox1.SelLength = Len(RichTextBox1.Text)End Sub
Private Sub tie_Click()‘剪切部分 On Error Resume Next RichTextBox1.SelText = Clipboard.GetText RichTextBox1.SelText = “” End Sub 4.数字时钟部分代码
Private LastMinute As Integer Private LastHour As Integer Private Lastx As Integer Private Lasty As Integer
Private Sub Form_Load()Lastx = 999 End Sub
Private Sub Timer1_Timer()Const pi = 3.141592653 ‘定义圆周率 Dim T Dim X As Integer Dim Y As Integer T = Now SEC = Second(T)Min = Minute(T)HR = Hour(T)frmClock.Scale(-16, 16)-(16,-16)If Min lastMin Or HR LastHour Then LastMinute = Min LastHour = HR frmClock.Cls Lastx = 999 frmClock.DrawWidth = 2 frmClock.DrawMode = 13 h = HR + pi / 60 X = 5 * Sin(h * pi / 6)Y = 5 * Cos(h * pi / 6)frmClock.Line(0, 0)-(X, Y)X = 8 * Sin(Min * pi / 30)Y = 8 * Cos(Min * pi / 30)frmClock.Line(0, 0)-(X, Y)frmClock.DrawWidth = 1 End If frmClock.DrawMode = 10 RED = RGB(255, 0, 0)X = 10 * Sin(SEC * pi / 30)Y = 10 * Cos(SEC * pi / 30)If Lastx 999 Then frmClock.Line(0, 0)-(Lastx, Lasty), RED End If frmClock.Line(0, 0)-(X, Y), RED Lastx = X Lasty = Y End Sub
Private Sub NoUse_Click()Unload Me End Sub 四．程序后续完善及存在问题
目前程序功能较为简单，对于备忘录部分只能实现简单的文字输入和截屏，日历，数字时钟的功能，在以后陆续的开发中会实现更多更复杂的功能，例如定时提醒，连接数据库，Excel表格等功能，程序在设计之初与最后成品稍有 不同，对于程序设计中部分功能未能实现，十分遗憾，在以后的学习中会加强程序设计部分知识，逐渐完善程序功能。五．设计程序的心得体会
通过此次程序设计，我对于VB程序语言和VB各类控件有了更深入的了解，对于综合VB各项函数等也有了更深入的学习，完成一个综合的作品对于学习编程语言来说是进阶必不可少的一部分，通过完成自己的作品也激发了我的创造思维和创作能力。在以后的学习中，我也会继续学习和深入了解编程语言，为更好的做学术研究打基础。
《教务信息管理系统VB程序设计》的教学思路 （2010年高职单招计算机专业技能测试题） 福安市民族职业中学———冯建锋摘要：针对2010年高职单招计算机专业技能测试题，结合我省高职......
Private Sub Form_Click()score = Val(InputBox("请输入成绩:")) If score >= 60 ThenIf score >= 90 ThenLevel = "优"ElseIf score >= 80 ThenLevel = "良"ElseIf s......
心得体会是对自己经历和体验的一种总结，能够反思和提升自己的成长。怎样让自己的心得体会更具有价值和深度？通过阅读这些心得体会，我们可以了解到不同人对同一问题的理解和认识......
心得体会是对自己的经历和感受进行总结和反思的一种方式。写心得体会时，我们可以适当运用一些修辞方法，如排比、设问等，让文章更具感染力和说服力。以下是一些值得一读的心得体......
登陆登陆Private Sub cmdLogin_Click() If txtUser.Text = "" ThenMsgBox ("请输入用户名!")txtUser.SetFocus Else Call openconn sql = "select * from login wher......
